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

logo_demo: integrating

Browse Source
This commit is contained in:
Vince Weaver 2021-11-12 12:59:49 -05:00
parent faea64111e
commit 02fc693d21
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
demos/logo_demo/demo.logo
View File

@ -111,11 +111,6 @@ WAIT 60
FS
END
TO PLASMA
END
TO POLY
CS FS ST
SETH 0
@ -127,16 +122,29 @@ HT
WAIT 180
END
TO BIRD :X :Y
PU SETX :X SETY :Y
PD SETH 10
REPEAT 42 [FD 0.5 RT 3]
LT 90
REPEAT 42 [FD 0.5 RT 3]
END
TO MYST
CS HT
SETBG 1
.CALL 23084
WAIT 180
SETPC 0 ST
BIRD -75 75
BIRD 0 100
SETPC 1
HT WAIT 60 ST
END
TO CREDITS
SS
REPEAT 4 [PRINT "]
SETCURSOR [17 20] PRINT [DESIRE]
SETCURSOR [1 21] PRINT [CODE: DEATER]
SETCURSOR [28 21] PRINT [MUSIC: mA2E]
SETCURSOR [12 23] PRINT [APPLE II FOREVER]
@ -152,12 +160,11 @@ CS FS
PRINT "DSR
PRINT "OCEAN
PRINT "WARGAMES
PRINT "PLASMA
PRINT "POLY
PRINT "MYST
PRINT "CS
PRINT [REPEAT 5 [ CTREE ]]
PRINT "CREDITS
POLY
MYST
CS SETBG 0
REPEAT 3 [ CTREE ]
CREDITS
END
MAKE "STARTUP [DEMO]