| 12345678910111213141516171819202122 |
- 10 CLS
- 20 FOR I = 0 TO 15
- 22 FOR J = 0 TO 7
- 30 COLOR I,J
- 40 PRINT " ** ";
- 45 NEXT J
- 46 COLOR I,0
- 47 GOSUB 100
- 48 PRINT
- 50 NEXT I
- 60 COLOR 15,0
- 99 END
- 100 FOR T = 65 TO 90
- 101 PRINT CHR$(T);
- 102 NEXT T
- 103 RETURN
- 200 REM Data types test
- 201 TOTAL# = 3.30# 'Double precision variable
- 202 BALANCE! = 3! 'Single precision variable
- 203 B2! = 12e5 '120000
- 204 ITEMS% = 10 'Integer variable
- 205 HEXTEST = &H12DB 'Hex value
|
