COMMUNIQUE
FILE INFORMATION
FILENAME(S): COMMUNIQUE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 18:12:13
APPEARS ON: 2 disk(s)
FILE HASH
6f9e9345bfc549a4fd88d07cebf530ab35702ffae6b7f34bd7e002e0b0855397
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 22 S 1 | COMMUNIQUE | PRG | Sailor, Ganheden | 33 | 4 | DOWNLOAD FILE |
| LOADSTAR 22 S 1 | COMMUNIQUE | PRG | Curtcool, Frank | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 5A 5A 24 B2 22 22 3A 8B 44 4C |......ZZ$."":.DL|
00000010: B2 31 A7 44 4C B2 30 3A 89 31 36 30 32 30 00 3B |.1.DL.0:.16020.;|
00000020: 08 01 00 8F 20 20 20 20 20 20 20 20 20 20 20 22 |.... "|
00000030: 43 4F 4D 4D 55 4E 49 51 55 45 22 00 5E 08 02 00 |COMMUNIQUE".^...|
00000040: 8F 20 20 20 20 20 20 57 52 49 54 54 45 4E 20 42 |. WRITTEN B|
00000050: 59 20 41 4C 41 4E 20 47 41 52 44 4E 45 52 00 78 |Y ALAN GARDNER.x|
00000060: 08 03 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000070: 20 32 2D 32 31 2D 38 36 00 7E 08 04 00 8F 00 84 | 2-21-86.~......|
00000080: 08 05 00 8F 00 A3 08 06 00 8B 4C 46 B2 30 A7 4C |..........LF.0.L|
00000090: 46 B2 31 3A 93 22 55 4E 50 41 43 4B 45 52 22 2C |F.1:."UNPACKER",|
000000A0: 38 2C 31 00 CA 08 07 00 8B 4C 46 B2 31 A7 4C 46 |8,1......LF.1.LF|
000000B0: B2 32 3A 93 22 47 41 4C 4C 45 52 59 2E 53 48 50 |.2:."GALLERY.SHP|
000000C0: 53 2E 4C 4E 4B 22 2C 38 2C 31 00 F0 08 08 00 8B |S.LNK",8,1......|
000000D0: 4C 46 B2 32 A7 4C 46 B2 33 3A 93 22 54 45 58 54 |LF.2.LF.3:."TEXT|
000000E0: 50 4C 4F 54 2E 38 31 39 32 2E 4F 22 2C 38 2C 31 |PLOT.8192.O",8,1|
000000F0: 00 10 09 09 00 8B 4C 46 B2 33 A7 4C 46 B2 34 3A |......LF.3.LF.4:|
00000100: 93 22 49 4E 50 55 54 2E 32 2E 4F 22 2C 38 2C 31 |."INPUT.2.O",8,1|
00000110: 00 4D 09 0A 00 86 54 24 28 33 30 30 29 2C 56 4C |.M....T$(300),VL|
00000120: 24 28 33 30 29 2C 56 4C 25 28 33 30 29 3A 9F 38 |$(30),VL%(30):.8|
00000130: 2C 38 2C 38 2C 22 47 41 4C 4C 45 52 59 2E 54 45 |,8,8,"GALLERY.TE|
00000140: 58 54 22 3A 4C 43 B2 30 3A 4C 4C B2 30 00 66 09 |XT":LC.0:LL.0.f.|
00000150: 0B 00 9E 38 32 38 2C 38 2C 38 30 3A 5A 5A 24 B2 |...828,8,80:ZZ$.|
00000160: 5A 5A 24 AA 22 22 00 A1 09 0C 00 8B C8 28 5A 5A |ZZ$."".......(ZZ|
00000170: 24 2C 32 29 B2 22 5E 40 22 A7 4C 4C B2 4C 4C AA |$,2)."^@".LL.LL.|
00000180: 31 3A 56 4C 24 28 4C 4C 29 B2 CA 28 5A 5A 24 2C |1:VL$(LL)..(ZZ$,|
00000190: 33 29 3A 56 4C 25 28 4C 4C 29 B2 4C 43 3A 89 31 |3):VL%(LL).LC:.1|
000001A0: 31 00 C6 09 0D 00 8B 5A 5A 24 B3 B1 22 C7 22 A7 |1......ZZ$..".".|
000001B0: 4C 43 B2 4C 43 AA 31 3A 54 24 28 4C 43 29 B2 5A |LC.LC.1:T$(LC).Z|
000001C0: 5A 24 3A 89 31 31 00 D9 09 0F 00 A0 38 3A A0 31 |Z$:.11......8:.1|
000001D0: 35 3A 4C 43 B2 4C 43 AB 31 00 DF 09 1E 00 3A 00 |5:LC.LC.1.....:.|
000001E0: 0A 0A 28 00 43 4C B2 31 3A 52 45 B2 30 3A 86 4C |..(.CL.1:RE.0:.L|
000001F0: 4B 24 28 32 30 29 2C 4C 4C 24 28 32 30 29 3A 43 |K$(20),LL$(20):C|
00000200: 24 B2 22 22 3A 5A 24 B2 22 22 00 33 0A 2A 00 4C |$."":Z$."".3.*.L|
00000210: 4D B2 30 3A 52 4D B2 33 39 3A 54 4D B2 30 3A 42 |M.0:RM.39:TM.0:B|
00000220: 4D B2 32 33 3A 54 59 B2 30 3A 54 45 58 54 B2 38 |M.23:TY.0:TEXT.8|
00000230: 31 39 32 00 64 0A 2B 00 53 24 B2 22 20 20 20 20 |192.d.+.S$." |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 22 00 87 0A 2C 00 44 24 B2 22 13 11 11 | "...,.D$."...|
00000270: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000280: 11 11 11 11 11 11 22 00 8D 0A 32 00 3A 00 A8 0A |......"...2.:...|
00000290: 37 00 8D 31 31 30 30 30 3A 9E 35 31 34 35 39 3A |7..11000:.51459:|
000002A0: 97 35 33 32 38 30 2C 30 00 AE 0A 38 00 3A 00 B4 |.53280,0...8.:..|
000002B0: 0A 3C 00 8F 00 D8 0A 3D 00 43 24 B2 54 24 28 43 |.<.....=.C$.T$(C|
000002C0: 4C 29 3A 8B 43 24 B2 22 22 A7 54 24 28 43 4C 29 |L):.C$."".T$(CL)|
000002D0: B2 22 20 22 3A 89 39 30 00 FF 0A 3E 00 43 24 B2 |." ":.90...>.C$.|
000002E0: C8 28 54 24 28 43 4C 29 2C 31 29 3A 8B 43 24 B2 |.(T$(CL),1):.C$.|
000002F0: 22 27 22 A7 43 4C B2 43 4C AA 31 3A 89 36 30 00 |"'".CL.CL.1:.60.|
00000300: 15 0B 46 00 8B 43 24 B2 22 5E 22 A7 8D 31 30 30 |..F..C$."^"..100|
00000310: 30 3A 89 36 30 00 1B 0B 50 00 3A 00 3D 0B 5A 00 |0:.60...P.:.=.Z.|
00000320: 8F 20 20 52 4F 55 54 49 4E 45 20 54 4F 20 50 52 |. ROUTINE TO PR|
00000330: 49 4E 54 20 54 45 58 54 20 48 45 52 45 00 63 0B |INT TEXT HERE.c.|
00000340: 5B 00 5A 24 B2 54 24 28 43 4C 29 3A 9E 54 45 58 |[.Z$.T$(CL):.TEX|
00000350: 54 2C 5A 24 2C 4C 4D AC 38 2C 28 54 4D AA 54 59 |T,Z$,LM.8,(TM.TY|
00000360: 29 AC 38 00 6F 0B 5C 00 99 54 24 28 43 4C 29 00 |).8.o.\..T$(CL).|
00000370: 7B 0B 5D 00 54 59 B2 54 59 AA 31 00 8B 0B 63 00 |{.].TY.TY.1...c.|
00000380: 43 4C B2 43 4C AA 31 3A 89 36 30 00 AF 0B 64 00 |CL.CL.1:.60...d.|
00000390: 8F 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **********|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003B0: D1 0B 6E 00 80 3A 8F 20 2A 20 20 20 20 20 45 4E |..n..:. * EN|
000003C0: 44 20 4F 46 20 42 4F 44 59 20 20 20 20 20 20 20 |D OF BODY |
000003D0: 2A 00 F5 0B 78 00 8F 20 20 20 20 20 2A 2A 2A 2A |*...x.. ****|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 2A 2A 2A 2A 2A 00 FB 0B 82 00 3A 00 11 0C E8 03 |*****.....:.....|
00000400: 8F 20 20 20 43 48 45 43 4B 20 4F 50 54 49 4F 4E |. CHECK OPTION|
00000410: 53 00 26 0C F2 03 43 24 B2 CA 28 54 24 28 43 4C |S.&...C$..(T$(CL|
00000420: 29 2C 32 2C 31 29 00 2C 0C FC 03 3A 00 55 0C 06 |),2,1).,...:.U..|
00000430: 04 8B 43 24 B2 22 4C 22 A7 4C 4D B2 C5 28 CA 28 |..C$."L".LM..(.(|
00000440: 54 24 28 43 4C 29 2C 33 29 29 3A 20 20 20 20 20 |T$(CL),3)): |
00000450: 89 32 30 30 30 00 7E 0C 08 04 8B 43 24 B2 22 52 |.2000.~....C$."R|
00000460: 22 A7 52 4D B2 C5 28 CA 28 54 24 28 43 4C 29 2C |".RM..(.(T$(CL),|
00000470: 33 29 29 3A 20 20 20 20 20 89 32 30 30 30 00 A7 |3)): .2000..|
00000480: 0C 0A 04 8B 43 24 B2 22 54 22 A7 54 4D B2 C5 28 |....C$."T".TM..(|
00000490: CA 28 54 24 28 43 4C 29 2C 33 29 29 3A 20 20 20 |.(T$(CL),3)): |
000004A0: 20 20 89 32 30 30 30 00 D0 0C 0C 04 8B 43 24 B2 | .2000......C$.|
000004B0: 22 42 22 A7 42 4D B2 C5 28 CA 28 54 24 28 43 4C |"B".BM..(.(T$(CL|
000004C0: 29 2C 33 29 29 3A 20 20 20 20 20 89 32 30 30 30 |),3)): .2000|
000004D0: 00 D6 0C 10 04 3A 00 00 0D 1A 04 8B 43 24 B2 22 |.....:......C$."|
000004E0: 43 22 A7 8D 31 30 30 30 30 3A 89 32 30 30 30 3A |C"..10000:.2000:|
000004F0: 20 20 20 20 20 20 20 20 20 8F 20 43 4C 45 41 52 | . CLEAR|
00000500: 00 29 0D 24 04 8B 43 24 B2 22 57 22 A7 8D 31 31 |.).$..C$."W"..11|
00000510: 30 30 30 3A 89 32 30 30 30 3A 20 20 20 20 20 20 |000:.2000: |
00000520: 20 20 20 8F 20 57 49 50 45 00 56 0D 2E 04 8B 43 | . WIPE.V....C|
00000530: 24 B2 22 50 22 A7 8D 31 32 30 30 30 3A 89 32 30 |$."P"..12000:.20|
00000540: 30 30 3A 20 20 20 20 20 20 20 20 20 8F 20 50 4C |00: . PL|
00000550: 4F 54 20 53 48 50 00 7F 0D 38 04 8B 43 24 B2 22 |OT SHP...8..C$."|
00000560: 4B 22 A7 8D 31 33 30 30 30 3A 89 32 30 30 30 3A |K"..13000:.2000:|
00000570: 20 20 20 20 20 20 20 20 20 8F 20 57 41 49 54 00 | . WAIT.|
00000580: A9 0D 42 04 8B 43 24 B2 22 49 22 A7 8D 32 30 30 |..B..C$."I"..200|
00000590: 30 30 3A 89 32 30 31 30 3A 20 20 20 20 20 20 20 |00:.2010: |
000005A0: 20 20 8F 20 49 4E 50 55 54 00 D5 0D 4C 04 8B 43 | . INPUT...L..C|
000005B0: 24 B2 22 58 22 A7 8B 52 45 B2 30 A7 36 30 30 30 |$."X"..RE.0.6000|
000005C0: 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 8F |0: .|
000005D0: 20 45 58 49 54 00 0D 0E 56 04 8B 43 24 B2 22 58 | EXIT...V..C$."X|
000005E0: 22 A7 43 4C B2 52 45 AA 31 3A 52 45 B2 30 3A 89 |".CL.RE.1:RE.0:.|
000005F0: 32 30 31 30 3A 20 20 20 20 20 20 20 8F 20 52 45 |2010: . RE|
00000600: 54 55 52 4E 20 46 52 4F 4D 20 53 55 42 00 36 0E |TURN FROM SUB.6.|
00000610: 60 04 8B 43 24 B2 22 47 22 A7 8D 31 34 30 30 30 |`..C$."G"..14000|
00000620: 3A 89 32 30 31 30 3A 20 20 20 20 20 20 20 20 20 |:.2010: |
00000630: 8F 20 47 4F 54 4F 00 60 0E 6A 04 8B 43 24 B2 22 |. GOTO.`.j..C$."|
00000640: 53 22 A7 8D 31 35 30 30 30 3A 89 32 30 31 30 3A |S"..15000:.2010:|
00000650: 20 20 20 20 20 20 20 20 20 8F 20 47 4F 53 55 42 | . GOSUB|
00000660: 00 91 0E 74 04 8B 43 24 B2 22 44 22 A7 8D 31 36 |...t..C$."D"..16|
00000670: 30 30 30 3A 89 32 30 30 30 3A 20 20 20 20 20 20 |000:.2000: |
00000680: 20 20 20 8F 20 4C 4F 41 44 20 41 20 54 41 42 4C | . LOAD A TABL|
00000690: 45 00 AA 0E D0 07 8F 20 20 52 45 54 55 52 4E 20 |E...... RETURN |
000006A0: 54 4F 20 4C 49 4E 45 20 37 30 00 B6 0E D5 07 43 |TO LINE 70.....C|
000006B0: 4C B2 43 4C AA 31 00 BC 0E DA 07 8E 00 C2 0E B8 |L.CL.1..........|
000006C0: 0B 3A 00 DF 0E 10 27 8F 20 20 20 43 4C 45 41 52 |.:....'. CLEAR|
000006D0: 20 43 55 52 52 45 4E 54 20 57 49 4E 44 4F 57 00 | CURRENT WINDOW.|
000006E0: F5 0E 1A 27 4F 50 B2 C5 28 C9 28 54 24 28 43 4C |...'OP..(.(T$(CL|
000006F0: 29 2C 31 29 29 00 23 0F 24 27 8B 4F 50 B2 30 A7 |),1)).#.$'.OP.0.|
00000700: 20 20 8F 20 20 20 20 43 48 41 4E 47 45 20 45 4F | . CHANGE EO|
00000710: 52 20 54 4F 20 53 4F 4D 45 54 48 49 4E 47 20 45 |R TO SOMETHING E|
00000720: 4C 53 45 00 51 0F 2E 27 8B 4F 50 B2 31 A7 20 20 |LSE.Q..'.OP.1. |
00000730: 8F 20 20 20 20 43 48 41 4E 47 45 20 53 4F 4D 45 |. CHANGE SOME|
00000740: 54 48 49 4E 47 20 45 4C 53 45 20 54 4F 20 45 4F |THING ELSE TO EO|
00000750: 52 00 67 0F 38 27 53 50 24 B2 C8 28 53 24 2C 52 |R.g.8'SP$..(S$,R|
00000760: 4D AB 4C 4D AA 31 29 00 77 0F 42 27 81 20 54 B2 |M.LM.1).w.B'. T.|
00000770: 54 4D 20 A4 20 42 4D 00 8F 0F 4C 27 9E 20 54 45 |TM . BM...L'. TE|
00000780: 58 54 2C 53 50 24 2C 4C 4D AC 38 2C 54 AC 38 00 |XT,SP$,LM.8,T.8.|
00000790: 9C 0F 56 27 82 20 54 3A 54 59 B2 30 00 A2 0F 60 |..V'. T:TY.0...`|
000007A0: 27 8E 00 A8 0F 6A 27 3A 00 C4 0F F8 2A 8F 20 20 |'....j':....*. |
000007B0: 20 43 4C 45 41 52 20 45 4E 54 49 52 45 20 53 43 | CLEAR ENTIRE SC|
000007C0: 52 45 45 4E 00 EE 0F 02 2B 53 48 50 B2 30 3A 50 |REEN....+SHP.0:P|
000007D0: 58 B2 30 3A 50 59 B2 30 3A 8D 31 32 31 30 30 3A |X.0:PY.0:.12100:|
000007E0: 54 59 B2 30 3A 20 20 20 20 20 20 20 20 8E 00 F4 |TY.0: ...|
000007F0: 0F 0C 2B 3A 00 09 10 E0 2E 8F 20 20 20 50 4C 4F |..+:...... PLO|
00000800: 54 20 41 20 53 48 41 50 45 00 16 10 EA 2E 43 48 |T A SHAPE.....CH|
00000810: B2 31 3A 43 B2 34 00 4D 10 F4 2E 8B CA 28 54 24 |.1:C.4.M.....(T$|
00000820: 28 43 4C 29 2C 43 48 2C 31 29 B2 22 3B 22 A7 53 |(CL),CH,1).";".S|
00000830: 48 50 B2 C5 28 CA 28 54 24 28 43 4C 29 2C 43 2C |HP..(.(T$(CL),C,|
00000840: 43 48 AB 31 29 29 3A 89 31 32 30 34 30 00 60 10 |CH.1)):.12040.`.|
00000850: FE 2E 43 48 B2 43 48 AA 31 3A 89 31 32 30 32 30 |..CH.CH.1:.12020|
00000860: 00 6D 10 08 2F 43 B2 43 AA 43 48 AB 31 00 A3 10 |.m../C.C.CH.1...|
00000870: 12 2F 8B CA 28 54 24 28 43 4C 29 2C 43 48 2C 31 |./..(T$(CL),CH,1|
00000880: 29 B2 22 3B 22 A7 50 58 B2 C5 28 CA 28 54 24 28 |).";".PX..(.(T$(|
00000890: 43 4C 29 2C 43 2C 43 48 AB 31 29 29 3A 89 31 32 |CL),C,CH.1)):.12|
000008A0: 30 37 30 00 B6 10 1C 2F 43 48 B2 43 48 AA 31 3A |070..../CH.CH.1:|
000008B0: 89 31 32 30 35 30 00 CF 10 26 2F 50 59 B2 C5 28 |.12050...&/PY..(|
000008C0: CA 28 54 24 28 43 4C 29 2C 43 AA 43 48 29 29 00 |.(T$(CL),C.CH)).|
000008D0: EA 10 44 2F 8F 20 2A 2A 2A 20 50 4C 4F 54 20 41 |..D/. *** PLOT A|
000008E0: 20 53 48 41 50 45 20 2A 2A 2A 00 00 11 4E 2F 97 | SHAPE ***...N/.|
000008F0: 32 34 39 2C 32 32 34 3A 97 32 35 30 2C 32 30 34 |249,224:.250,204|
00000900: 00 13 11 58 2F 97 32 35 31 2C 30 3A 97 32 35 32 |...X/.251,0:.252|
00000910: 2C 36 34 00 27 11 62 2F 97 32 35 33 2C 50 58 3A |,64.'.b/.253,PX:|
00000920: 97 32 35 34 2C 50 59 00 34 11 6C 2F 97 32 35 35 |.254,PY.4.l/.255|
00000930: 2C 53 48 50 00 3F 11 76 2F 9E 35 31 34 36 32 00 |,SHP.?.v/.51462.|
00000940: 45 11 8A 2F 8E 00 4B 11 94 2F 3A 00 66 11 C8 32 |E../..K../:.f..2|
00000950: 8F 20 20 57 41 49 54 20 46 4F 52 20 41 20 4B 45 |. WAIT FOR A KE|
00000960: 59 50 52 45 53 53 00 7E 11 D2 32 97 31 39 38 2C |YPRESS.~..2.198,|
00000970: 30 3A 92 31 39 38 2C 31 3A A1 4B 24 3A 8E 00 84 |0:.198,1:.K$:...|
00000980: 11 DC 32 3A 00 98 11 B0 36 8F 20 20 47 4F 54 4F |..2:....6. GOTO|
00000990: 20 41 20 4C 41 42 45 4C 00 B6 11 BA 36 4C 24 B2 | A LABEL....6L$.|
000009A0: CA 28 54 24 28 43 4C 29 2C 34 29 3A 4C B2 30 3A |.(T$(CL),4):L.0:|
000009B0: 8D 31 34 35 30 30 00 C1 11 C4 36 43 4C B2 4C 3A |.14500....6CL.L:|
000009C0: 8E 00 C7 11 CE 36 3A 00 E7 11 A4 38 8F 20 20 46 |.....6:....8. F|
000009D0: 49 4E 44 20 41 20 4C 41 42 45 4C 20 49 4E 20 54 |IND A LABEL IN T|
000009E0: 48 45 20 54 45 58 54 00 F6 11 AE 38 81 20 58 B2 |HE TEXT....8. X.|
000009F0: 31 20 A4 20 4C 4C 00 15 12 B8 38 8B 56 4C 24 28 |1 . LL....8.VL$(|
00000A00: 58 29 B2 4C 24 A7 4C B2 56 4C 25 28 58 29 3A 89 |X).L$.L.VL%(X):.|
00000A10: 31 34 35 35 30 00 1C 12 C2 38 82 58 00 3A 12 CC |14550....8.X.:..|
00000A20: 38 99 22 55 4E 4B 4E 4F 57 4E 20 4C 41 42 45 4C |8."UNKNOWN LABEL|
00000A30: 20 2D 2D 2D 20 22 4C 24 3A 90 00 40 12 D6 38 8E | --- "L$:..@..8.|
00000A40: 00 46 12 E0 38 3A 00 5B 12 98 3A 8F 20 20 47 4F |.F..8:.[..:. GO|
00000A50: 53 55 42 20 41 20 4C 41 42 45 4C 00 79 12 A2 3A |SUB A LABEL.y..:|
00000A60: 4C 24 B2 CA 28 54 24 28 43 4C 29 2C 34 29 3A 4C |L$..(T$(CL),4):L|
00000A70: B2 30 3A 8D 31 34 35 30 30 00 8A 12 AC 3A 52 45 |.0:.14500....:RE|
00000A80: B2 43 4C 3A 43 4C B2 4C 3A 8E 00 90 12 B6 3A 3A |.CL:CL.L:.....::|
00000A90: 00 A5 12 80 3E 8F 20 20 20 4C 4F 41 44 20 41 20 |....>. LOAD A |
00000AA0: 54 41 42 4C 45 00 B8 12 85 3E 46 24 B2 CA 28 54 |TABLE....>F$..(T|
00000AB0: 24 28 43 4C 29 2C 34 29 00 C9 12 8A 3E 44 4C B2 |$(CL),4)....>DL.|
00000AC0: 31 3A 93 46 24 2C 38 2C 31 00 E5 12 94 3E 8F 20 |1:.F$,8,1....>. |
00000AD0: 20 20 43 4F 4D 45 20 46 52 4F 4D 20 4C 49 4E 45 | COME FROM LINE|
00000AE0: 20 5A 45 52 4F 00 F5 12 9E 3E 43 4C B2 43 4C AA | ZERO....>CL.CL.|
00000AF0: 31 3A 89 36 30 00 FB 12 A8 3E 3A 00 33 13 20 4E |1:.60....>:.3. N|
00000B00: 8F 20 20 49 4E 50 55 54 20 43 45 52 54 41 49 4E |. INPUT CERTAIN|
00000B10: 20 4B 45 59 53 20 41 4E 44 20 47 4F 54 4F 20 54 | KEYS AND GOTO T|
00000B20: 48 45 20 44 45 53 49 47 4E 41 54 45 44 20 4C 41 |HE DESIGNATED LA|
00000B30: 42 45 4C 00 41 13 2A 4E 54 24 B2 54 24 28 43 4C |BEL.A.*NT$.T$(CL|
00000B40: 29 00 4E 13 34 4E 4E 4B B2 31 3A 43 B2 34 00 64 |).N.4NNK.1:C.4.d|
00000B50: 13 3E 4E 56 4B 24 28 4E 4B 29 B2 CA 28 54 24 2C |.>NVK$(NK)..(T$,|
00000B60: 43 2C 31 29 00 8E 13 48 4E 8B CA 28 54 24 2C 43 |C,1)...HN..(T$,C|
00000B70: AA 31 2C 31 29 B2 22 3B 22 A7 4E 4B B2 4E 4B AA |.1,1).";".NK.NK.|
00000B80: 31 3A 43 B2 43 AA 32 3A 89 32 30 30 33 30 00 AA |1:C.C.2:.20030..|
00000B90: 13 52 4E 8F 20 20 4E 4B 3D 4E 55 4D 20 4F 46 20 |.RN. NK=NUM OF |
00000BA0: 56 41 4C 49 44 20 4B 45 59 53 00 B9 13 5C 4E 43 |VALID KEYS...\NC|
00000BB0: B2 43 AA 32 3A 43 48 B2 43 00 C7 13 70 4E 81 58 |.C.2:CH.C...pN.X|
00000BC0: B2 31 A4 4E 4B AB 31 00 E1 13 7A 4E 8B CA 28 54 |.1.NK.1...zN..(T|
00000BD0: 24 2C 43 48 2C 31 29 B2 22 3B 22 A7 32 30 31 31 |$,CH,1).";".2011|
00000BE0: 30 00 F4 13 84 4E 43 48 B2 43 48 AA 31 3A 89 32 |0....NCH.CH.1:.2|
00000BF0: 30 30 39 30 00 0C 14 8E 4E 56 4C 24 28 58 29 B2 |0090....NVL$(X).|
00000C00: CA 28 54 24 2C 43 2C 43 48 AB 43 29 00 1C 14 98 |.(T$,C,CH.C)....|
00000C10: 4E 43 B2 43 48 AA 31 3A 43 48 B2 43 00 34 14 A2 |NC.CH.1:CH.C.4..|
00000C20: 4E 82 58 3A 56 4C 24 28 4E 4B 29 B2 CA 28 54 24 |N.X:VL$(NK)..(T$|
00000C30: 2C 43 48 29 00 4F 14 AC 4E 8F 20 20 4C 41 42 45 |,CH).O..N. LABE|
00000C40: 4C 53 20 49 4E 20 56 4C 24 28 31 2D 4E 4B 29 00 |LS IN VL$(1-NK).|
00000C50: 55 14 B6 4E 3A 00 6B 14 C0 4E 97 31 39 38 2C 30 |U..N:.k..N.198,0|
00000C60: 3A 92 31 39 38 2C 31 3A A1 4B 24 00 77 14 CA 4E |:.198,1:.K$.w..N|
00000C70: 81 58 B2 31 A4 4E 4B 00 8C 14 D4 4E 8B 4B 24 B2 |.X.1.NK....N.K$.|
00000C80: 56 4B 24 28 58 29 A7 32 30 32 30 30 00 9A 14 DE |VK$(X).20200....|
00000C90: 4E 82 58 3A 89 32 30 31 36 30 00 AF 14 E8 4E 4C |N.X:.20160....NL|
00000CA0: 24 B2 56 4C 24 28 58 29 3A 8D 31 34 35 30 30 00 |$.VL$(X):.14500.|
00000CB0: B8 14 F2 4E 43 4C B2 4C 00 BE 14 FC 4E 8E 00 C4 |...NCL.L....N...|
00000CC0: 14 F0 55 3A 00 DF 14 60 EA 8F 20 20 52 45 54 55 |..U:...`.. RETU|
00000CD0: 52 4E 20 54 4F 20 4D 41 47 41 5A 45 54 54 45 00 |RN TO MAGAZETTE.|
00000CE0: F8 14 65 EA 9E 20 35 31 34 35 39 3A 99 22 93 05 |..e.. 51459:."..|
00000CF0: 22 3A 97 39 32 38 2C 30 00 11 15 6A EA 93 22 48 |":.928,0...j.."H|
00000D00: 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 3A |ELLO CONNECT",8:|
00000D10: 80 00 00 00 |.... |
......ZZ$."":.DL.1.DL.0:.16020.;....
"COMMUNIQUE".^.... WRITTEN B
Y ALAN GARDNER.X.... 2-21-86
.~................LF.0.LF.1:."UNPACKER",
8,1.J....LF.1.LF.2:."GALLERY.SHPS.LNK",8
,1......LF.2.LF.3:."TEXTPLOT.8192.O",8,1
......LF.3.LF.4:."INPUT.2.O",8,1.M....T$
(300),VL$(30),VL%(30):.8,8,8,"GALLERY.TE
XT":LC.0:LL.0.F....828,8,80:ZZ$.ZZ$.""..
....H(ZZ$,2)."^@".LL.LL.1:VL$(LL).J(ZZ$,
3):VL%(LL).LC:.11.F....ZZ$.."G".LC.LC.1:
T$(LC).ZZ$:.11.Y... 8: 15:LC.LC.1.....:.
..(.CL.1:RE.0:.LK$(20),LL$(20):C$."":Z$.
"".3.*.LM.0:RM.39:TM.0:BM.23:TY.0:TEXT.8
192.D.+.S$."
"...,.D$."...................
......"...2.:...7..11000:.51459:.53280,0
...8.:...<...X.=.C$.T$(CL):.C$."".T$(CL)
." ":.90...>.C$.H(T$(CL),1):.C$."'".CL.C
L.1:.60...F..C$."^"..1000:.60...P.:.=.Z.
. ROUTINE TO PRINT TEXT HERE.C.[.Z$.T$(
CL):.TEXT,Z$,LM.8,(TM.TY).8.O.\..T$(CL).
{.].TY.TY.1...C.CL.CL.1:.60...D.. **
***********************.Q.N..:. * EN
D OF BODY *...X.. ************
*************.....:...... CHECK OPTION
S.&...C$.J(T$(CL),2,1).,...:.U....C$."L"
.LM.E(J(T$(CL),3)): .2000.~....C$."R
".RM.E(J(T$(CL),3)): .2000......C$."
T".TM.E(J(T$(CL),3)): .2000.P....C$.
"B".BM.E(J(T$(CL),3)): .2000.V...:..
....C$."C"..10000:.2000: . CLEAR
.).$..C$."W"..11000:.2000: . WIP
E.V....C$."P"..12000:.2000: . PL
OT SHP..8..C$."K"..13000:.2000:
. WAIT...B..C$."I"..20000:.2010:
. INPUT.U.L..C$."X"..RE.0.60000:
. EXIT...V..C$."X".CL.RE.1:RE.0:.
2010: . RETURN FROM SUB.6.`..C$."G
"..14000:.2010: . GOTO.`.J..C$."
S"..15000:.2010: . GOSUB...T..C$
."D"..16000:.2000: . LOAD A TABL
E...P.. RETURN TO LINE 70...U.CL.CL.1..
.Z...B...:....'. CLEAR CURRENT WINDOW.
...'OP.E(I(T$(CL),1)).#.$'.OP.0. . C
HANGE EOR TO SOMETHING ELSE.Q..'.OP.1.
. CHANGE SOMETHING ELSE TO EOR.G.8'SP
$.H(S$,RM.LM.1).W.B'. T.TM . BM...L'. TE
XT,SP$,LM.8,T.8...V'. T:TY.0...`'....J':
.D..*. CLEAR ENTIRE SCREEN....+SHP.0:P
X.0:PY.0:.12100:TY.0: .....+:....
.. PLOT A SHAPE.....CH.1:C.4.M....J(T$
(CL),CH,1).";".SHP.E(J(T$(CL),C,CH.1)):.
12040.`...CH.CH.1:.12020.M../C.C.CH.1...
./.J(T$(CL),CH,1).";".PX.E(J(T$(CL),C,CH
.1)):.12070..../CH.CH.1:.12050.O.&/PY.E(
J(T$(CL),C.CH))...D/. *** PLOT A SHAPE *
**...N/.249,224:.250,204...X/.251,0:.252
,64.'.B/.253,PX:.254,PY.4.L/.255,SHP.?.V
/.51462.E../..K../:.F.H2. WAIT FOR A KE
YPRESS.~.R2.198,0:.198,1:.K$:.....2:....
6. GOTO A LABEL....6L$.J(T$(CL),4):L.0:
.14500.A.D6CL.L:..G.N6:....8. FIND A LA
BEL IN THE TEXT....8. X.1 . LL....8.VL$(
X).L$.L.VL%(X):.14550...B8.X.:.L8."UNKNO
WN LABEL --- "L$:..@.V8..F..8:.[..:. GO
SUB A LABEL.Y..:L$.J(T$(CL),4):L.0:.1450
0....:RE.CL:CL.L:.....::....>. LOAD A
TABLE....>F$.J(T$(CL),4).I..>DL.1:.F$,8,
1....>. COME FROM LINE ZERO....>CL.CL.
1:.60....>:.3. N. INPUT CERTAIN KEYS AN
D GOTO THE DESIGNATED LABEL.A.*NT$.T$(CL
).N.4NNK.1:C.4.D.>NVK$(NK).J(T$,C,1)...H
N.J(T$,C.1,1).";".NK.NK.1:C.C.2:.20030..
.RN. NK=NUM OF VALID KEYS...\NC.C.2:CH.
C.G.PN.X.1.NK.1...ZN.J(T$,CH,1).";".2011
0....NCH.CH.1:.20090....NVL$(X).J(T$,C,C
H.C)....NC.CH.1:CH.C.4..N.X:VL$(NK).J(T$
,CH).O..N. LABELS IN VL$(1-NK).U..N:.K.
.N.198,0:.198,1:.K$.W.JN.X.1.NK...TN.K$.
VK$(X).20200....N.X:.20160....NL$.VL$(X)
:.14500....NCL.L....N..D..U:...`.. RETU
RN TO MAGAZETTE...E.. 51459:."..":.928,0
...J.."HELLO CONNECT",8:....
> CLICK IMAGE PREVIEW FOR FULL MODAL