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