mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-08 16:07:14 +00:00
11 lines
368 B
QBasic
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
|