Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2026-04-22 07:16:41 +00:00
Code Issues Projects Releases Wiki Activity

Snapshot

Browse Source
This commit is contained in:
Joshua Bell
2012-02-08 22:13:44 -05:00
commit 9aa91a4410
68 changed files with 12464 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/sample.readsector.txt
+11
View File
@@ -0,0 +1,11 @@
10 PR#0 : TEXT : HOME
20 INPUT "Sector filename: "; FI$
30 HOME
100 PRINT CHR$(4);"OPEN ";FI$;",L50"
110 PRINT CHR$(4);"READ ";FI$;",R0"
120 INPUT R : REM Number of records
130 FOR A = 1 TO R
140 PRINT CHR$(4);"READ ";FI$;",R";A
150 INPUT A$ : PRINT A$
160 NEXT