Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-16 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: horizon.bas update

Browse Source
This commit is contained in:
Vince Weaver 2020-10-29 16:05:10 -04:00
parent 575716810f
commit 8c65f6a6eb
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
appleiibot/horizon.bas
View File

@ -1,12 +1,8 @@
10 HGR:HGR2:C=2 1HGR:HGR2:HCOLOR=2
12 FOR I=0 TO 8 2FORJ=1TO8:A=192+25*J:POKE230,(1+NOTP)*32:POKE49236+P,0:CALL-3086
14 X=0:Y=96+I*11:V=279:W=Y:GOSUB200 3A=A/2:Y=96+A:Y=Y*(Y<192):HPLOT0,YTO279,Y:IFA>1THEN3
16 NEXT 4B=101:K=2.5:A=-220
22 A=-220:W=96:FORI=1TO8 5FORI=1TO8:W=96:Y=B:IFY>191THENY=191
24 READ B:Y=B 7X=A*(A>0):V=I*16:GOSUB9:HPLOT279-X,YTO(17-I)*16,96
26 X=A*(A>0):V=I*16:GOSUB200 8A=A+48:K=K+K:B=B+K:NEXT:P=NOTP:NEXT:GOTO2
30 X=279-X:V=(17-I)*16:GOSUB200 9HPLOTX,YTOV,W:RETURN
32 A=A+48:NEXT
70 GOTO 22
138 DATA 101,112,123,139,166,191,191,191
200HCOLOR=C:HPLOTX,YTOV,W:RETURN