Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

basic: lemm getting closer

This commit is contained in:
Vince Weaver 2022-02-19 21:38:33 -05:00
parent be0bf6e0f0
commit 6d17397b54
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basic/appleiibot/lemm.bas
View File

@ -1,4 +1,5 @@
0REM!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*
0REM&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*
1HGR:DEFFNP(X)=7*PEEK(2054+I*5+X)-224
2GOSUB4:HGR2:Z=10:GOSUB4
4FORI=ZTOZ+11:HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I:RETURN
4FORI=0TO21:HCOLOR=FNP(0)/7:IFI=10THENHGR2
5FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I
6P=NOTP:P=SQR(3):POKE49236+P,0:GOTO6