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

Style separation

Browse Source
This commit is contained in:
Joshua Bell
2013-08-17 15:15:54 -07:00
parent c89a05781f
commit 85de02659c
8 changed files with 938 additions and 949 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/sample.charset.txt
+12 -6
View File
@@ -6,8 +6,14 @@
200 PR#3 : PRINT CHR$(17); : HOME
210 PRINT "80 Col Firmware Active"
220 GOSUB 1000
230 PRINT : PRINT "Press any key "; : GET A$
999 END
300 PR#3 : HOME
310 PRINT "80 Col Firmware Active"
320 GOSUB 1000
330 PRINT : PRINT "Press any key "; : GET A$
999 GOTO 100
1000 PRINT : PRINT "Normal" : NORMAL : GOSUB 2000 : NORMAL
1010 PRINT : PRINT "Inverse" : INVERSE : GOSUB 2000 : NORMAL
@@ -15,9 +21,9 @@
1030 PRINT : PRINT "Mousetext" : PRINT CHR$(27);CHR$(15); : GOSUB 2000 : PRINT CHR$(14);CHR$(24)
1040 RETURN
2000 FOR I = 32 TO 127 STEP 32
2010 : FOR J = 0 TO 31
2020 :: PRINT CHR$(I+J);
2030 : NEXT : PRINT
2000 FOR I = 32 TO 127 STEP 32
2010 : FOR J = 0 TO 31
2020 :: PRINT CHR$(I+J);
2030 : NEXT : PRINT
2040 NEXT
2050 RETURN
2050 RETURN