-
Notifications
You must be signed in to change notification settings - Fork 1
/
code_a.bas
113 lines (113 loc) · 3 KB
/
code_a.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
10 PRINT"!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
20 PRINT"�亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬�"
30 PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"
40 REM !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
50 REM �亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬
60 REM ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
70 PRINT"1":' !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
80 PRINT"2":' �亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬
90 PRINT"3":' ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
100 PRINT"2":' �亗儎厗噲墛媽崕彁憭摂晼棙櫄洔潪煚、￥ウЖ┆辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮蒉哙徕沅彐玷殛腱眍镳耱篝貊鼬
110 END
120 KEY OFF
130 COLOR 1,15,15
140 SCREEN 1
150 WIDTH 32
160 PRINT
170 FOR I = 32 TO 126
180 PRINT CHR$ (I);
190 NEXT
200 PRINT
210 FOR I = 128 TO 191
220 PRINT CHR$ (I);
230 NEXT
240 FOR I = 192 TO 255
250 PRINT CHR$ (I);
260 NEXT
270 PRINT
280 FOR I=64 TO 95
290 PRINT CHR$(1)+CHR$(I);
300 NEXT
310 GOTO 310
320 REM 3a8fe6 = :忔
330 END
340 GOSUB 360
350 END
360 PRINT "鹣男蚁且镣土"
370 RETURN
380 ' LET OCT=&O10
390 LET OCT=&O10
400 LET BIN=&B100
410 LET BIN=&B100
420 HEX=&H2A0
430 HEX=&H2
440 RUN 440
450 PRINT"123":PRINT "456"
460 LET I2%=1000+2000
470 'I2%=1000+2000
480 'R3!=1234567890#
490 PRINT R3!
500 A=-1:B=-10000
510 'C=12456
520 S$="test"
530 D=ABS(1)
540 ::: PRINT "test":PRINT
550 RUN 530
560 SET SCREEN
570 SETSCREEN
580 A=ATN(1)
590 IF A=1 THEN PRINT "1" ELSE PRINT "2"
600 S=.123456
610 S=1.23456
620 S=12.3456
630 S=123.456
640 S=1234.56
650 S=12345.6
660 S=123456!
670 S=100000!
680 D=.12345678901234#
690 D=1.2345678901234#
700 D=12.345678901234#
710 D=123.45678901234#
720 D=1234.5678901234#
730 D=12345.678901234#
740 D=123456.78901234#
750 D=1234567.8901234#
760 D=12345678.901234#
770 D=123456789.01234#
780 D=1234567890.1234#
790 D=12345678901.234#
800 D=123456789012.34#
810 D=1234567890123.4#
820 D=12345678901234#
830 D=-12345678901234#
840 D=1000000#
850 D=10000000#
860 D=100000000#
870 D=1000000000#
880 D=10000000000#
890 D=100000000000#
900 D=1000000000000#
910 D=10000000000000#
920 D=.123456789#
930 D=1.23456789#
940 D=12.3456789#
950 D=123.456789#
960 D=1234.56789#
970 D=12345.6789#
980 D=123456.789#
990 D=1234567.89#
1000 D=12345678.9#
1010 D=123456789#
1020 D=1234567890#
1030 D=12345678900#
1040 D=123456789000#
1050 D=1234567890000#
1060 D=12345678900000#
1070 D=-12345678900000#
1080 D=1.2345678901235E+14
1090 D=1.2345678901235E+15
1100 D=1.2345678901235E+16
1110 D=1.2345678901235E+17
1120 D=1.2345678901235E+18