LG-RUNNER
FILE INFORMATION
FILENAME(S): LG-RUNNER
FILE TYPE(S): PRG
FILE SIZE: 845b
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
c59c4e27e70b0f26c84c3f22167da83c5fc9d3b1b5210b7998b1931888b888fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-RUNNER | PRG | DuncanTwain | 12 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 44 45 4D 4F 0D 20 52 45 41 44 20 |. TO DEMO. READ | 00000010: 22 4C 47 2D 53 50 52 49 54 45 53 0D 20 52 45 41 |"LG-SPRITES. REA| 00000020: 44 53 48 41 50 45 53 20 22 4C 47 2D 52 55 4E 4E |DSHAPES "LG-RUNN| 00000030: 45 52 0D 20 41 53 4B 20 30 20 5B 48 54 5D 0D 20 |ER. ASK 0 [HT]. | 00000040: 45 41 43 48 20 5B 31 20 32 20 33 20 34 20 35 20 |EACH [1 2 3 4 5 | 00000050: 36 20 37 5D 20 5B 50 43 20 31 20 50 55 5D 0D 20 |6 7] [PC 1 PU]. | 00000060: 52 55 4E 44 45 4D 4F 0D 45 4E 44 0D 0D 54 4F 20 |RUNDEMO.END..TO | 00000070: 52 55 4E 44 45 4D 4F 0D 20 4C 4F 43 41 4C 20 22 |RUNDEMO. LOCAL "| 00000080: 53 54 41 4E 43 45 0D 20 42 41 43 4B 47 52 4F 55 |STANCE. BACKGROU| 00000090: 4E 44 20 34 0D 20 53 48 4F 57 0D 20 54 45 4C 4C |ND 4. SHOW. TELL| 000000A0: 20 31 20 48 4F 4D 45 20 42 49 47 58 20 42 49 47 | 1 HOME BIGX BIG| 000000B0: 59 20 53 45 54 48 45 41 44 49 4E 47 20 39 30 20 |Y SETHEADING 90 | 000000C0: 50 45 4E 43 4F 4C 4F 52 20 31 0D 20 57 41 49 54 |PENCOLOR 1. WAIT| 000000D0: 20 33 0D 20 4D 41 4B 45 20 22 53 54 41 4E 43 45 | 3. MAKE "STANCE| 000000E0: 20 38 0D 20 52 45 50 45 41 54 20 36 20 5B 4D 41 | 8. REPEAT 6 [MA| 000000F0: 4B 45 20 22 53 54 41 4E 43 45 20 3A 53 54 41 4E |KE "STANCE :STAN| 00000100: 43 45 20 2D 20 31 20 54 45 4C 4C 20 3A 53 54 41 |CE - 1 TELL :STA| 00000110: 4E 43 45 20 48 54 5D 0D 20 54 45 4C 4C 20 31 0D |NCE HT]. TELL 1.| 00000120: 20 53 45 54 53 48 41 50 45 20 32 20 57 41 49 54 | SETSHAPE 2 WAIT| 00000130: 20 31 20 2F 20 32 0D 20 53 45 54 53 48 41 50 45 | 1 / 2. SETSHAPE| 00000140: 20 33 20 52 55 4E 4E 0D 20 53 45 54 53 48 41 50 | 3 RUNN. SETSHAP| 00000150: 45 20 32 20 57 41 49 54 20 31 20 2F 20 32 0D 20 |E 2 WAIT 1 / 2. | 00000160: 53 45 54 53 48 41 50 45 20 31 20 57 41 49 54 20 |SETSHAPE 1 WAIT | 00000170: 31 0D 20 53 45 54 53 48 41 50 45 20 37 20 57 41 |1. SETSHAPE 7 WA| 00000180: 49 54 20 34 0D 20 53 48 4F 57 0D 45 4E 44 0D 0D |IT 4. SHOW.END..| 00000190: 54 4F 20 53 48 4F 57 0D 20 4C 4F 43 41 4C 20 22 |TO SHOW. LOCAL "| 000001A0: 4F 4C 44 0D 20 4D 41 4B 45 20 22 4F 4C 44 20 57 |OLD. MAKE "OLD W| 000001B0: 48 4F 0D 20 54 45 4C 4C 20 30 20 48 54 0D 20 53 |HO. TELL 0 HT. S| 000001C0: 48 4F 57 4C 4F 4F 50 20 31 20 31 32 30 20 31 30 |HOWLOOP 1 120 10| 000001D0: 30 0D 20 54 45 4C 4C 20 3A 4F 4C 44 0D 45 4E 44 |0. TELL :OLD.END| 000001E0: 0D 0D 54 4F 20 57 41 49 54 20 3A 53 45 43 4F 4E |..TO WAIT :SECON| 000001F0: 44 53 0D 20 52 45 50 45 41 54 20 3A 53 45 43 4F |DS. REPEAT :SECO| 00000200: 4E 44 53 20 2A 20 33 30 30 20 5B 5D 0D 45 4E 44 |NDS * 300 [].END| 00000210: 0D 0D 54 4F 20 52 55 4E 4E 0D 20 49 46 20 52 43 |..TO RUNN. IF RC| 00000220: 3F 20 53 54 4F 50 0D 20 52 45 50 45 41 54 20 31 |? STOP. REPEAT 1| 00000230: 31 20 5B 52 55 4E 4C 4F 4F 50 20 34 5D 0D 20 52 |1 [RUNLOOP 4]. R| 00000240: 55 4E 4E 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F 57 |UNN.END..TO SHOW| 00000250: 4C 4F 4F 50 20 3A 43 55 52 52 45 4E 54 20 3A 58 |LOOP :CURRENT :X| 00000260: 20 3A 59 0D 20 49 46 20 3A 43 55 52 52 45 4E 54 | :Y. IF :CURRENT| 00000270: 20 3D 20 38 20 53 54 4F 50 0D 20 54 45 4C 4C 20 | = 8 STOP. TELL | 00000280: 3A 43 55 52 52 45 4E 54 20 53 45 54 53 48 41 50 |:CURRENT SETSHAP| 00000290: 45 20 3A 43 55 52 52 45 4E 54 0D 20 53 45 54 58 |E :CURRENT. SETX| 000002A0: 59 20 3A 58 20 3A 59 0D 20 53 4D 41 4C 4C 58 20 |Y :X :Y. SMALLX | 000002B0: 53 4D 41 4C 4C 59 20 53 54 0D 20 53 48 4F 57 4C |SMALLY ST. SHOWL| 000002C0: 4F 4F 50 20 3A 43 55 52 52 45 4E 54 20 2B 20 31 |OOP :CURRENT + 1| 000002D0: 20 3A 58 20 3A 59 20 2D 20 33 30 0D 45 4E 44 0D | :X :Y - 30.END.| 000002E0: 0D 54 4F 20 52 55 4E 4C 4F 4F 50 20 3A 53 48 41 |.TO RUNLOOP :SHA| 000002F0: 50 45 0D 20 49 46 20 3A 53 48 41 50 45 20 3D 20 |PE. IF :SHAPE = | 00000300: 37 20 53 54 4F 50 0D 20 46 44 20 33 30 0D 20 53 |7 STOP. FD 30. S| 00000310: 45 54 53 48 41 50 45 20 3A 53 48 41 50 45 0D 20 |ETSHAPE :SHAPE. | 00000320: 52 55 4E 4C 4F 4F 50 20 3A 53 48 41 50 45 20 2B |RUNLOOP :SHAPE +| 00000330: 20 31 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 53 54 | 1.END..MAKE "ST| 00000340: 41 52 54 55 50 20 5B 44 45 4D 4F 5D 0D |ARTUP [DEMO]. |
. TO DEMO. READ "LG-SPRITES. READSHAPES "LG-RUNNER. 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 HOME BIGX BIGY SETHEADING 90 PENCOLOR 1. WAIT 3. MAKE "STANCE 8. REPEAT 6 [MA KE "STANCE :STANCE - 1 TELL :STANCE HT]. TELL 1. SETSHAPE 2 WAIT 1 / 2. SETSHAPE 3 RUNN. SETSHAPE 2 WAIT 1 / 2. SETSHAPE 1 WAIT 1. SETSHAPE 7 WAIT 4. SHOW.END.. TO SHOW. LOCAL "OLD. MAKE "OLD WHO. TELL 0 HT. SHOWLOOP 1 120 100. TELL :OLD.END ..TO WAIT :SECONDS. REPEAT :SECONDS * 30 0 [].END..TO RUNN. IF RC? STOP. REPEAT 1 1 [RUNLOOP 4]. RUNN.END..TO SHOWLOOP :CU RRENT :X :Y. IF :CURRENT = 8 STOP. TELL :CURRENT SETSHAPE :CURRENT. SETXY :X :Y. SMALLX SMALLY ST. SHOWLOOP :CURRENT + 1 :X :Y - 30.END..TO RUNLOOP :SHAPE. IF : SHAPE = 7 STOP. FD 30. SETSHAPE :SHAPE. RUNLOOP :SHAPE + 1.END..MAKE "STARTUP [D EMO].
> CLICK IMAGE PREVIEW FOR FULL MODAL