dos33fsprogs/appleiibot/concert.bas
2020-10-14 11:27:12 -04:00

12 lines
331 B
QBasic

10 HIMEM:8132
20 POKE 232,196:POKE 233,31
30 FOR L=8132 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=1
40 FOR I=1 TO 2: XDRAW I AT I*10,100:NEXT I
90 END
100 DATA 2,0,6,0,33,0,45,37,60,36
101 DATA 44,44,53,55,47,41,52,58,63,46
102 DATA 45,30,55,45,45,21,63,63,63,63
103 DATA 63,63,0,73,73,73,36,36,36,172
104 DATA 54,54,54,0