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

logo_demo: getting close

Browse Source
This commit is contained in:
Vince Weaver 2021-11-12 15:48:47 -05:00
parent 453084b274
commit 41fce058b3
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
demos/logo_demo/demo.logo
View File

@ -38,7 +38,7 @@ PD RT 90 FD 50 RT 90 FD 50
PU SETPOS [-110 -45] PU SETPOS [-110 -45]
PD FD 220 PD FD 220
LT 90 PU FD 10 LT 45 LT 90 PU FD 10 LT 45
REPEAT 8 [WAIT 15 RT 90 WAIT 15 LT 90] REPEAT 6 [WAIT 15 RT 90 WAIT 15 LT 90]
END END
TO SUN TO SUN
@ -76,7 +76,15 @@ END
TO FISH TO FISH
PU SETPOS [0 -50] PU SETPOS [0 -50]
PD SETPC 1 REPEAT 40 [FD 1 RT 3] RT 90 PD SETPC 1 REPEAT 40 [FD 1 RT 3] RT 90
REPEAT 40 [FD 1 RT 3] HT REPEAT 40 [FD 1 RT 3]
END
TO MOVEFISH
MAKE "X ((RANDOM 280) - 140)
MAKE "Y (-(RANDOM 100))
MAKE "XY SENTENCE :X :Y
SETPOS :XY
WAIT 60
END END
TO OCEAN TO OCEAN
@ -85,7 +93,8 @@ SUN
BOAT BOAT
WATER WATER
FISH FISH
WAIT 300 SETH 90 PU
REPEAT 5 [MOVEFISH]
END END
TO POLYSPI4 :S :A :D :L TO POLYSPI4 :S :A :D :L
@ -159,11 +168,11 @@ CS FS ST
.CALL 19456 .CALL 19456
DSR DSR
OCEAN OCEAN
WARGAMES
POLY POLY
WARGAMES
MYST MYST
CS SETBG 0 CS SETBG 0
REPEAT 3 [ CTREE ] REPEAT 4 [ CTREE ]
CREDITS CREDITS
END END