dos33fsprogs/appleiibot/fastar.bas
2020-11-09 00:02:33 -05:00

11 lines
368 B
QBasic

0 DIM X(17),Y(17):FOR I=0 TO 16:READ X(I),Y(I):NEXT
1HGR:HGR2:HCOLOR=3
4FORI=1TO16:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
5FORJ=1TO1
6IFX(I-1)ANDX(I)THENHPLOTX(I-1),Y(I-1)TOX(I),Y(I)
7NEXTJ,I:GOTO4
100 DATA 97,111,96,111,95,111,94,111,92,112
105 DATA 90,113,87,114,83,115,79,117,73,119
110 DATA 66,121,58,124,49,127,37,131
115 DATA 22,136,5,143,0,0