DEMO.LOGO
FILE INFORMATION
FILENAME(S): DEMO.LOGO
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-02 16:30:34
APPEARS ON: 1 disk(s)
FILE HASH
1b0e8ac37319b305e03d629e24c9a3f7764be08b6a1e6841e93113786ee5946d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NG USERS 11A | DEMO.LOGO | PRG | Treasure Chest - OzzyC64 | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 53 50 52 49 54 45 2E 55 20 3A 58 |. TO SPRITE.U :X| 00000010: 31 20 3A 58 32 20 3A 59 31 20 3A 59 32 0D 49 46 |1 :X2 :Y1 :Y2.IF| 00000020: 20 41 4C 4C 4F 46 20 28 20 3A 58 31 20 3E 20 3A | ALLOF ( :X1 > :| 00000030: 58 32 20 29 20 28 20 3A 59 31 20 3C 20 3A 59 32 |X2 ) ( :Y1 < :Y2| 00000040: 20 29 20 53 54 4F 50 0D 49 46 20 4E 4F 54 20 3A | ) STOP.IF NOT :| 00000050: 58 31 20 3E 20 3A 58 32 20 53 50 52 49 54 45 2E |X1 > :X2 SPRITE.| 00000060: 58 20 3A 58 31 0D 49 46 20 4E 4F 54 20 3A 59 31 |X :X1.IF NOT :Y1| 00000070: 20 3C 20 3A 59 32 20 53 50 52 49 54 45 2E 59 20 | < :Y2 SPRITE.Y | 00000080: 3A 59 31 0D 49 46 20 41 4C 4C 4F 46 20 28 20 3A |:Y1.IF ALLOF ( :| 00000090: 58 31 20 3E 20 3A 58 32 20 29 20 28 20 4E 4F 54 |X1 > :X2 ) ( NOT| 000000A0: 20 3A 59 31 20 3C 20 3A 59 32 20 29 20 53 50 52 | :Y1 < :Y2 ) SPR| 000000B0: 49 54 45 2E 55 20 3A 58 31 20 3A 58 32 20 3A 59 |ITE.U :X1 :X2 :Y| 000000C0: 31 20 2D 20 32 20 3A 59 32 0D 49 46 20 41 4C 4C |1 - 2 :Y2.IF ALL| 000000D0: 4F 46 20 28 20 4E 4F 54 20 3A 58 31 20 3E 20 3A |OF ( NOT :X1 > :| 000000E0: 58 32 20 29 20 28 20 3A 59 31 20 3C 20 3A 59 32 |X2 ) ( :Y1 < :Y2| 000000F0: 20 29 20 53 50 52 49 54 45 2E 55 20 3A 58 31 20 | ) SPRITE.U :X1 | 00000100: 2B 20 32 20 3A 58 32 20 3A 59 31 20 3A 59 32 0D |+ 2 :X2 :Y1 :Y2.| 00000110: 49 46 20 41 4C 4C 4F 46 20 28 20 4E 4F 54 20 3A |IF ALLOF ( NOT :| 00000120: 58 31 20 3E 20 3A 58 32 20 29 20 28 20 4E 4F 54 |X1 > :X2 ) ( NOT| 00000130: 20 3A 59 31 20 3C 20 3A 59 32 20 29 20 53 50 52 | :Y1 < :Y2 ) SPR| 00000140: 49 54 45 2E 55 20 3A 58 31 20 2B 20 32 20 3A 58 |ITE.U :X1 + 2 :X| 00000150: 32 20 3A 59 31 20 2D 20 32 20 3A 59 32 0D 45 4E |2 :Y1 - 2 :Y2.EN| 00000160: 44 0D 0D 54 4F 20 53 50 52 49 54 45 2E 58 4D 20 |D..TO SPRITE.XM | 00000170: 3A 58 31 20 3A 58 32 0D 20 49 46 20 3A 58 31 20 |:X1 :X2. IF :X1 | 00000180: 3D 20 3A 58 32 20 53 54 4F 50 0D 20 53 50 52 49 |= :X2 STOP. SPRI| 00000190: 54 45 2E 58 20 3A 58 31 0D 20 53 50 52 49 54 45 |TE.X :X1. SPRITE| 000001A0: 2E 58 4D 20 3A 58 31 20 2B 20 31 20 3A 58 32 0D |.XM :X1 + 1 :X2.| 000001B0: 45 4E 44 0D 0D 54 4F 20 44 45 4D 4F 2E 34 34 0D |END..TO DEMO.44.| 000001C0: 20 44 52 41 57 20 50 43 20 35 20 2E 47 43 4F 4C | DRAW PC 5 .GCOL| 000001D0: 4C 0D 20 53 54 20 50 4F 53 20 2D 20 37 30 20 39 |L. ST POS - 70 9| 000001E0: 30 0D 20 50 44 20 53 45 54 48 20 31 38 30 20 46 |0. PD SETH 180 F| 000001F0: 44 20 31 30 30 0D 20 53 50 52 49 54 45 2E 59 4D |D 100. SPRITE.YM| 00000200: 20 37 35 20 31 35 30 0D 20 53 45 54 48 20 39 30 | 75 150. SETH 90| 00000210: 20 46 44 20 35 30 0D 20 53 50 52 49 54 45 2E 58 | FD 50. SPRITE.X| 00000220: 4D 20 37 35 20 31 33 38 0D 20 53 45 54 48 20 32 |M 75 138. SETH 2| 00000230: 37 30 20 50 55 0D 20 52 45 50 45 41 54 20 35 20 |70 PU. REPEAT 5 | 00000240: 5B 53 45 54 59 20 30 20 53 45 54 59 20 2D 31 35 |[SETY 0 SETY -15| 00000250: 5D 0D 20 53 45 54 59 20 2D 20 31 30 20 53 45 54 |]. SETY - 10 SET| 00000260: 48 20 39 30 20 46 44 20 38 0D 20 53 45 54 48 20 |H 90 FD 8. SETH | 00000270: 30 20 46 44 20 32 30 20 50 44 0D 20 52 45 50 45 |0 FD 20 PD. REPE| 00000280: 41 54 20 33 30 20 5B 46 44 20 35 20 52 54 20 33 |AT 30 [FD 5 RT 3| 00000290: 36 30 2F 33 30 5D 0D 20 53 45 54 48 20 39 30 20 |60/30]. SETH 90 | 000002A0: 50 55 20 46 44 20 36 30 0D 20 53 50 52 49 54 45 |PU FD 60. SPRITE| 000002B0: 2E 55 20 31 34 30 20 31 38 36 20 31 35 30 20 31 |.U 140 186 150 1| 000002C0: 33 33 0D 20 53 45 54 48 20 30 20 50 44 20 52 45 |33. SETH 0 PD RE| 000002D0: 50 45 41 54 20 33 30 20 5B 46 44 20 35 20 52 54 |PEAT 30 [FD 5 RT| 000002E0: 20 33 36 30 2F 33 30 5D 0D 20 50 55 20 53 45 54 | 360/30]. PU SET| 000002F0: 48 20 39 30 20 46 44 20 34 37 0D 20 53 50 52 49 |H 90 FD 47. SPRI| 00000300: 54 45 2E 58 4D 20 31 38 36 20 32 35 30 0D 20 50 |TE.XM 186 250. P| 00000310: 55 20 53 45 54 48 20 32 37 30 20 52 45 50 45 41 |U SETH 270 REPEA| 00000320: 54 20 35 20 5B 53 45 54 59 20 32 30 20 53 45 54 |T 5 [SETY 20 SET| 00000330: 59 20 31 30 5D 0D 20 53 45 54 48 20 31 38 30 20 |Y 10]. SETH 180 | 00000340: 50 44 20 46 44 20 37 30 0D 20 52 45 50 45 41 54 |PD FD 70. REPEAT| 00000350: 20 31 35 20 5B 46 44 20 35 20 52 54 20 33 36 30 | 15 [FD 5 RT 360| 00000360: 2F 33 30 5D 0D 20 50 55 20 53 45 54 48 20 33 35 |/30]. PU SETH 35| 00000370: 20 46 44 20 39 35 0D 20 53 45 54 48 20 30 20 50 | FD 95. SETH 0 P| 00000380: 44 20 52 45 50 45 41 54 20 33 30 20 5B 46 44 20 |D REPEAT 30 [FD | 00000390: 35 20 52 54 20 33 36 30 2F 33 30 5D 0D 20 53 50 |5 RT 360/30]. SP| 000003A0: 52 49 54 45 2E 55 20 32 35 30 20 32 35 31 20 31 |RITE.U 250 251 1| 000003B0: 33 33 20 33 30 0D 45 4E 44 0D 0D 54 4F 20 53 50 |33 30.END..TO SP| 000003C0: 49 4E 53 51 55 41 52 45 20 3A 53 49 5A 45 0D 20 |INSQUARE :SIZE. | 000003D0: 50 43 20 30 20 49 46 20 3A 53 49 5A 45 20 3E 20 |PC 0 IF :SIZE > | 000003E0: 31 31 35 20 53 54 4F 50 0D 20 50 4F 4C 59 20 34 |115 STOP. POLY 4| 000003F0: 20 3A 53 49 5A 45 20 39 30 0D 20 52 54 20 31 30 | :SIZE 90. RT 10| 00000400: 0D 20 53 50 49 4E 53 51 55 41 52 45 20 3A 53 49 |. SPINSQUARE :SI| 00000410: 5A 45 20 2B 20 33 0D 45 4E 44 0D 0D 54 4F 20 44 |ZE + 3.END..TO D| 00000420: 45 4D 4F 2E 34 32 0D 20 44 52 41 57 20 50 43 20 |EMO.42. DRAW PC | 00000430: 30 0D 20 50 4F 53 20 2D 20 31 30 30 20 35 35 0D |0. POS - 100 55.| 00000440: 20 53 54 41 4D 50 20 5B CC 4F 54 53 20 4F 46 20 | STAMP [.OTS OF | 00000450: D3 51 55 41 52 45 53 5D 20 2E 47 43 4F 4C 4C 0D |.QUARES] .GCOLL.| 00000460: 20 50 4F 53 20 2D 20 31 30 30 20 33 35 20 50 43 | POS - 100 35 PC| 00000470: 20 36 0D 20 53 54 41 4D 50 20 5B CC 4F 47 4F 20 | 6. STAMP [.OGO | 00000480: 41 4C 4C 4F 57 53 20 41 20 50 52 4F 43 45 44 55 |ALLOWS A PROCEDU| 00000490: 52 45 20 54 4F 5D 0D 20 50 4F 53 20 2D 20 31 30 |RE TO]. POS - 10| 000004A0: 30 20 32 35 0D 20 53 54 41 4D 50 20 5B 52 45 50 |0 25. STAMP [REP| 000004B0: 45 41 54 20 49 54 53 45 4C 46 2E 20 D3 49 4D 50 |EAT ITSELF. .IMP| 000004C0: 4C 45 20 50 52 4F 43 45 44 55 52 45 53 5D 0D 20 |LE PROCEDURES]. | 000004D0: 50 4F 53 20 2D 20 31 30 30 20 28 20 31 35 20 29 |POS - 100 ( 15 )| 000004E0: 0D 20 53 54 41 4D 50 20 5B 43 41 4E 20 4C 45 41 |. STAMP [CAN LEA| 000004F0: 44 20 54 4F 20 53 50 45 43 54 41 43 55 4C 41 52 |D TO SPECTACULAR| 00000500: 20 52 45 53 55 4C 54 53 2E 5D 0D 20 50 4F 53 20 | RESULTS.]. POS | 00000510: 2D 20 31 30 30 20 28 20 2D 20 35 20 29 20 50 43 |- 100 ( - 5 ) PC| 00000520: 20 32 0D 20 55 43 2E 47 52 41 50 48 49 43 53 0D | 2. UC.GRAPHICS.| 00000530: 20 53 54 41 4D 50 20 5B 54 4F 20 53 50 49 4E 53 | STAMP [TO SPINS| 00000540: 51 55 41 52 45 20 3A 53 49 5A 45 5D 0D 20 50 4F |QUARE :SIZE]. PO| 00000550: 53 20 2D 20 31 30 30 20 28 20 2D 20 31 35 20 29 |S - 100 ( - 15 )| 00000560: 0D 20 53 54 41 4D 50 20 5B 52 45 50 45 41 54 20 |. STAMP [REPEAT | 00000570: 34 20 27 5B 46 4F 52 57 41 52 44 27 20 3A 53 49 |4 '[FORWARD' :SI| 00000580: 5A 45 20 52 49 47 48 54 20 27 39 30 5D 27 5D 0D |ZE RIGHT '90]'].| 00000590: 20 50 4F 53 20 2D 20 31 30 30 20 28 20 2D 20 33 | POS - 100 ( - 3| 000005A0: 35 20 29 0D 20 53 54 41 4D 50 20 5B 52 49 47 48 |5 ). STAMP [RIGH| 000005B0: 54 20 31 30 5D 0D 20 50 4F 53 20 2D 20 31 30 30 |T 10]. POS - 100| 000005C0: 20 28 20 2D 20 34 35 20 29 0D 20 53 54 41 4D 50 | ( - 45 ). STAMP| 000005D0: 20 5B 53 50 49 4E 53 51 55 41 52 45 20 3A 53 49 | [SPINSQUARE :SI| 000005E0: 5A 45 20 2B 20 33 5D 0D 20 50 4F 53 20 2D 20 31 |ZE + 3]. POS - 1| 000005F0: 30 30 20 28 20 2D 20 35 35 20 29 0D 20 53 54 41 |00 ( - 55 ). STA| 00000600: 4D 50 20 5B 45 4E 44 5D 0D 20 4C 4F 57 45 52 43 |MP [END]. LOWERC| 00000610: 41 53 45 0D 20 52 45 50 45 41 54 20 37 30 30 20 |ASE. REPEAT 700 | 00000620: 5B 50 55 20 50 44 5D 20 44 52 41 57 20 50 4F 53 |[PU PD] DRAW POS| 00000630: 20 35 20 28 20 2D 20 33 30 20 29 20 50 44 0D 20 | 5 ( - 30 ) PD. | 00000640: 53 50 49 4E 53 51 55 41 52 45 20 32 35 0D 45 4E |SPINSQUARE 25.EN| 00000650: 44 0D 0D 54 4F 20 53 54 41 4D 50 31 20 3A 54 48 |D..TO STAMP1 :TH| 00000660: 49 4E 47 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A |ING. IF EMPTY? :| 00000670: 54 48 49 4E 47 20 53 54 4F 50 0D 20 49 46 20 4C |THING STOP. IF L| 00000680: 49 53 54 3F 20 3A 54 48 49 4E 47 20 53 54 41 4D |IST? :THING STAM| 00000690: 50 31 20 46 49 52 53 54 20 3A 54 48 49 4E 47 20 |P1 FIRST :THING | 000006A0: 46 44 20 38 20 53 54 41 4D 50 31 20 42 46 20 3A |FD 8 STAMP1 BF :| 000006B0: 54 48 49 4E 47 20 53 54 4F 50 0D 20 53 54 41 4D |THING STOP. STAM| 000006C0: 50 43 48 41 52 20 46 49 52 53 54 20 3A 54 48 49 |PCHAR FIRST :THI| 000006D0: 4E 47 20 46 44 20 38 20 53 54 41 4D 50 31 20 42 |NG FD 8 STAMP1 B| 000006E0: 46 20 3A 54 48 49 4E 47 0D 45 4E 44 0D 0D 54 4F |F :THING.END..TO| 000006F0: 20 53 54 41 52 54 0D 20 3B 20 56 45 52 53 49 4F | START. ; VERSIO| 00000700: 4E 20 32 20 36 2F 34 2F 38 33 0D 20 42 4C 4F 41 |N 2 6/4/83. BLOA| 00000710: 44 20 22 43 2E 53 48 41 50 45 53 0D 20 44 45 4D |D "C.SHAPES. DEM| 00000720: 4F 0D 45 4E 44 0D 0D 54 4F 20 4C 4F 57 45 52 43 |O.END..TO LOWERC| 00000730: 41 53 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 54 |ASE. .OPTION "ST| 00000740: 41 4D 50 43 48 41 52 20 31 20 31 0D 45 4E 44 0D |AMPCHAR 1 1.END.| 00000750: 0D 54 4F 20 55 43 2E 47 52 41 50 48 49 43 53 0D |.TO UC.GRAPHICS.| 00000760: 20 2E 4F 50 54 49 4F 4E 20 22 53 54 41 4D 50 43 | .OPTION "STAMPC| 00000770: 48 41 52 20 31 20 30 0D 45 4E 44 0D 0D 54 4F 20 |HAR 1 0.END..TO | 00000780: 42 55 4C 4C 45 54 0D 20 55 43 2E 47 52 41 50 48 |BULLET. UC.GRAPH| 00000790: 49 43 53 0D 20 53 54 41 4D 50 20 5B D1 5D 0D 20 |ICS. STAMP [.]. | 000007A0: 4C 4F 57 45 52 43 41 53 45 0D 45 4E 44 0D 0D 54 |LOWERCASE.END..T| 000007B0: 4F 20 44 45 4D 4F 2E 31 0D 20 44 52 41 57 0D 20 |O DEMO.1. DRAW. | 000007C0: 46 52 41 4D 45 0D 20 50 4F 53 20 2D 20 31 34 30 |FRAME. POS - 140| 000007D0: 20 35 35 0D 20 50 43 20 36 20 42 55 4C 4C 45 54 | 55. PC 6 BULLET| 000007E0: 20 53 54 41 4D 50 20 5B D4 55 52 54 4C 45 20 C7 | STAMP [.URTLE .| 000007F0: 52 41 50 48 49 43 53 5D 0D 20 50 4F 53 20 2D 20 |RAPHICS]. POS - | 00000800: 31 34 30 20 34 35 0D 20 42 55 4C 4C 45 54 20 53 |140 45. BULLET S| 00000810: 54 41 4D 50 20 5B D3 50 52 49 54 45 53 5D 0D 20 |TAMP [.PRITES]. | 00000820: 50 4F 53 20 28 20 2D 20 31 34 30 20 29 20 33 35 |POS ( - 140 ) 35| 00000830: 0D 20 42 55 4C 4C 45 54 20 53 54 41 4D 50 20 5B |. BULLET STAMP [| 00000840: D3 4F 55 4E 44 5D 0D 20 50 4F 53 20 35 20 35 35 |.OUND]. POS 5 55| 00000850: 0D 20 42 55 4C 4C 45 54 20 53 54 41 4D 50 20 5B |. BULLET STAMP [| 00000860: CC 41 52 47 45 20 D7 4F 52 4B 53 50 41 43 45 5D |.ARGE .ORKSPACE]| 00000870: 0D 20 50 4F 53 20 35 20 34 35 0D 20 42 55 4C 4C |. POS 5 45. BULL| 00000880: 45 54 20 53 54 41 4D 50 20 5B C5 41 53 59 20 54 |ET STAMP [.ASY T| 00000890: 4F 20 4C 45 41 52 4E 5D 0D 20 50 4F 53 20 35 20 |O LEARN]. POS 5 | 000008A0: 33 35 0D 20 42 55 4C 4C 45 54 20 53 54 41 4D 50 |35. BULLET STAMP| 000008B0: 20 5B D0 4F 57 45 52 46 55 4C 5D 0D 20 50 43 20 | [.OWERFUL]. PC | 000008C0: 32 20 50 4F 53 20 2D 20 31 33 35 20 31 30 0D 20 |2 POS - 135 10. | 000008D0: 53 54 41 4D 50 20 5B C1 20 46 45 57 20 53 49 4D |STAMP [. FEW SIM| 000008E0: 50 4C 45 20 43 4F 4D 4D 41 4E 44 53 20 41 52 45 |PLE COMMANDS ARE| 000008F0: 20 41 4C 4C 5D 0D 20 50 4F 53 20 2D 20 31 33 35 | ALL]. POS - 135| 00000900: 20 30 0D 20 53 54 41 4D 50 20 5B D9 4F 55 20 4E | 0. STAMP [.OU N| 00000910: 45 45 44 20 54 4F 20 43 52 45 41 54 45 2C 5D 0D |EED TO CREATE,].| 00000920: 20 50 4F 53 20 2D 20 34 30 20 28 20 2D 20 31 30 | POS - 40 ( - 10| 00000930: 20 29 0D 20 53 54 41 4D 50 20 5B 4C 45 41 52 4E | ). STAMP [LEARN| 00000940: 2C 5D 0D 20 50 4F 53 20 2D 20 34 30 20 28 20 2D |,]. POS - 40 ( -| 00000950: 20 32 30 20 29 0D 20 53 54 41 4D 50 20 5B 41 4E | 20 ). STAMP [AN| 00000960: 44 20 45 58 50 4C 4F 52 45 5D 0D 20 50 4F 53 20 |D EXPLORE]. POS | 00000970: 2D 20 31 30 30 20 28 20 2D 20 36 30 20 29 20 50 |- 100 ( - 60 ) P| 00000980: 44 0D 20 50 43 20 30 20 53 45 54 48 20 31 38 30 |D. PC 0 SETH 180| 00000990: 20 53 54 0D 20 52 45 50 45 41 54 20 34 20 5B 46 | ST. REPEAT 4 [F| 000009A0: 44 20 33 30 20 4C 54 20 39 30 5D 0D 20 50 55 20 |D 30 LT 90]. PU | 000009B0: 53 45 54 48 20 39 30 20 46 44 20 39 30 20 50 44 |SETH 90 FD 90 PD| 000009C0: 0D 20 50 43 20 34 20 53 45 54 48 20 31 35 30 20 |. PC 4 SETH 150 | 000009D0: 50 4F 4C 59 20 33 20 33 30 20 31 32 30 0D 20 50 |POLY 3 30 120. P| 000009E0: 55 20 53 45 54 48 20 39 30 20 46 44 20 38 30 0D |U SETH 90 FD 80.| 000009F0: 20 50 44 20 50 43 20 30 20 53 45 54 48 20 31 32 | PD PC 0 SETH 12| 00000A00: 30 20 52 45 50 45 41 54 20 35 20 5B 46 44 20 32 |0 REPEAT 5 [FD 2| 00000A10: 30 20 52 54 20 37 32 5D 20 48 54 0D 20 45 4E 44 |0 RT 72] HT. END| 00000A20: 2E 50 41 47 45 0D 45 4E 44 0D 0D 54 4F 20 53 50 |.PAGE.END..TO SP| 00000A30: 52 49 54 45 2E 59 4D 20 3A 59 31 20 3A 59 32 0D |RITE.YM :Y1 :Y2.| 00000A40: 20 49 46 20 3A 59 31 20 3D 20 3A 59 32 20 53 54 | IF :Y1 = :Y2 ST| 00000A50: 4F 50 0D 20 53 50 52 49 54 45 2E 59 20 3A 59 31 |OP. SPRITE.Y :Y1| 00000A60: 0D 20 53 50 52 49 54 45 2E 59 4D 20 3A 59 31 20 |. SPRITE.YM :Y1 | 00000A70: 2B 20 31 20 3A 59 32 0D 45 4E 44 0D 0D 54 4F 20 |+ 1 :Y2.END..TO | 00000A80: 53 50 52 49 54 45 2E 59 20 3A 59 31 0D 20 2E 44 |SPRITE.Y :Y1. .D| 00000A90: 45 50 4F 53 49 54 20 35 33 32 35 31 20 3A 59 31 |EPOSIT 53251 :Y1| 00000AA0: 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 35 35 |. .DEPOSIT 53255| 00000AB0: 20 3A 59 31 0D 20 2E 44 45 50 4F 53 49 54 20 35 | :Y1. .DEPOSIT 5| 00000AC0: 33 32 35 33 20 3A 59 31 0D 45 4E 44 0D 0D 54 4F |3253 :Y1.END..TO| 00000AD0: 20 53 50 52 49 54 45 2E 58 20 3A 58 31 0D 20 2E | SPRITE.X :X1. .| 00000AE0: 44 45 50 4F 53 49 54 20 35 33 32 35 32 20 3A 58 |DEPOSIT 53252 :X| 00000AF0: 31 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 35 |1. .DEPOSIT 5325| 00000B00: 30 20 3A 58 31 0D 20 2E 44 45 50 4F 53 49 54 20 |0 :X1. .DEPOSIT | 00000B10: 35 33 32 35 34 20 3A 58 31 0D 45 4E 44 0D 0D 54 |53254 :X1.END..T| 00000B20: 4F 20 53 50 52 49 54 45 20 3A 58 31 20 3A 58 32 |O SPRITE :X1 :X2| 00000B30: 20 3A 59 31 20 3A 59 32 0D 20 49 46 20 41 4C 4C | :Y1 :Y2. IF ALL| 00000B40: 4F 46 20 28 20 3A 58 31 20 3E 20 3A 58 32 20 29 |OF ( :X1 > :X2 )| 00000B50: 20 28 20 3A 59 31 20 3E 20 3A 59 32 20 29 20 53 | ( :Y1 > :Y2 ) S| 00000B60: 54 4F 50 0D 20 49 46 20 4E 4F 54 20 3A 58 31 20 |TOP. IF NOT :X1 | 00000B70: 3E 20 3A 58 32 20 53 50 52 49 54 45 2E 58 20 3A |> :X2 SPRITE.X :| 00000B80: 58 31 0D 20 49 46 20 4E 4F 54 20 3A 59 31 20 3E |X1. IF NOT :Y1 >| 00000B90: 20 3A 59 32 20 53 50 52 49 54 45 2E 59 20 3A 59 | :Y2 SPRITE.Y :Y| 00000BA0: 31 0D 20 49 46 20 41 4C 4C 4F 46 20 28 20 3A 58 |1. IF ALLOF ( :X| 00000BB0: 31 20 3E 20 3A 58 32 20 29 20 28 20 4E 4F 54 20 |1 > :X2 ) ( NOT | 00000BC0: 3A 59 31 20 3E 20 3A 59 32 20 29 20 53 50 52 49 |:Y1 > :Y2 ) SPRI| 00000BD0: 54 45 20 3A 58 31 20 3A 58 32 20 3A 59 31 20 2B |TE :X1 :X2 :Y1 +| 00000BE0: 20 32 20 3A 59 32 0D 20 49 46 20 41 4C 4C 4F 46 | 2 :Y2. IF ALLOF| 00000BF0: 20 28 20 4E 4F 54 20 3A 58 31 20 3E 20 3A 58 32 | ( NOT :X1 > :X2| 00000C00: 20 29 20 28 20 3A 59 31 20 3E 20 3A 59 32 20 29 | ) ( :Y1 > :Y2 )| 00000C10: 20 53 50 52 49 54 45 20 3A 58 31 20 2B 20 32 20 | SPRITE :X1 + 2 | 00000C20: 3A 58 32 20 3A 59 31 20 3A 59 32 0D 20 49 46 20 |:X2 :Y1 :Y2. IF | 00000C30: 41 4C 4C 4F 46 20 28 20 4E 4F 54 20 3A 58 31 20 |ALLOF ( NOT :X1 | 00000C40: 3E 20 3A 58 32 20 29 20 28 20 4E 4F 54 20 3A 59 |> :X2 ) ( NOT :Y| 00000C50: 31 20 3E 20 3A 59 32 20 29 20 53 50 52 49 54 45 |1 > :Y2 ) SPRITE| 00000C60: 20 3A 58 31 20 2B 20 32 20 3A 58 32 20 3A 59 31 | :X1 + 2 :X2 :Y1| 00000C70: 20 2B 20 32 20 3A 59 32 0D 45 4E 44 0D 0D 54 4F | + 2 :Y2.END..TO| 00000C80: 20 4C 4F 47 4F 2E 50 0D 20 50 4F 53 20 2D 20 35 | LOGO.P. POS - 5| 00000C90: 30 20 38 30 0D 20 3B 20 4C 0D 20 53 45 54 48 20 |0 80. ; L. SETH | 00000CA0: 30 20 50 44 20 46 44 20 32 30 20 42 4B 20 32 30 |0 PD FD 20 BK 20| 00000CB0: 0D 20 53 45 54 48 20 39 30 20 46 44 20 31 30 0D |. SETH 90 FD 10.| 00000CC0: 20 3B 20 4F 0D 20 50 55 20 46 44 20 34 20 53 45 | ; O. PU FD 4 SE| 00000CD0: 54 48 20 30 20 46 44 20 35 20 50 44 0D 20 52 45 |TH 0 FD 5 PD. RE| 00000CE0: 50 45 41 54 20 32 30 20 5B 46 44 20 32 20 52 54 |PEAT 20 [FD 2 RT| 00000CF0: 20 31 38 5D 0D 20 3B 20 47 0D 20 50 55 20 53 45 | 18]. ; G. PU SE| 00000D00: 54 48 20 39 30 20 46 44 20 31 39 20 53 45 54 48 |TH 90 FD 19 SETH| 00000D10: 20 30 20 50 44 0D 20 52 45 50 45 41 54 20 32 30 | 0 PD. REPEAT 20| 00000D20: 20 5B 46 44 20 32 20 52 54 20 31 38 5D 0D 20 50 | [FD 2 RT 18]. P| 00000D30: 55 20 53 45 54 48 20 39 30 20 46 44 20 31 33 20 |U SETH 90 FD 13 | 00000D40: 50 44 0D 20 53 45 54 48 20 31 38 30 20 46 44 20 |PD. SETH 180 FD | 00000D50: 31 35 0D 20 52 45 50 45 41 54 20 31 30 20 5B 46 |15. REPEAT 10 [F| 00000D60: 44 20 32 20 52 54 20 31 38 5D 0D 20 3B 20 4F 0D |D 2 RT 18]. ; O.| 00000D70: 20 50 55 20 46 44 20 31 37 20 53 45 54 48 20 39 | PU FD 17 SETH 9| 00000D80: 30 20 46 44 20 31 39 20 53 45 54 48 20 30 0D 20 |0 FD 19 SETH 0. | 00000D90: 50 44 20 52 45 50 45 41 54 20 32 30 20 5B 46 44 |PD REPEAT 20 [FD| 00000DA0: 20 32 20 52 54 20 31 38 5D 0D 45 4E 44 0D 0D 54 | 2 RT 18].END..T| 00000DB0: 4F 20 46 52 41 4D 45 0D 20 46 55 4C 4C 53 43 52 |O FRAME. FULLSCR| 00000DC0: 45 45 4E 20 48 54 0D 20 50 4F 53 20 2D 20 31 35 |EEN HT. POS - 15| 00000DD0: 30 20 31 32 35 20 53 45 54 48 20 39 30 20 50 44 |0 125 SETH 90 PD| 00000DE0: 0D 20 42 47 20 31 20 50 43 20 30 0D 20 52 45 50 |. BG 1 PC 0. REP| 00000DF0: 45 41 54 20 32 20 5B 46 44 20 33 30 30 20 52 54 |EAT 2 [FD 300 RT| 00000E00: 20 39 30 20 46 44 20 32 35 30 20 52 54 20 39 30 | 90 FD 250 RT 90| 00000E10: 5D 0D 20 54 45 4C 4C 20 31 20 53 54 20 54 45 4C |]. TELL 1 ST TEL| 00000E20: 4C 20 32 20 53 54 20 54 45 4C 4C 20 33 20 53 54 |L 2 ST TELL 3 ST| 00000E30: 20 54 45 4C 4C 20 30 0D 20 53 50 52 49 54 45 20 | TELL 0. SPRITE | 00000E40: 37 34 20 37 35 20 35 33 20 35 34 0D 20 2E 44 45 |74 75 53 54. .DE| 00000E50: 50 4F 53 49 54 20 35 33 32 38 38 20 36 0D 20 2E |POSIT 53288 6. .| 00000E60: 44 45 50 4F 53 49 54 20 35 33 32 38 39 20 36 20 |DEPOSIT 53289 6 | 00000E70: 2E 44 45 50 4F 53 49 54 20 35 33 32 39 30 20 32 |.DEPOSIT 53290 2| 00000E80: 0D 20 50 55 20 53 45 54 58 59 20 2D 20 38 35 20 |. PU SETXY - 85 | 00000E90: 31 32 30 20 53 45 54 48 20 30 0D 20 53 54 20 53 |120 SETH 0. ST S| 00000EA0: 54 41 4D 50 20 5B C3 20 CF 20 CD 20 CD 20 CF 20 |TAMP [. . . . . | 00000EB0: C4 20 CF 20 D2 20 C5 20 27 20 27 20 36 20 34 5D |. . . . ' ' 6 4]| 00000EC0: 20 48 54 0D 20 50 4F 53 20 2D 20 31 35 30 20 31 | HT. POS - 150 1| 00000ED0: 30 35 20 50 44 20 53 45 54 48 20 39 30 20 46 44 |05 PD SETH 90 FD| 00000EE0: 20 33 30 30 0D 20 53 50 52 49 54 45 2E 59 4D 20 | 300. SPRITE.YM | 00000EF0: 35 33 20 37 35 20 53 54 20 4C 4F 47 4F 2E 50 20 |53 75 ST LOGO.P | 00000F00: 48 54 20 50 4F 53 20 2D 20 31 35 30 20 37 35 20 |HT POS - 150 75 | 00000F10: 50 44 20 53 45 54 48 20 39 30 20 46 44 20 33 30 |PD SETH 90 FD 30| 00000F20: 30 0D 20 2E 47 43 4F 4C 4C 0D 45 4E 44 0D 0D 54 |0. .GCOLL.END..T| 00000F30: 4F 20 44 45 4D 4F 2E 32 20 3A 43 0D 20 49 46 20 |O DEMO.2 :C. IF | 00000F40: 3A 43 20 3D 20 35 20 53 54 4F 50 0D 20 44 52 41 |:C = 5 STOP. DRA| 00000F50: 57 0D 20 46 52 41 4D 45 0D 20 50 4F 53 20 2D 20 |W. FRAME. POS - | 00000F60: 31 33 35 20 35 35 0D 20 50 43 20 30 20 53 54 41 |135 55. PC 0 STA| 00000F70: 4D 50 20 5B D3 45 45 20 57 48 41 54 20 CC 4F 47 |MP [.EE WHAT .OG| 00000F80: 4F 20 43 41 4E 20 44 4F 3A 5D 0D 20 50 4F 53 20 |O CAN DO:]. POS | 00000F90: 2D 20 31 33 35 20 33 35 0D 20 50 43 20 36 20 53 |- 135 35. PC 6 S| 00000FA0: 54 41 4D 50 20 5B 31 20 C4 52 41 57 20 41 20 D3 |TAMP [1 .RAW A .| 00000FB0: 51 55 41 52 45 5D 0D 20 50 4F 53 20 2D 20 31 33 |QUARE]. POS - 13| 00000FC0: 35 20 31 35 0D 20 53 54 41 4D 50 20 5B 32 20 CC |5 15. STAMP [2 .| 00000FD0: 4F 54 53 20 4F 46 20 D3 51 55 41 52 45 53 5D 0D |OTS OF .QUARES].| 00000FE0: 20 50 4F 53 20 2D 20 31 33 35 20 28 20 2D 20 35 | POS - 135 ( - 5| 00000FF0: 20 29 0D 20 53 54 41 4D 50 20 5B 33 20 D3 49 4E | ). STAMP [3 .IN| 00001000: 47 49 4E 47 20 D3 54 41 52 53 5D 0D 20 50 4F 53 |GING .TARS]. POS| 00001010: 20 2D 20 31 33 35 20 28 20 2D 20 33 35 20 29 0D | - 135 ( - 35 ).| 00001020: 20 53 54 41 4D 50 20 5B 34 20 D3 50 52 49 54 45 | STAMP [4 .PRITE| 00001030: 53 5D 0D 20 50 4F 53 20 2D 20 31 33 35 20 28 20 |S]. POS - 135 ( | 00001040: 2D 20 36 35 20 29 0D 20 50 43 20 32 20 53 54 41 |- 65 ). PC 2 STA| 00001050: 4D 50 20 5B C5 4E 54 45 52 20 59 4F 55 52 20 53 |MP [.NTER YOUR S| 00001060: 45 4C 45 43 54 49 4F 4E 3A 5D 0D 20 53 45 54 59 |ELECTION:]. SETY| 00001070: 20 2D 20 36 30 20 53 54 0D 20 44 45 4D 4F 2E 33 | - 60 ST. DEMO.3| 00001080: 20 31 20 49 46 20 3A 46 4C 20 3D 20 31 20 4D 41 | 1 IF :FL = 1 MA| 00001090: 4B 45 20 22 46 4C 20 30 20 44 45 4D 4F 2E 34 31 |KE "FL 0 DEMO.41| 000010A0: 20 45 4E 44 2E 50 41 47 45 20 53 54 4F 50 0D 20 | END.PAGE STOP. | 000010B0: 44 45 4D 4F 2E 32 20 3A 43 20 2B 20 31 0D 45 4E |DEMO.2 :C + 1.EN| 000010C0: 44 0D 0D 54 4F 20 44 45 4D 4F 2E 33 20 3A 4E 0D |D..TO DEMO.3 :N.| 000010D0: 20 49 46 20 3A 4E 20 3E 20 31 30 30 30 20 4D 41 | IF :N > 1000 MA| 000010E0: 4B 45 20 22 46 4C 20 31 20 53 54 4F 50 0D 20 49 |KE "FL 1 STOP. I| 000010F0: 46 20 52 43 3F 20 44 45 4D 4F 2E 34 20 52 43 20 |F RC? DEMO.4 RC | 00001100: 49 46 20 3A 51 46 20 3D 20 31 20 4D 41 4B 45 20 |IF :QF = 1 MAKE | 00001110: 22 51 46 20 30 20 53 54 4F 50 0D 20 44 45 4D 4F |"QF 0 STOP. DEMO| 00001120: 2E 33 20 3A 4E 20 2B 20 31 0D 45 4E 44 0D 0D 54 |.3 :N + 1.END..T| 00001130: 4F 20 44 45 4D 4F 2E 34 31 0D 20 44 52 41 57 20 |O DEMO.41. DRAW | 00001140: 50 43 20 30 0D 20 50 4F 53 20 2D 20 31 30 30 20 |PC 0. POS - 100 | 00001150: 36 35 0D 20 53 54 41 4D 50 20 5B D4 4F 20 44 52 |65. STAMP [.O DR| 00001160: 41 57 20 41 20 53 51 55 41 52 45 3A 5D 0D 20 50 |AW A SQUARE:]. P| 00001170: 4F 53 20 2D 20 31 30 30 20 34 35 20 50 43 20 36 |OS - 100 45 PC 6| 00001180: 0D 20 53 54 41 4D 50 20 5B C1 20 53 51 55 41 52 |. STAMP [. SQUAR| 00001190: 45 20 48 41 53 20 46 4F 55 52 20 53 49 44 45 53 |E HAS FOUR SIDES| 000011A0: 20 41 4E 44 20 46 4F 55 52 5D 0D 20 50 4F 53 20 | AND FOUR]. POS | 000011B0: 2D 20 31 30 30 20 33 35 0D 20 53 54 41 4D 50 20 |- 100 35. STAMP | 000011C0: 5B 39 30 20 44 45 47 52 45 45 20 41 4E 47 4C 45 |[90 DEGREE ANGLE| 000011D0: 53 2E 20 D4 4F 20 44 52 41 57 20 41 5D 0D 20 50 |S. .O DRAW A]. P| 000011E0: 4F 53 20 2D 20 31 30 30 20 32 35 0D 20 53 54 41 |OS - 100 25. STA| 000011F0: 4D 50 20 5B 53 51 55 41 52 45 20 57 49 54 48 20 |MP [SQUARE WITH | 00001200: 53 49 44 45 53 20 35 30 20 53 54 45 50 53 20 4C |SIDES 50 STEPS L| 00001210: 4F 4E 47 5D 0D 20 50 4F 53 20 2D 20 31 30 30 20 |ONG]. POS - 100 | 00001220: 31 35 0D 20 53 54 41 4D 50 20 5B 49 53 20 45 41 |15. STAMP [IS EA| 00001230: 53 59 2E 20 C8 45 52 45 20 49 53 20 54 48 45 20 |SY. .ERE IS THE | 00001240: 50 52 4F 47 52 41 4D 3A 5D 20 2E 47 43 4F 4C 4C |PROGRAM:] .GCOLL| 00001250: 0D 20 50 4F 53 20 2D 20 31 30 30 20 28 20 2D 20 |. POS - 100 ( - | 00001260: 35 20 29 20 50 43 20 32 0D 20 53 54 41 4D 50 20 |5 ) PC 2. STAMP | 00001270: 5B D2 C5 D0 C5 C1 D4 20 34 5D 0D 20 53 54 41 4D |[...... 4]. STAM| 00001280: 50 20 5B 27 5B C6 CF D2 D7 C1 D2 C4 27 20 35 30 |P ['[.......' 50| 00001290: 20 D2 C9 C7 C8 D4 20 27 39 30 5D 27 5D 0D 20 50 | ..... '90]']. P| 000012A0: 4F 53 20 2D 20 32 35 20 28 20 2D 20 38 30 20 29 |OS - 25 ( - 80 )| 000012B0: 20 50 44 20 50 43 20 30 0D 20 52 45 50 45 41 54 | PD PC 0. REPEAT| 000012C0: 20 34 20 5B 46 44 20 35 30 20 52 54 20 39 30 5D | 4 [FD 50 RT 90]| 000012D0: 0D 45 4E 44 0D 0D 54 4F 20 45 4E 44 2E 50 41 47 |.END..TO END.PAG| 000012E0: 45 0D 20 52 45 50 45 41 54 20 32 30 30 20 5B 50 |E. REPEAT 200 [P| 000012F0: 55 20 50 44 5D 20 2E 47 43 4F 4C 4C 0D 20 53 4F |U PD] .GCOLL. SO| 00001300: 55 4E 44 20 33 34 20 37 35 20 31 37 20 33 32 20 |UND 34 75 17 32 | 00001310: 53 4F 55 4E 44 20 35 31 20 39 37 20 31 37 20 33 |SOUND 51 97 17 3| 00001320: 32 0D 45 4E 44 0D 0D 54 4F 20 44 45 4D 4F 2E 34 |2.END..TO DEMO.4| 00001330: 20 3A 53 0D 20 49 46 20 41 4E 59 4F 46 20 28 20 | :S. IF ANYOF ( | 00001340: 41 53 43 49 49 20 3A 53 20 3C 20 34 37 20 29 20 |ASCII :S < 47 ) | 00001350: 28 20 41 53 43 49 49 20 3A 53 20 3E 20 35 32 20 |( ASCII :S > 52 | 00001360: 29 20 53 54 4F 50 0D 20 2E 47 43 4F 4C 4C 0D 20 |) STOP. .GCOLL. | 00001370: 52 55 4E 20 28 20 53 45 20 28 20 57 4F 52 44 20 |RUN ( SE ( WORD | 00001380: 22 44 45 4D 4F 2E 34 20 46 49 52 53 54 20 3A 53 |"DEMO.4 FIRST :S| 00001390: 20 29 20 29 20 45 4E 44 2E 50 41 47 45 20 4D 41 | ) ) END.PAGE MA| 000013A0: 4B 45 20 22 51 46 20 31 0D 45 4E 44 0D 0D 54 4F |KE "QF 1.END..TO| 000013B0: 20 53 4F 55 4E 44 2E 31 20 3A 54 49 20 3A 44 0D | SOUND.1 :TI :D.| 000013C0: 20 49 46 20 3A 54 49 20 3D 20 3A 44 20 53 54 4F | IF :TI = :D STO| 000013D0: 50 0D 20 53 4F 55 4E 44 2E 31 20 3A 54 49 20 2B |P. SOUND.1 :TI +| 000013E0: 20 31 20 3A 44 0D 45 4E 44 0D 0D 54 4F 20 50 4F | 1 :D.END..TO PO| 000013F0: 4C 59 20 3A 41 20 3A 42 20 3A 43 0D 20 52 45 50 |LY :A :B :C. REP| 00001400: 45 41 54 20 3A 41 20 5B 46 44 20 3A 42 20 52 54 |EAT :A [FD :B RT| 00001410: 20 3A 43 5D 0D 45 4E 44 0D 0D 54 4F 20 53 54 41 | :C].END..TO STA| 00001420: 52 20 3A 43 20 3A 41 20 3A 4E 0D 20 49 46 20 41 |R :C :A :N. IF A| 00001430: 4C 4C 4F 46 20 28 20 3A 4E 20 3D 20 32 20 29 20 |LLOF ( :N = 2 ) | 00001440: 28 20 3A 43 20 3E 20 33 20 29 20 2E 47 43 4F 4C |( :C > 3 ) .GCOL| 00001450: 4C 20 53 54 4F 50 0D 20 49 46 20 3A 43 20 3E 20 |L STOP. IF :C > | 00001460: 31 35 20 53 54 4F 50 0D 20 49 46 20 3A 43 20 3D |15 STOP. IF :C =| 00001470: 20 31 20 4D 41 4B 45 20 22 43 20 32 0D 20 50 43 | 1 MAKE "C 2. PC| 00001480: 20 3A 43 20 50 4F 4C 59 20 35 20 32 30 20 31 34 | :C POLY 5 20 14| 00001490: 34 0D 20 50 55 20 53 45 54 48 20 31 32 30 20 2B |4. PU SETH 120 +| 000014A0: 20 3A 41 20 46 44 20 32 35 20 50 44 0D 20 53 54 | :A FD 25 PD. ST| 000014B0: 41 52 20 3A 43 20 2B 20 31 20 3A 41 20 2B 20 32 |AR :C + 1 :A + 2| 000014C0: 30 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 53 54 41 |0 :N.END..TO STA| 000014D0: 4D 50 20 3A 54 48 49 4E 47 0D 20 4C 4F 43 41 4C |MP :THING. LOCAL| 000014E0: 20 22 48 45 41 44 49 4E 47 20 4D 41 4B 45 20 22 | "HEADING MAKE "| 000014F0: 48 45 41 44 49 4E 47 20 48 45 41 44 49 4E 47 0D |HEADING HEADING.| 00001500: 20 4C 4F 43 41 4C 20 22 50 45 4E 3F 20 4D 41 4B | LOCAL "PEN? MAK| 00001510: 45 20 22 50 45 4E 3F 20 49 54 45 4D 20 32 20 44 |E "PEN? ITEM 2 D| 00001520: 52 41 57 53 54 41 54 45 0D 20 53 45 54 48 20 39 |RAWSTATE. SETH 9| 00001530: 30 20 50 55 0D 20 53 54 41 4D 50 31 20 3A 54 48 |0 PU. STAMP1 :TH| 00001540: 49 4E 47 0D 20 53 45 54 48 20 3A 48 45 41 44 49 |ING. SETH :HEADI| 00001550: 4E 47 0D 20 49 46 20 3A 50 45 4E 3F 20 50 44 0D |NG. IF :PEN? PD.| 00001560: 45 4E 44 0D 0D 54 4F 20 50 4F 53 20 3A 58 20 3A |END..TO POS :X :| 00001570: 59 0D 20 50 55 20 53 45 54 58 59 20 3A 58 20 3A |Y. PU SETXY :X :| 00001580: 59 0D 45 4E 44 0D 0D 54 4F 20 44 45 4D 4F 2E 34 |Y.END..TO DEMO.4| 00001590: 33 0D 20 44 52 41 57 20 50 4F 53 20 28 20 2D 20 |3. DRAW POS ( - | 000015A0: 38 35 20 29 20 28 20 2D 20 33 30 20 29 20 50 43 |85 ) ( - 30 ) PC| 000015B0: 20 30 0D 20 53 54 41 4D 50 20 5B D3 49 4E 47 49 | 0. STAMP [.INGI| 000015C0: 4E 47 20 D3 54 41 52 53 5D 0D 20 50 4F 53 20 30 |NG .TARS]. POS 0| 000015D0: 20 33 30 20 50 44 20 53 45 54 48 20 31 32 30 0D | 30 PD SETH 120.| 000015E0: 20 53 54 41 52 20 30 20 31 30 20 31 20 53 54 41 | STAR 0 10 1 STA| 000015F0: 52 20 30 20 33 30 35 20 32 20 48 54 20 2E 47 43 |R 0 305 2 HT .GC| 00001600: 4F 4C 4C 0D 20 44 45 4D 4F 2E 34 33 31 0D 20 52 |OLL. DEMO.431. R| 00001610: 45 50 45 41 54 20 32 20 5B 44 45 4D 4F 2E 34 33 |EPEAT 2 [DEMO.43| 00001620: 32 5D 0D 20 44 45 4D 4F 2E 34 33 31 0D 45 4E 44 |2]. DEMO.431.END| 00001630: 0D 0D 54 4F 20 44 45 4D 4F 2E 34 33 31 0D 20 52 |..TO DEMO.431. R| 00001640: 45 50 45 41 54 20 32 20 5B 53 4F 55 4E 44 20 36 |EPEAT 2 [SOUND 6| 00001650: 38 20 31 34 39 20 31 37 20 31 36 5D 0D 20 52 45 |8 149 17 16]. RE| 00001660: 50 45 41 54 20 32 20 5B 53 4F 55 4E 44 20 31 30 |PEAT 2 [SOUND 10| 00001670: 32 20 31 39 34 20 31 37 20 31 36 5D 0D 20 52 45 |2 194 17 16]. RE| 00001680: 50 45 41 54 20 32 20 5B 53 4F 55 4E 44 20 31 31 |PEAT 2 [SOUND 11| 00001690: 35 20 38 38 20 31 37 20 31 36 5D 0D 20 53 4F 55 |5 88 17 16]. SOU| 000016A0: 4E 44 20 31 30 32 20 31 39 34 20 31 37 20 33 32 |ND 102 194 17 32| 000016B0: 0D 20 52 45 50 45 41 54 20 32 20 5B 53 4F 55 4E |. REPEAT 2 [SOUN| 000016C0: 44 20 39 31 20 31 34 30 20 31 37 20 31 36 5D 0D |D 91 140 17 16].| 000016D0: 20 52 45 50 45 41 54 20 32 20 5B 53 4F 55 4E 44 | REPEAT 2 [SOUND| 000016E0: 20 38 36 20 31 30 35 20 31 37 20 31 36 5D 0D 20 | 86 105 17 16]. | 000016F0: 52 45 50 45 41 54 20 32 20 5B 53 4F 55 4E 44 20 |REPEAT 2 [SOUND | 00001700: 37 36 20 32 35 32 20 31 37 20 31 36 5D 0D 20 53 |76 252 17 16]. S| 00001710: 4F 55 4E 44 20 36 38 20 31 34 39 20 31 37 20 31 |OUND 68 149 17 1| 00001720: 36 0D 20 2E 47 43 4F 4C 4C 0D 45 4E 44 0D 0D 54 |6. .GCOLL.END..T| 00001730: 4F 20 53 4F 55 4E 44 20 3A 48 49 20 3A 4C 4F 20 |O SOUND :HI :LO | 00001740: 3A 57 20 3A 44 0D 20 2E 44 45 50 4F 53 49 54 20 |:W :D. .DEPOSIT | 00001750: 35 34 32 39 36 20 31 35 0D 20 2E 44 45 50 4F 53 |54296 15. .DEPOS| 00001760: 49 54 20 35 34 32 37 37 20 39 0D 20 2E 44 45 50 |IT 54277 9. .DEP| 00001770: 4F 53 49 54 20 35 34 32 37 33 20 3A 48 49 0D 20 |OSIT 54273 :HI. | 00001780: 2E 44 45 50 4F 53 49 54 20 35 34 32 37 32 20 3A |.DEPOSIT 54272 :| 00001790: 4C 4F 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |LO. .DEPOSIT 542| 000017A0: 37 36 20 3A 57 0D 20 53 4F 55 4E 44 2E 31 20 30 |76 :W. SOUND.1 0| 000017B0: 20 3A 44 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 | :D. .DEPOSIT 54| 000017C0: 32 37 36 20 30 0D 20 2E 44 45 50 4F 53 49 54 20 |276 0. .DEPOSIT | 000017D0: 35 34 32 37 33 20 30 0D 20 2E 44 45 50 4F 53 49 |54273 0. .DEPOSI| 000017E0: 54 20 35 34 32 37 32 20 30 0D 45 4E 44 0D 0D 54 |T 54272 0.END..T| 000017F0: 4F 20 44 45 4D 4F 2E 34 33 32 0D 20 52 45 50 45 |O DEMO.432. REPE| 00001800: 41 54 20 32 20 5B 53 4F 55 4E 44 20 31 30 32 20 |AT 2 [SOUND 102 | 00001810: 31 39 34 20 31 37 20 31 36 5D 0D 20 52 45 50 45 |194 17 16]. REPE| 00001820: 41 54 20 32 20 5B 53 4F 55 4E 44 20 39 31 20 31 |AT 2 [SOUND 91 1| 00001830: 34 30 20 31 37 20 31 36 5D 0D 20 52 45 50 45 41 |40 17 16]. REPEA| 00001840: 54 20 32 20 5B 53 4F 55 4E 44 20 38 36 20 31 30 |T 2 [SOUND 86 10| 00001850: 35 20 31 37 20 31 36 5D 0D 20 53 4F 55 4E 44 20 |5 17 16]. SOUND | 00001860: 37 36 20 32 35 32 20 31 37 20 33 32 0D 45 4E 44 |76 252 17 32.END| 00001870: 0D 0D 54 4F 20 44 45 4D 4F 20 0D 4D 41 4B 45 20 |..TO DEMO .MAKE | 00001880: 22 46 4C 20 30 20 4D 41 4B 45 20 22 51 46 20 30 |"FL 0 MAKE "QF 0| 00001890: 0D 4C 4F 57 45 52 43 41 53 45 0D 2E 47 43 4F 4C |.LOWERCASE..GCOL| 000018A0: 4C 0D 44 52 41 57 20 46 52 41 4D 45 0D 50 4F 53 |L.DRAW FRAME.POS| 000018B0: 20 2D 20 31 35 20 33 30 20 50 44 20 53 45 54 48 | - 15 30 PD SETH| 000018C0: 20 31 32 30 0D 53 54 41 52 20 30 20 31 30 20 31 | 120.STAR 0 10 1| 000018D0: 20 53 54 41 52 20 30 20 33 30 35 20 32 20 48 54 | STAR 0 305 2 HT| 000018E0: 0D 50 4F 53 20 2D 20 31 30 20 28 20 2D 20 35 30 |.POS - 10 ( - 50| 000018F0: 20 29 20 50 43 20 30 0D 53 54 41 4D 50 20 5B C1 | ) PC 0.STAMP [.| 00001900: 20 53 49 4D 50 4C 45 5D 0D 50 4F 53 20 2D 20 31 | SIMPLE].POS - 1| 00001910: 30 20 28 20 2D 20 36 30 20 29 0D 53 54 41 4D 50 |0 ( - 60 ).STAMP| 00001920: 20 5B 42 55 54 20 50 4F 57 45 52 46 55 4C 5D 0D | [BUT POWERFUL].| 00001930: 50 4F 53 20 2D 20 31 30 20 28 20 2D 20 37 30 20 |POS - 10 ( - 70 | 00001940: 29 0D 53 54 41 4D 50 20 5B 50 52 4F 47 52 41 4D |).STAMP [PROGRAM| 00001950: 4D 49 4E 47 20 4C 41 4E 47 55 41 47 45 5D 0D 45 |MING LANGUAGE].E| 00001960: 4E 44 2E 50 41 47 45 0D 44 45 4D 4F 2E 31 0D 44 |ND.PAGE.DEMO.1.D| 00001970: 45 4D 4F 2E 32 20 31 0D 44 45 4D 4F 0D 45 4E 44 |EMO.2 1.DEMO.END| 00001980: 0D 0D 4D 41 4B 45 20 22 46 4C 20 28 30 29 0D 4D |..MAKE "FL (0).M| 00001990: 41 4B 45 20 22 51 46 20 28 30 29 0D 4D 41 4B 45 |AKE "QF (0).MAKE| 000019A0: 20 22 53 54 41 52 54 55 50 20 5B 53 54 41 52 54 | "STARTUP [START| 000019B0: 5D 0D 57 FF 00 |].W.. |
. TO SPRITE.U :X1 :X2 :Y1 :Y2.IF ALLOF ( :X1 > :X2 ) ( :Y1 < :Y2 ) STOP.IF NOT : X1 > :X2 SPRITE.X :X1.IF NOT :Y1 < :Y2 S PRITE.Y :Y1.IF ALLOF ( :X1 > :X2 ) ( NOT :Y1 < :Y2 ) SPRITE.U :X1 :X2 :Y1 - 2 :Y 2.IF ALLOF ( NOT :X1 > :X2 ) ( :Y1 < :Y2 ) SPRITE.U :X1 + 2 :X2 :Y1 :Y2.IF ALLOF ( NOT :X1 > :X2 ) ( NOT :Y1 < :Y2 ) SPR ITE.U :X1 + 2 :X2 :Y1 - 2 :Y2.END..TO SP RITE.XM :X1 :X2. IF :X1 = :X2 STOP. SPRI TE.X :X1. SPRITE.XM :X1 + 1 :X2.END..TO DEMO.44. DRAW PC 5 .GCOLL. ST POS - 70 9 0. PD SETH 180 FD 100. SPRITE.YM 75 150. SETH 90 FD 50. SPRITE.XM 75 138. SETH 2 70 PU. REPEAT 5 [SETY 0 SETY -15]. SETY - 10 SETH 90 FD 8. SETH 0 FD 20 PD. REPE AT 30 [FD 5 RT 360/30]. SETH 90 PU FD 60 . SPRITE.U 140 186 150 133. SETH 0 PD RE PEAT 30 [FD 5 RT 360/30]. PU SETH 90 FD 47. SPRITE.XM 186 250. PU SETH 270 REPEA T 5 [SETY 20 SETY 10]. SETH 180 PD FD 70 . REPEAT 15 [FD 5 RT 360/30]. PU SETH 35 FD 95. SETH 0 PD REPEAT 30 [FD 5 RT 360 /30]. SPRITE.U 250 251 133 30.END..TO SP INSQUARE :SIZE. PC 0 IF :SIZE > 115 STOP . POLY 4 :SIZE 90. RT 10. SPINSQUARE :SI ZE + 3.END..TO DEMO.42. DRAW PC 0. POS - 100 55. STAMP [LOTS OF SQUARES] .GCOLL. POS - 100 35 PC 6. STAMP [LOGO ALLOWS A PROCEDURE TO]. POS - 100 25. STAMP [REP EAT ITSELF. SIMPLE PROCEDURES]. POS - 10 0 ( 15 ). STAMP [CAN LEAD TO SPECTACULAR RESULTS.]. POS - 100 ( - 5 ) PC 2. UC.G RAPHICS. STAMP [TO SPINSQUARE :SIZE]. PO S - 100 ( - 15 ). STAMP [REPEAT 4 '[FORW ARD' :SIZE RIGHT '90]']. POS - 100 ( - 3 5 ). STAMP [RIGHT 10]. POS - 100 ( - 45 ). STAMP [SPINSQUARE :SIZE + 3]. POS - 1 00 ( - 55 ). STAMP [END]. LOWERCASE. REP EAT 700 [PU PD] DRAW POS 5 ( - 30 ) PD. SPINSQUARE 25.END..TO STAMP1 :THING. IF EMPTY? :THING STOP. IF LIST? :THING STAM P1 FIRST :THING FD 8 STAMP1 BF :THING ST OP. STAMPCHAR FIRST :THING FD 8 STAMP1 B F :THING.END..TO START. ; VERSION 2 6/4/ 83. BLOAD "C.SHAPES. DEMO.END..TO LOWERC ASE. .OPTION "STAMPCHAR 1 1.END..TO UC.G RAPHICS. .OPTION "STAMPCHAR 1 0.END..TO BULLET. UC.GRAPHICS. STAMP [Q]. LOWERCAS E.END..TO DEMO.1. DRAW. FRAME. POS - 140 55. PC 6 BULLET STAMP [TURTLE GRAPHICS] . POS - 140 45. BULLET STAMP [SPRITES]. POS ( - 140 ) 35. BULLET STAMP [SOUND]. POS 5 55. BULLET STAMP [LARGE WORKSPACE] . POS 5 45. BULLET STAMP [EASY TO LEARN] . POS 5 35. BULLET STAMP [POWERFUL]. PC 2 POS - 135 10. STAMP [A FEW SIMPLE COMM ANDS ARE ALL]. POS - 135 0. STAMP [YOU N EED TO CREATE,]. POS - 40 ( - 10 ). STAM P [LEARN,]. POS - 40 ( - 20 ). STAMP [AN D EXPLORE]. POS - 100 ( - 60 ) PD. PC 0 SETH 180 ST. REPEAT 4 [FD 30 LT 90]. PU SETH 90 FD 90 PD. PC 4 SETH 150 POLY 3 3 0 120. PU SETH 90 FD 80. PD PC 0 SETH 12 0 REPEAT 5 [FD 20 RT 72] HT. END.PAGE.EN D..TO SPRITE.YM :Y1 :Y2. IF :Y1 = :Y2 ST OP. SPRITE.Y :Y1. SPRITE.YM :Y1 + 1 :Y2. END..TO SPRITE.Y :Y1. .DEPOSIT 53251 :Y1 . .DEPOSIT 53255 :Y1. .DEPOSIT 53253 :Y1 .END..TO SPRITE.X :X1. .DEPOSIT 53252 :X 1. .DEPOSIT 53250 :X1. .DEPOSIT 53254 :X 1.END..TO SPRITE :X1 :X2 :Y1 :Y2. IF ALL OF ( :X1 > :X2 ) ( :Y1 > :Y2 ) STOP. IF NOT :X1 > :X2 SPRITE.X :X1. IF NOT :Y1 > :Y2 SPRITE.Y :Y1. IF ALLOF ( :X1 > :X2 ) ( NOT :Y1 > :Y2 ) SPRITE :X1 :X2 :Y1 + 2 :Y2. IF ALLOF ( NOT :X1 > :X2 ) ( :Y1 > :Y2 ) SPRITE :X1 + 2 :X2 :Y1 :Y2. IF ALLOF ( NOT :X1 > :X2 ) ( NOT :Y1 > :Y2 ) SPRITE :X1 + 2 :X2 :Y1 + 2 :Y2.END..TO LOGO.P. POS - 50 80. ; L. SETH 0 PD FD 20 BK 20. SETH 90 FD 10. ; O. PU FD 4 SE TH 0 FD 5 PD. REPEAT 20 [FD 2 RT 18]. ; G. PU SETH 90 FD 19 SETH 0 PD. REPEAT 20 [FD 2 RT 18]. PU SETH 90 FD 13 PD. SETH 180 FD 15. REPEAT 10 [FD 2 RT 18]. ; O. PU FD 17 SETH 90 FD 19 SETH 0. PD REPEA T 20 [FD 2 RT 18].END..TO FRAME. FULLSCR EEN HT. POS - 150 125 SETH 90 PD. BG 1 P C 0. REPEAT 2 [FD 300 RT 90 FD 250 RT 90 ]. TELL 1 ST TELL 2 ST TELL 3 ST TELL 0. SPRITE 74 75 53 54. .DEPOSIT 53288 6. . DEPOSIT 53289 6 .DEPOSIT 53290 2. PU SET XY - 85 120 SETH 0. ST STAMP [C O M M O D O R E ' ' 6 4] HT. POS - 150 105 PD SE TH 90 FD 300. SPRITE.YM 53 75 ST LOGO.P HT POS - 150 75 PD SETH 90 FD 300. .GCOL L.END..TO DEMO.2 :C. IF :C = 5 STOP. DRA W. FRAME. POS - 135 55. PC 0 STAMP [SEE WHAT LOGO CAN DO:]. POS - 135 35. PC 6 S TAMP [1 DRAW A SQUARE]. POS - 135 15. ST AMP [2 LOTS OF SQUARES]. POS - 135 ( - 5 ). STAMP [3 SINGING STARS]. POS - 135 ( - 35 ). STAMP [4 SPRITES]. POS - 135 ( - 65 ). PC 2 STAMP [ENTER YOUR SELECTION :]. SETY - 60 ST. DEMO.3 1 IF :FL = 1 MA KE "FL 0 DEMO.41 END.PAGE STOP. DEMO.2 : C + 1.END..TO DEMO.3 :N. IF :N > 1000 MA KE "FL 1 STOP. IF RC? DEMO.4 RC IF :QF = 1 MAKE "QF 0 STOP. DEMO.3 :N + 1.END..T O DEMO.41. DRAW PC 0. POS - 100 65. STAM P [TO DRAW A SQUARE:]. POS - 100 45 PC 6 . STAMP [A SQUARE HAS FOUR SIDES AND FOU R]. POS - 100 35. STAMP [90 DEGREE ANGLE S. TO DRAW A]. POS - 100 25. STAMP [SQUA RE WITH SIDES 50 STEPS LONG]. POS - 100 15. STAMP [IS EASY. HERE IS THE PROGRAM: ] .GCOLL. POS - 100 ( - 5 ) PC 2. STAMP [REPEAT 4]. STAMP ['[FORWARD' 50 RIGHT ' 90]']. POS - 25 ( - 80 ) PD PC 0. REPEAT 4 [FD 50 RT 90].END..TO END.PAGE. REPEA T 200 [PU PD] .GCOLL. SOUND 34 75 17 32 SOUND 51 97 17 32.END..TO DEMO.4 :S. IF ANYOF ( ASCII :S < 47 ) ( ASCII :S > 52 ) STOP. .GCOLL. RUN ( SE ( WORD "DEMO.4 FIRST :S ) ) END.PAGE MAKE "QF 1.END..TO SOUND.1 :TI :D. IF :TI = :D STOP. SOUND .1 :TI + 1 :D.END..TO POLY :A :B :C. REP EAT :A [FD :B RT :C].END..TO STAR :C :A :N. IF ALLOF ( :N = 2 ) ( :C > 3 ) .GCOL L STOP. IF :C > 15 STOP. IF :C = 1 MAKE "C 2. PC :C POLY 5 20 144. PU SETH 120 + :A FD 25 PD. STAR :C + 1 :A + 20 :N.END ..TO STAMP :THING. LOCAL "HEADING MAKE " HEADING HEADING. LOCAL "PEN? MAKE "PEN? ITEM 2 DRAWSTATE. SETH 90 PU. STAMP1 :TH ING. SETH :HEADING. IF :PEN? PD.END..TO POS :X :Y. PU SETXY :X :Y.END..TO DEMO.4 3. DRAW POS ( - 85 ) ( - 30 ) PC 0. STAM P [SINGING STARS]. POS 0 30 PD SETH 120. STAR 0 10 1 STAR 0 305 2 HT .GCOLL. DEM O.431. REPEAT 2 [DEMO.432]. DEMO.431.END ..TO DEMO.431. REPEAT 2 [SOUND 68 149 17 16]. REPEAT 2 [SOUND 102 194 17 16]. RE PEAT 2 [SOUND 115 88 17 16]. SOUND 102 1 94 17 32. REPEAT 2 [SOUND 91 140 17 16]. REPEAT 2 [SOUND 86 105 17 16]. REPEAT 2 [SOUND 76 252 17 16]. SOUND 68 149 17 1 6. .GCOLL.END..TO SOUND :HI :LO :W :D. . DEPOSIT 54296 15. .DEPOSIT 54277 9. .DEP OSIT 54273 :HI. .DEPOSIT 54272 :LO. .DEP OSIT 54276 :W. SOUND.1 0 :D. .DEPOSIT 54 276 0. .DEPOSIT 54273 0. .DEPOSIT 54272 0.END..TO DEMO.432. REPEAT 2 [SOUND 102 194 17 16]. REPEAT 2 [SOUND 91 140 17 16 ]. REPEAT 2 [SOUND 86 105 17 16]. SOUND 76 252 17 32.END..TO DEMO .MAKE "FL 0 MA KE "QF 0.LOWERCASE..GCOLL.DRAW FRAME.POS - 15 30 PD SETH 120.STAR 0 10 1 STAR 0 305 2 HT.POS - 10 ( - 50 ) PC 0.STAMP [A SIMPLE].POS - 10 ( - 60 ).STAMP [BUT PO WERFUL].POS - 10 ( - 70 ).STAMP [PROGRAM MING LANGUAGE].END.PAGE.DEMO.1.DEMO.2 1. DEMO.END..MAKE "FL (0).MAKE "QF (0).MAKE "STARTUP [START].W..
> CLICK IMAGE PREVIEW FOR FULL MODAL