8 lines
286 B
QBasic
8 lines
286 B
QBasic
0REM~*:B6S6l;`ALB5@):~B9B>I?I8B9~L8L?T>T:L8"~4-;8NEaNnPZ?L74-N5Y<kLnP~L7O6~Z?Y<~G=I9Q<NAG=~S=YBWFQCS=!
|
|
1HGR:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
|
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
|
|
6HPLOTTOFNP(0),FNP(1):I=I+2
|
|
7IFFNP(0)=3THENHGR2:I=I+1
|
|
8IFFNP(0)GOTO2
|
|
9P=NOTP:POKE49236+P,0:?CHR$(7):GOTO9
|