00000000: 00 20 54 4F 20 44 45 4D 4F 0D 20 52 45 41 44 20 |. TO DEMO. READ |
00000010: 22 53 50 52 49 54 45 53 0D 20 52 45 41 44 53 48 |"SPRITES. READSH|
00000020: 41 50 45 53 20 22 52 55 4E 4E 45 52 0D 20 41 53 |APES "RUNNER. AS|
00000030: 4B 20 30 20 5B 48 54 5D 0D 20 45 41 43 48 20 5B |K 0 [HT]. EACH [|
00000040: 31 20 32 20 33 20 34 20 35 20 36 20 37 5D 20 5B |1 2 3 4 5 6 7] [|
00000050: 50 43 20 31 20 50 55 5D 0D 20 52 55 4E 44 45 4D |PC 1 PU]. RUNDEM|
00000060: 4F 0D 45 4E 44 0D 0D 54 4F 20 52 55 4E 44 45 4D |O.END..TO RUNDEM|
00000070: 4F 0D 20 4C 4F 43 41 4C 20 22 53 54 41 4E 43 45 |O. LOCAL "STANCE|
00000080: 0D 20 42 41 43 4B 47 52 4F 55 4E 44 20 34 0D 20 |. BACKGROUND 4. |
00000090: 53 48 4F 57 0D 20 54 45 4C 4C 20 31 20 48 4F 4D |SHOW. TELL 1 HOM|
000000A0: 45 20 42 49 47 58 20 42 49 47 59 20 53 45 54 48 |E BIGX BIGY SETH|
000000B0: 45 41 44 49 4E 47 20 39 30 20 50 45 4E 43 4F 4C |EADING 90 PENCOL|
000000C0: 4F 52 20 31 0D 20 57 41 49 54 20 33 0D 20 4D 41 |OR 1. WAIT 3. MA|
000000D0: 4B 45 20 22 53 54 41 4E 43 45 20 38 0D 20 52 45 |KE "STANCE 8. RE|
000000E0: 50 45 41 54 20 36 20 5B 4D 41 4B 45 20 22 53 54 |PEAT 6 [MAKE "ST|
000000F0: 41 4E 43 45 20 3A 53 54 41 4E 43 45 20 2D 20 31 |ANCE :STANCE - 1|
00000100: 20 54 45 4C 4C 20 3A 53 54 41 4E 43 45 20 48 54 | TELL :STANCE HT|
00000110: 5D 0D 20 54 45 4C 4C 20 31 0D 20 53 45 54 53 48 |]. TELL 1. SETSH|
00000120: 41 50 45 20 32 20 57 41 49 54 20 31 20 2F 20 32 |APE 2 WAIT 1 / 2|
00000130: 0D 20 53 45 54 53 48 41 50 45 20 33 20 52 55 4E |. SETSHAPE 3 RUN|
00000140: 4E 0D 20 53 45 54 53 48 41 50 45 20 32 20 57 41 |N. SETSHAPE 2 WA|
00000150: 49 54 20 31 20 2F 20 32 0D 20 53 45 54 53 48 41 |IT 1 / 2. SETSHA|
00000160: 50 45 20 31 20 57 41 49 54 20 31 0D 20 53 45 54 |PE 1 WAIT 1. SET|
00000170: 53 48 41 50 45 20 37 20 57 41 49 54 20 34 0D 20 |SHAPE 7 WAIT 4. |
00000180: 53 48 4F 57 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F |SHOW.END..TO SHO|
00000190: 57 0D 20 4C 4F 43 41 4C 20 22 4F 4C 44 0D 20 4D |W. LOCAL "OLD. M|
000001A0: 41 4B 45 20 22 4F 4C 44 20 57 48 4F 0D 20 54 45 |AKE "OLD WHO. TE|
000001B0: 4C 4C 20 30 20 48 54 0D 20 53 48 4F 57 4C 4F 4F |LL 0 HT. SHOWLOO|
000001C0: 50 20 31 20 31 32 30 20 31 30 30 0D 20 54 45 4C |P 1 120 100. TEL|
000001D0: 4C 20 3A 4F 4C 44 0D 45 4E 44 0D 0D 54 4F 20 57 |L :OLD.END..TO W|
000001E0: 41 49 54 20 3A 53 45 43 4F 4E 44 53 0D 20 52 45 |AIT :SECONDS. RE|
000001F0: 50 45 41 54 20 3A 53 45 43 4F 4E 44 53 20 2A 20 |PEAT :SECONDS * |
00000200: 33 30 30 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 52 |300 [].END..TO R|
00000210: 55 4E 4E 0D 20 49 46 20 52 43 3F 20 53 54 4F 50 |UNN. IF RC? STOP|
00000220: 0D 20 52 45 50 45 41 54 20 31 31 20 5B 52 55 4E |. REPEAT 11 [RUN|
00000230: 4C 4F 4F 50 20 34 5D 0D 20 52 55 4E 4E 0D 45 4E |LOOP 4]. RUNN.EN|
00000240: 44 0D 0D 54 4F 20 53 48 4F 57 4C 4F 4F 50 20 3A |D..TO SHOWLOOP :|
00000250: 43 55 52 52 45 4E 54 20 3A 58 20 3A 59 0D 20 49 |CURRENT :X :Y. I|
00000260: 46 20 3A 43 55 52 52 45 4E 54 20 3D 20 38 20 53 |F :CURRENT = 8 S|
00000270: 54 4F 50 0D 20 54 45 4C 4C 20 3A 43 55 52 52 45 |TOP. TELL :CURRE|
00000280: 4E 54 20 53 45 54 53 48 41 50 45 20 3A 43 55 52 |NT SETSHAPE :CUR|
00000290: 52 45 4E 54 0D 20 53 45 54 58 59 20 3A 58 20 3A |RENT. SETXY :X :|
000002A0: 59 0D 20 53 4D 41 4C 4C 58 20 53 4D 41 4C 4C 59 |Y. SMALLX SMALLY|
000002B0: 20 53 54 0D 20 53 48 4F 57 4C 4F 4F 50 20 3A 43 | ST. SHOWLOOP :C|
000002C0: 55 52 52 45 4E 54 20 2B 20 31 20 3A 58 20 3A 59 |URRENT + 1 :X :Y|
000002D0: 20 2D 20 33 30 0D 45 4E 44 0D 0D 54 4F 20 52 55 | - 30.END..TO RU|
000002E0: 4E 4C 4F 4F 50 20 3A 53 48 41 50 45 0D 20 49 46 |NLOOP :SHAPE. IF|
000002F0: 20 3A 53 48 41 50 45 20 3D 20 37 20 53 54 4F 50 | :SHAPE = 7 STOP|
00000300: 0D 20 46 44 20 33 30 0D 20 53 45 54 53 48 41 50 |. FD 30. SETSHAP|
00000310: 45 20 3A 53 48 41 50 45 0D 20 52 55 4E 4C 4F 4F |E :SHAPE. RUNLOO|
00000320: 50 20 3A 53 48 41 50 45 20 2B 20 31 0D 45 4E 44 |P :SHAPE + 1.END|
00000330: 0D 0D 4D 41 4B 45 20 22 53 54 41 52 54 55 50 20 |..MAKE "STARTUP |
00000340: 5B 44 45 4D 4F 5D 0D |[DEMO]. |
. TO DEMO. READ "SPRITES. READSHAPES "RU
NNER. ASK 0 [HT]. EACH [1 2 3 4 5 6 7] [
PC 1 PU]. RUNDEMO.END..TO RUNDEMO. LOCAL
"STANCE. BACKGROUND 4. SHOW. TELL 1 HOM
E BIGX BIGY SETHEADING 90 PENCOLOR 1. WA
IT 3. MAKE "STANCE 8. REPEAT 6 [MAKE "ST
ANCE :STANCE - 1 TELL :STANCE HT]. TELL
1. SETSHAPE 2 WAIT 1 / 2. SETSHAPE 3 RUN
N. SETSHAPE 2 WAIT 1 / 2. SETSHAPE 1 WAI
T 1. SETSHAPE 7 WAIT 4. SHOW.END..TO SHO
W. LOCAL "OLD. MAKE "OLD WHO. TELL 0 HT.
SHOWLOOP 1 120 100. TELL :OLD.END..TO W
AIT :SECONDS. REPEAT :SECONDS * 300 [].E
ND..TO RUNN. IF RC? STOP. REPEAT 11 [RUN
LOOP 4]. RUNN.END..TO SHOWLOOP :CURRENT
:X :Y. IF :CURRENT = 8 STOP. TELL :CURRE
NT SETSHAPE :CURRENT. SETXY :X :Y. SMALL
X SMALLY ST. SHOWLOOP :CURRENT + 1 :X :Y
- 30.END..TO RUNLOOP :SHAPE. IF :SHAPE
= 7 STOP. FD 30. SETSHAPE :SHAPE. RUNLOO
P :SHAPE + 1.END..MAKE "STARTUP [DEMO].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL