dos33fsprogs/basic/appleiibot/fastar.bas

11 lines
368 B
QBasic
Raw Normal View History

2020-11-09 05:02:33 +00:00
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