COMMUNIQUE
FILE INFORMATION
FILENAME(S): COMMUNIQUE
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 18:12:11
APPEARS ON: 2 disk(s)
FILE HASH
d6cfd2d801177e10adea4528666076d22c73890c6519ddee71ecc418fc48bbaa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 23 S 2 | COMMUNIQUE | PRG | Sailor, Ganheden | 16 | 13 | DOWNLOAD FILE |
| LOADSTAR 23 S 2 | COMMUNIQUE | PRG | Curtcool, Frank | 16 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 5A 24 B2 22 22 00 28 08 C8 00 |......Z$."".(...|
00000010: 8F 20 20 20 20 20 20 20 20 20 20 20 22 43 4F 4D |. "COM|
00000020: 4D 55 4E 49 51 55 45 22 00 4B 08 2C 01 8F 20 20 |MUNIQUE".K.,.. |
00000030: 20 20 20 20 57 52 49 54 54 45 4E 20 42 59 20 41 | WRITTEN BY A|
00000040: 4C 41 4E 20 47 41 52 44 4E 45 52 00 65 08 90 01 |LAN GARDNER.e...|
00000050: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2D |. 2-|
00000060: 32 31 2D 38 36 00 6B 08 F4 01 8F 00 71 08 58 02 |21-86.k.....q.X.|
00000070: 8F 00 95 08 BC 02 8B 4C 46 B2 30 A7 4C 46 B2 31 |.......LF.0.LF.1|
00000080: 3A 93 22 49 4E 50 55 54 2E 42 4C 4F 41 44 2E 4F |:."INPUT.BLOAD.O|
00000090: 22 2C 38 2C 31 00 B3 08 84 03 9E 38 33 31 2C 35 |",8,1......831,5|
000000A0: 30 37 35 39 2C 22 54 45 58 54 40 35 30 37 35 39 |0759,"TEXT@50759|
000000B0: 2E 4F 22 00 D2 08 9D 03 9E 38 33 31 2C 35 31 33 |.O"......831,513|
000000C0: 30 39 2C 22 53 43 52 2F 4C 49 4E 45 2E 57 50 2E |09,"SCR/LINE.WP.|
000000D0: 4F 22 00 EC 08 B6 03 9E 38 33 31 2C 35 31 34 35 |O"......831,5145|
000000E0: 36 2C 22 55 4E 50 41 43 4B 45 52 22 00 08 09 CA |6,"UNPACKER"....|
000000F0: 03 9E 38 33 31 2C 31 38 31 37 36 2C 22 43 54 49 |..831,18176,"CTI|
00000100: 54 4C 45 2E 53 48 50 22 00 0E 09 E8 03 3A 00 21 |TLE.SHP".....:.!|
00000110: 09 4C 04 97 35 35 2C 30 3A 97 35 36 2C 39 30 3A |.L..55,0:.56,90:|
00000120: 9C 00 27 09 B0 04 3A 00 58 09 DC 05 5A 24 B2 22 |..'...:.X...Z$."|
00000130: 22 3A 86 54 24 28 33 30 30 29 2C 56 4C 24 28 33 |":.T$(300),VL$(3|
00000140: 30 29 2C 56 4C 25 28 33 30 29 2C 53 25 28 31 30 |0),VL%(30),S%(10|
00000150: 29 2C 56 25 28 32 30 29 00 6A 09 0E 06 58 B2 34 |),V%(20).j...X.4|
00000160: 39 31 35 32 3A 46 24 B2 22 22 00 91 09 10 06 8B |9152:F$.""......|
00000170: C2 28 58 29 B3 B1 30 A7 46 24 B2 46 24 AA C7 28 |.(X)..0.F$.F$..(|
00000180: C2 28 58 29 29 3A 58 B2 58 AA 31 3A 89 31 35 35 |.(X)):X.X.1:.155|
00000190: 32 00 D7 09 40 06 42 41 B2 35 32 32 32 34 3A 54 |2...@.BA.52224:T|
000001A0: 45 B2 35 30 37 35 39 3A 42 4C 25 B2 38 33 31 3A |E.50759:BL%.831:|
000001B0: 49 4E 25 B2 38 32 38 3A 4D 4F 25 B2 31 3A 53 57 |IN%.828:MO%.1:SW|
000001C0: B2 35 31 33 30 39 3A 4C 57 B2 35 31 33 31 32 3A |.51309:LW.51312:|
000001D0: 53 25 28 30 29 B2 30 00 ED 09 A4 06 43 4C 25 B2 |S%(0).0.....CL%.|
000001E0: 31 3A 52 45 25 B2 30 3A 43 24 B2 22 22 00 17 0A |1:RE%.0:C$.""...|
000001F0: 08 07 4C 4D 25 B2 30 3A 52 4D 25 B2 33 39 3A 54 |..LM%.0:RM%.39:T|
00000200: 4D 25 B2 30 3A 42 4D 25 B2 32 33 3A 54 59 25 B2 |M%.0:BM%.23:TY%.|
00000210: 30 3A 46 4C 25 B2 30 00 48 0A 6C 07 53 24 B2 22 |0:FL%.0.H.l.S$."|
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 22 00 6B 0A D0 07 44 24 B2 | ".k...D$.|
00000250: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000260: 11 11 11 11 11 11 11 11 11 11 22 00 71 0A 02 08 |..........".q...|
00000270: 3A 00 9E 0A 0C 08 8D 31 35 30 30 30 3A 9E 35 31 |:......15000:.51|
00000280: 34 35 36 3A 9E 35 31 34 35 39 3A 20 20 20 20 20 |456:.51459: |
00000290: 20 20 20 20 20 20 97 35 33 32 38 30 2C 30 00 A4 | .53280,0..|
000002A0: 0A 34 08 3A 00 AF 0A 36 08 8D 31 35 30 30 30 00 |.4.:...6..15000.|
000002B0: CF 0A 3E 08 9F 38 2C 38 2C 38 2C 46 24 3A 4C 43 |..>..8,8,8,F$:LC|
000002C0: 25 B2 30 3A 4C 4C 25 B2 30 3A 43 4C 25 B2 31 00 |%.0:LL%.0:CL%.1.|
000002D0: E6 0A 48 08 9E 49 4E 25 2C 38 2C 38 30 3A 5A 24 |..H..IN%,8,80:Z$|
000002E0: B2 5A 24 AA 22 22 00 28 0B 52 08 8B C8 28 5A 24 |.Z$."".(.R...(Z$|
000002F0: 2C 32 29 B2 22 5E 40 22 A7 4C 4C 25 B2 4C 4C 25 |,2)."^@".LL%.LL%|
00000300: AA 31 3A 56 4C 24 28 4C 4C 25 29 B2 CA 28 5A 24 |.1:VL$(LL%)..(Z$|
00000310: 2C 33 29 3A 56 4C 25 28 4C 4C 25 29 B2 4C 43 25 |,3):VL%(LL%).LC%|
00000320: AA 31 3A 89 32 31 32 30 00 58 0B 5C 08 8B 5A 24 |.1:.2120.X.\..Z$|
00000330: B3 B1 22 C7 22 AF 5A 24 B3 B1 22 C4 22 A7 4C 43 |..".".Z$..".".LC|
00000340: 25 B2 4C 43 25 AA 31 3A 54 24 28 4C 43 25 29 B2 |%.LC%.1:T$(LC%).|
00000350: 5A 24 3A 89 32 31 32 30 00 6D 0B 66 08 A0 38 3A |Z$:.2120.m.f..8:|
00000360: A0 31 35 3A 4C 43 25 B2 4C 43 25 AB 31 00 80 0B |.15:LC%.LC%.1...|
00000370: 68 08 5A 5A B2 B8 28 30 29 3A 8D 31 35 30 30 30 |h.ZZ..(0):.15000|
00000380: 00 86 0B 98 08 3A 00 8C 0B FC 08 3A 00 92 0B 60 |.....:.....:...`|
00000390: 09 8F 00 BA 0B C4 09 43 24 B2 54 24 28 43 4C 25 |.......C$.T$(CL%|
000003A0: 29 3A 8B 43 24 B2 22 22 A7 54 24 28 43 4C 25 29 |):.C$."".T$(CL%)|
000003B0: B2 22 20 22 3A 89 32 39 30 30 00 E6 0B 28 0A 43 |." ":.2900...(.C|
000003C0: 24 B2 C8 28 54 24 28 43 4C 25 29 2C 31 29 3A 8B |$..(T$(CL%),1):.|
000003D0: 43 24 B2 22 27 22 A7 43 4C 25 B2 43 4C 25 AA 31 |C$."'".CL%.CL%.1|
000003E0: 3A 89 32 35 30 30 00 FE 0B 8C 0A 8B 43 24 B2 22 |:.2500......C$."|
000003F0: 5E 22 A7 8D 33 38 30 30 3A 89 32 34 30 30 00 04 |^"..3800:.2400..|
00000400: 0C F0 0A 3A 00 26 0C 54 0B 8F 20 20 52 4F 55 54 |...:.&.T.. ROUT|
00000410: 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 54 45 58 |INE TO PRINT TEX|
00000420: 54 20 48 45 52 45 00 4E 0C B8 0B 5A 24 B2 54 24 |T HERE.N...Z$.T$|
00000430: 28 43 4C 25 29 3A 9E 54 45 2C 5A 24 2C 4C 4D 25 |(CL%):.TE,Z$,LM%|
00000440: AC 38 2C 28 54 4D 25 AA 54 59 25 29 AC 38 00 5B |.8,(TM%.TY%).8.[|
00000450: 0C 1C 0C 99 54 24 28 43 4C 25 29 00 69 0C 80 0C |....T$(CL%).i...|
00000460: 54 59 25 B2 54 59 25 AA 31 00 7D 0C E4 0C 43 4C |TY%.TY%.1.}...CL|
00000470: 25 B2 43 4C 25 AA 31 3A 89 32 34 30 30 00 A1 0C |%.CL%.1:.2400...|
00000480: 48 0D 8F 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A |H.. ********|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 00 C3 0C AC 0D 80 3A 8F 20 2A 20 20 20 20 20 |*......:. * |
000004B0: 45 4E 44 20 4F 46 20 42 4F 44 59 20 20 20 20 20 |END OF BODY |
000004C0: 20 20 2A 00 E7 0C 10 0E 8F 20 20 20 20 20 2A 2A | *...... **|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004E0: 2A 2A 2A 2A 2A 2A 2A 00 ED 0C 74 0E 3A 00 03 0D |*******...t.:...|
000004F0: D8 0E 8F 20 20 20 43 48 45 43 4B 20 4F 50 54 49 |... CHECK OPTI|
00000500: 4F 4E 53 00 19 0D 3C 0F 43 24 B2 CA 28 54 24 28 |ONS...<.C$..(T$(|
00000510: 43 4C 25 29 2C 32 2C 31 29 00 1F 0D A0 0F 3A 00 |CL%),2,1).....:.|
00000520: 25 0D 94 11 3A 00 4D 0D F8 11 8B 43 24 B2 22 47 |%...:.M....C$."G|
00000530: 22 A7 8D 39 38 30 30 3A 89 35 38 30 30 3A 20 20 |"..9800:.5800: |
00000540: 20 20 20 20 20 20 20 8F 20 47 4F 54 4F 00 76 0D | . GOTO.v.|
00000550: 5C 12 8B 43 24 B2 22 53 22 A7 8D 31 30 39 30 30 |\..C$."S"..10900|
00000560: 3A 89 35 38 30 30 3A 20 20 20 20 20 20 20 20 8F |:.5800: .|
00000570: 20 47 4F 53 55 42 00 A2 0D C0 12 8B 43 24 B2 22 | GOSUB......C$."|
00000580: 50 22 A7 8D 37 33 30 30 3A 89 35 36 30 30 3A 20 |P"..7300:.5600: |
00000590: 20 20 20 20 20 20 20 20 8F 20 50 4C 4F 54 20 53 | . PLOT S|
000005A0: 48 50 00 DE 0D 24 13 8B 43 24 B2 22 56 22 A7 31 |HP...$..C$."V".1|
000005B0: 36 30 30 30 3A 20 20 20 20 20 20 20 20 20 20 20 |6000: |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 8F 20 4D 41 53 | . MAS|
000005D0: 53 41 47 45 20 56 41 52 49 41 42 4C 45 53 00 14 |SAGE VARIABLES..|
000005E0: 0E 88 13 8B 43 24 B2 22 44 22 A7 31 31 33 30 30 |....C$."D".11300|
000005F0: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000600: 20 20 20 20 20 20 20 8F 20 44 49 53 4B 20 4F 50 | . DISK OP|
00000610: 54 49 4F 4E 00 3D 0E EC 13 8B 43 24 B2 22 43 22 |TION.=....C$."C"|
00000620: A7 8D 36 30 30 30 3A 89 35 36 30 30 3A 20 20 20 |..6000:.5600: |
00000630: 20 20 20 20 20 20 8F 20 43 4C 45 41 52 00 65 0E | . CLEAR.e.|
00000640: 50 14 8B 43 24 B2 22 57 22 A7 8D 37 30 30 30 3A |P..C$."W"..7000:|
00000650: 89 35 36 30 30 3A 20 20 20 20 20 20 20 20 20 8F |.5600: .|
00000660: 20 57 49 50 45 00 98 0E B4 14 8B 43 24 B2 22 58 | WIPE......C$."X|
00000670: 22 A7 8B 53 25 28 30 29 B2 30 A7 31 34 33 30 30 |"..S%(0).0.14300|
00000680: 3A 20 20 20 20 20 20 20 20 20 8F 20 45 58 49 54 |: . EXIT|
00000690: 20 50 52 4F 47 52 41 4D 00 DA 0E 18 15 8B 43 24 | PROGRAM......C$|
000006A0: B2 22 58 22 A7 43 4C 25 B2 53 25 28 53 25 28 30 |."X".CL%.S%(S%(0|
000006B0: 29 29 AA 31 3A 53 25 28 30 29 B2 53 25 28 30 29 |)).1:S%(0).S%(0)|
000006C0: AB 31 3A 89 35 38 30 30 3A 8F 20 52 45 54 55 52 |.1:.5800:. RETUR|
000006D0: 4E 20 46 52 4F 4D 20 53 55 42 00 09 0F 7C 15 8B |N FROM SUB...|..|
000006E0: 43 24 B2 22 4B 22 A7 39 35 30 30 3A 20 20 20 20 |C$."K".9500: |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 20 8F 20 57 41 49 54 00 32 0F AE 15 8B 43 | . WAIT.2....C|
00000710: 24 B2 22 49 22 A7 8D 31 32 30 30 30 3A 89 35 38 |$."I"..12000:.58|
00000720: 30 30 3A 20 20 20 20 20 20 20 20 8F 20 49 4E 50 |00: . INP|
00000730: 55 54 00 38 0F AF 15 3A 00 6A 0F B0 15 8B 43 24 |UT.8...:.j....C$|
00000740: B2 22 4C 22 A7 4C 4D 25 B2 C5 28 CA 28 54 24 28 |."L".LM%..(.(T$(|
00000750: 43 4C 25 29 2C 33 29 29 AB 31 3A 43 4C 25 B2 43 |CL%),3)).1:CL%.C|
00000760: 4C 25 AA 31 3A 89 32 35 30 30 00 9C 0F B2 15 8B |L%.1:.2500......|
00000770: 43 24 B2 22 52 22 A7 52 4D 25 B2 C5 28 CA 28 54 |C$."R".RM%..(.(T|
00000780: 24 28 43 4C 25 29 2C 33 29 29 AB 31 3A 43 4C 25 |$(CL%),3)).1:CL%|
00000790: B2 43 4C 25 AA 31 3A 89 32 35 30 30 00 CE 0F B4 |.CL%.1:.2500....|
000007A0: 15 8B 43 24 B2 22 54 22 A7 54 4D 25 B2 C5 28 CA |..C$."T".TM%..(.|
000007B0: 28 54 24 28 43 4C 25 29 2C 33 29 29 AB 31 3A 43 |(T$(CL%),3)).1:C|
000007C0: 4C 25 B2 43 4C 25 AA 31 3A 89 32 35 30 30 00 00 |L%.CL%.1:.2500..|
000007D0: 10 B6 15 8B 43 24 B2 22 42 22 A7 42 4D 25 B2 C5 |....C$."B".BM%..|
000007E0: 28 CA 28 54 24 28 43 4C 25 29 2C 33 29 29 AB 31 |(.(T$(CL%),3)).1|
000007F0: 3A 43 4C 25 B2 43 4C 25 AA 31 3A 89 32 35 30 30 |:CL%.CL%.1:.2500|
00000800: 00 1B 10 E0 15 8F 20 20 52 45 54 55 52 4E 20 54 |...... RETURN T|
00000810: 4F 20 4C 49 4E 45 20 32 35 30 30 00 31 10 44 16 |O LINE 2500.1.D.|
00000820: 58 B2 43 4C 25 3A 58 B2 58 AA 31 3A 43 4C 25 B2 |X.CL%:X.X.1:CL%.|
00000830: 58 00 37 10 A8 16 8E 00 3D 10 0C 17 3A 00 5A 10 |X.7.....=...:.Z.|
00000840: 70 17 8F 20 20 20 43 4C 45 41 52 20 43 55 52 52 |p.. CLEAR CURR|
00000850: 45 4E 54 20 57 49 4E 44 4F 57 00 71 10 D4 17 4F |ENT WINDOW.q...O|
00000860: 50 B2 C5 28 CA 28 54 24 28 43 4C 25 29 2C 33 29 |P..(.(T$(CL%),3)|
00000870: 29 00 80 10 38 18 8B 4F 50 B2 30 A7 58 B2 31 36 |)...8..OP.0.X.16|
00000880: 00 8E 10 9C 18 8B 4F 50 B2 31 A7 58 B2 31 00 A6 |......OP.1.X.1..|
00000890: 10 00 19 53 50 24 B2 C8 28 53 24 2C 52 4D 25 AB |...SP$..(S$,RM%.|
000008A0: 4C 4D 25 AA 31 29 00 B8 10 64 19 81 20 54 B2 54 |LM%.1)...d.. T.T|
000008B0: 4D 25 20 A4 20 42 4D 25 00 FD 10 C8 19 9E 20 54 |M% . BM%...... T|
000008C0: 45 2C 53 50 24 2C 4C 4D 25 AC 38 2C 54 AC 38 3A |E,SP$,LM%.8,T.8:|
000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008E0: 20 20 20 9E 20 4C 57 2C 42 41 AA 54 AC 34 30 AA | . LW,BA.T.40.|
000008F0: 4C 4D 25 2C 52 4D 25 AB 4C 4D 25 2C 58 00 0B 11 |LM%,RM%.LM%,X...|
00000900: 2C 1A 82 20 54 3A 54 59 25 B2 30 00 11 11 90 1A |,.. T:TY%.0.....|
00000910: 8E 00 17 11 F4 1A 3A 00 33 11 58 1B 8F 20 20 20 |......:.3.X.. |
00000920: 43 4C 45 41 52 20 45 4E 54 49 52 45 20 53 43 52 |CLEAR ENTIRE SCR|
00000930: 45 45 4E 00 4A 11 BC 1B 4F 50 B2 C5 28 CA 28 54 |EEN.J...OP..(.(T|
00000940: 24 28 43 4C 25 29 2C 33 29 29 00 5B 11 C6 1B 8B |$(CL%),3)).[....|
00000950: 4F 50 B2 30 A7 9E 53 57 2C 31 36 00 6B 11 D0 1B |OP.0..SW,16.k...|
00000960: 8B 4F 50 B2 31 A7 9E 53 57 2C 31 00 75 11 DA 1B |.OP.1..SW,1.u...|
00000970: 54 59 25 B2 30 00 7B 11 E4 1B 8E 00 81 11 20 1C |TY%.0.{....... .|
00000980: 3A 00 96 11 84 1C 8F 20 20 20 50 4C 4F 54 20 41 |:...... PLOT A|
00000990: 20 53 48 41 50 45 00 B6 11 E8 1C 49 25 B2 33 3A | SHAPE.....I%.3:|
000009A0: 8D 38 38 30 30 3A 53 48 25 B2 4E 25 3A 53 48 25 |.8800:SH%.N%:SH%|
000009B0: B2 53 48 25 AB 31 00 D2 11 4C 1D 49 25 B2 49 25 |.SH%.1...L.I%.I%|
000009C0: AA 43 25 AA 31 3A 8D 38 38 30 30 3A 4D 4F 25 B2 |.C%.1:.8800:MO%.|
000009D0: 4E 25 00 EE 11 B0 1D 49 25 B2 49 25 AA 43 25 AA |N%.....I%.I%.C%.|
000009E0: 31 3A 8D 38 38 30 30 3A 50 58 25 B2 4E 25 00 0C |1:.8800:PX%.N%..|
000009F0: 12 78 1E 50 59 25 B2 C5 28 CA 28 54 24 28 43 4C |.x.PY%..(.(T$(CL|
00000A00: 25 29 2C 49 25 AA 43 25 AA 31 29 29 00 12 12 DC |%),I%.C%.1))....|
00000A10: 1E 3A 00 2D 12 40 1F 8F 20 2A 2A 2A 20 50 4C 4F |.:.-.@.. *** PLO|
00000A20: 54 20 41 20 53 48 41 50 45 20 2A 2A 2A 00 43 12 |T A SHAPE ***.C.|
00000A30: A4 1F 97 32 34 39 2C 32 32 34 3A 97 32 35 30 2C |...249,224:.250,|
00000A40: 32 30 34 00 62 12 D6 1F 41 44 25 B2 32 33 32 39 |204.b...AD%.2329|
00000A50: 36 3A 8B 4D 4F 25 B2 32 A7 41 44 25 B2 32 38 34 |6:.MO%.2.AD%.284|
00000A60: 31 36 00 7A 12 08 20 97 32 35 31 2C 30 3A 97 32 |16.z.. .251,0:.2|
00000A70: 35 32 2C 41 44 25 AD 32 35 36 00 90 12 6C 20 97 |52,AD%.256...l .|
00000A80: 32 35 33 2C 50 58 25 3A 97 32 35 34 2C 50 59 25 |253,PX%:.254,PY%|
00000A90: 00 9D 12 D0 20 97 32 35 35 2C 53 48 25 00 A8 12 |.... .255,SH%...|
00000AA0: 34 21 9E 35 31 34 36 32 00 AE 12 98 21 8E 00 B4 |4!.51462....!...|
00000AB0: 12 FC 21 3A 00 CE 12 60 22 8F 20 20 20 50 41 52 |..!:...`". PAR|
00000AC0: 53 45 20 4F 55 54 20 41 20 56 41 4C 55 45 00 EF |SE OUT A VALUE..|
00000AD0: 12 C4 22 8F 20 20 20 49 25 3D 53 54 41 52 54 20 |..". I%=START |
00000AE0: 50 4F 53 4E 20 49 4E 20 54 24 28 43 4C 25 29 00 |POSN IN T$(CL%).|
00000AF0: 12 13 28 23 8F 20 20 20 52 45 54 55 52 4E 53 20 |..(#. RETURNS |
00000B00: 4E 25 20 41 53 20 56 41 4C 55 45 20 50 41 52 53 |N% AS VALUE PARS|
00000B10: 45 44 00 2E 13 8C 23 43 25 B2 30 3A 45 25 B2 30 |ED....#C%.0:E%.0|
00000B20: 3A 4C 25 B2 C3 28 54 24 28 43 4C 25 29 29 00 54 |:L%..(T$(CL%)).T|
00000B30: 13 96 23 8B CA 28 54 24 28 43 4C 25 29 2C 49 25 |..#..(T$(CL%),I%|
00000B40: 2C 31 29 B2 22 23 22 A7 45 25 B2 31 3A 49 25 B2 |,1)."#".E%.1:I%.|
00000B50: 49 25 AA 31 00 8B 13 F0 23 8B CA 28 54 24 28 43 |I%.1....#..(T$(C|
00000B60: 4C 25 29 2C 49 25 2C 31 29 B3 B1 22 2C 22 A7 49 |L%),I%,1)..",".I|
00000B70: 25 B2 49 25 AA 31 3A 43 25 B2 43 25 AA 31 3A 8B |%.I%.1:C%.C%.1:.|
00000B80: 49 25 B3 B2 4C 25 A7 39 32 30 30 00 AF 13 54 24 |I%..L%.9200...T$|
00000B90: 49 25 B2 49 25 AB 43 25 3A 4E 25 B2 C5 28 CA 28 |I%.I%.C%:N%..(.(|
00000BA0: 54 24 28 43 4C 25 29 2C 49 25 2C 43 25 29 29 00 |T$(CL%),I%,C%)).|
00000BB0: C3 13 86 24 8B 45 25 B2 31 A7 4E 25 B2 56 25 28 |...$.E%.1.N%.V%(|
00000BC0: 4E 25 29 00 C9 13 9F 24 8E 00 CF 13 B8 24 3A 00 |N%)....$.....$:.|
00000BD0: EA 13 1C 25 8F 20 20 57 41 49 54 20 46 4F 52 20 |...%. WAIT FOR |
00000BE0: 41 20 4B 45 59 50 52 45 53 53 00 07 14 35 25 4C |A KEYPRESS...5%L|
00000BF0: 24 B2 22 22 3A 8B C3 28 54 24 28 43 4C 25 29 29 |$."":..(T$(CL%))|
00000C00: B3 33 A7 39 36 30 30 00 40 14 4E 25 8B C2 28 31 |.3.9600.@.N%..(1|
00000C10: 39 38 29 B3 B1 30 A7 4C 24 B2 CA 28 54 24 28 43 |98)..0.L$..(T$(C|
00000C20: 4C 25 29 2C 35 29 3A 8D 31 30 32 30 30 3A 43 4C |L%),5):.10200:CL|
00000C30: 25 B2 4C 3A 97 31 39 38 2C 30 3A 89 35 38 30 30 |%.L:.198,0:.5800|
00000C40: 00 4A 14 58 25 89 35 36 30 30 00 66 14 80 25 97 |.J.X%.5600.f..%.|
00000C50: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 4B 24 |198,0:.198,1:.K$|
00000C60: 3A 89 35 36 30 30 00 6C 14 E4 25 3A 00 80 14 48 |:.5600.l..%:...H|
00000C70: 26 8F 20 20 47 4F 54 4F 20 41 20 4C 41 42 45 4C |&. GOTO A LABEL|
00000C80: 00 9F 14 AC 26 4C 24 B2 CA 28 54 24 28 43 4C 25 |....&L$..(T$(CL%|
00000C90: 29 2C 34 29 3A 4C B2 30 3A 8D 31 30 32 30 30 00 |),4):L.0:.10200.|
00000CA0: AB 14 10 27 43 4C 25 B2 4C 3A 8E 00 B1 14 74 27 |...'CL%.L:....t'|
00000CB0: 3A 00 D1 14 D8 27 8F 20 20 46 49 4E 44 20 41 20 |:....'. FIND A |
00000CC0: 4C 41 42 45 4C 20 49 4E 20 54 48 45 20 54 45 58 |LABEL IN THE TEX|
00000CD0: 54 00 E1 14 3C 28 81 20 58 B2 31 20 A4 20 4C 4C |T...<(. X.1 . LL|
00000CE0: 25 00 00 15 A0 28 8B 56 4C 24 28 58 29 B2 4C 24 |%....(.VL$(X).L$|
00000CF0: A7 4C B2 56 4C 25 28 58 29 3A 89 31 30 37 30 30 |.L.VL%(X):.10700|
00000D00: 00 22 15 04 29 82 58 3A 54 24 B2 22 55 4E 4B 4E |."..).X:T$."UNKN|
00000D10: 4F 57 4E 20 4C 41 42 45 4C 20 2D 2D 2D 20 22 AA |OWN LABEL --- ".|
00000D20: 4C 24 00 3A 15 68 29 9E 53 57 2C 31 36 3A 9E 54 |L$.:.h).SW,16:.T|
00000D30: 45 2C 54 24 2C 30 2C 30 3A 90 00 40 15 CC 29 8E |E,T$,0,0:..@..).|
00000D40: 00 46 15 30 2A 3A 00 5B 15 94 2A 8F 20 20 47 4F |.F.0*:.[..*. GO|
00000D50: 53 55 42 20 41 20 4C 41 42 45 4C 00 7A 15 F8 2A |SUB A LABEL.z..*|
00000D60: 4C 24 B2 CA 28 54 24 28 43 4C 25 29 2C 34 29 3A |L$..(T$(CL%),4):|
00000D70: 4C B2 30 3A 8D 31 30 32 30 30 00 AA 15 2A 2B 8B |L.0:.10200...*+.|
00000D80: 53 25 28 30 29 B2 31 30 A7 9E 53 57 2C 31 36 3A |S%(0).10..SW,16:|
00000D90: 9E 54 45 2C 22 53 54 41 43 4B 20 4F 56 45 52 46 |.TE,"STACK OVERF|
00000DA0: 4C 4F 57 22 2C 30 2C 30 3A 90 00 D8 15 5C 2B 53 |LOW",0,0:....\+S|
00000DB0: 25 28 30 29 B2 53 25 28 30 29 AA 31 3A 53 25 28 |%(0).S%(0).1:S%(|
00000DC0: 53 25 28 30 29 29 B2 43 4C 25 3A 43 4C 25 B2 4C |S%(0)).CL%:CL%.L|
00000DD0: 3A 20 20 20 20 20 20 8E 00 DE 15 C0 2B 3A 00 FE |: .....+:..|
00000DE0: 15 24 2C 8F 20 20 20 47 45 54 20 53 4F 4D 45 54 |.$,. GET SOMET|
00000DF0: 48 49 4E 47 20 46 52 4F 4D 20 44 49 53 4B 00 2C |HING FROM DISK.,|
00000E00: 16 88 2C 8B CA 28 54 24 28 43 4C 25 29 2C 33 2C |..,..(T$(CL%),3,|
00000E10: 31 29 B2 22 54 22 A7 46 24 B2 CA 28 54 24 28 43 |1)."T".F$..(T$(C|
00000E20: 4C 25 29 2C 35 29 3A 89 32 31 30 30 00 32 16 92 |L%),5):.2100.2..|
00000E30: 2C 3A 00 40 16 BA 2C 49 25 B2 35 3A 43 25 B2 30 |,:.@..,I%.5:C%.0|
00000E40: 00 71 16 C4 2C 8B CA 28 54 24 28 43 4C 25 29 2C |.q..,..(T$(CL%),|
00000E50: 49 25 2C 31 29 B3 B1 22 2C 22 A7 49 25 B2 49 25 |I%,1)..",".I%.I%|
00000E60: AA 31 3A 43 25 B2 43 25 AA 31 3A 89 31 31 34 36 |.1:C%.C%.1:.1146|
00000E70: 30 00 92 16 CE 2C 49 25 B2 49 25 AB 43 25 3A 46 |0....,I%.I%.C%:F|
00000E80: 24 B2 CA 28 54 24 28 43 4C 25 29 2C 49 25 2C 43 |$..(T$(CL%),I%,C|
00000E90: 25 29 00 B0 16 D8 2C 4D 4F 25 B2 C5 28 CA 28 54 |%)....,MO%..(.(T|
00000EA0: 24 28 43 4C 25 29 2C 49 25 AA 43 25 AA 31 29 29 |$(CL%),I%.C%.1))|
00000EB0: 00 CF 16 DD 2C 41 44 25 B2 32 33 32 39 36 3A 8B |....,AD%.23296:.|
00000EC0: 4D 4F 25 B2 32 A7 41 44 25 B2 32 38 34 31 36 00 |MO%.2.AD%.28416.|
00000ED0: E3 16 E2 2C 58 B2 41 44 25 3A 9E 42 4C 25 2C 58 |...,X.AD%:.BL%,X|
00000EE0: 2C 46 24 00 F9 16 E4 2C 97 32 34 39 2C 32 32 34 |,F$....,.249,224|
00000EF0: 3A 97 32 35 30 2C 32 30 34 00 04 17 E7 2C 89 20 |:.250,204....,. |
00000F00: 35 36 30 30 00 0A 17 7C 2E 3A 00 53 17 E0 2E 8F |5600...|.:.S....|
00000F10: 20 20 49 4E 50 55 54 20 43 45 52 54 41 49 4E 20 | INPUT CERTAIN |
00000F20: 4B 45 59 53 20 41 4E 44 20 20 20 20 20 20 20 20 |KEYS AND |
00000F30: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 20 54 | GOTO T|
00000F40: 48 45 20 44 45 53 49 47 4E 41 54 45 44 20 4C 41 |HE DESIGNATED LA|
00000F50: 42 45 4C 00 62 17 44 2F 54 24 B2 54 24 28 43 4C |BEL.b.D/T$.T$(CL|
00000F60: 25 29 00 6F 17 A8 2F 4E 4B B2 31 3A 43 B2 34 00 |%).o../NK.1:C.4.|
00000F70: 85 17 0C 30 56 4B 24 28 4E 4B 29 B2 CA 28 54 24 |...0VK$(NK)..(T$|
00000F80: 2C 43 2C 31 29 00 AF 17 70 30 8B CA 28 54 24 2C |,C,1)...p0..(T$,|
00000F90: 43 AA 31 2C 31 29 B2 22 2C 22 A7 4E 4B B2 4E 4B |C.1,1).",".NK.NK|
00000FA0: AA 31 3A 43 B2 43 AA 32 3A 89 31 32 33 30 30 00 |.1:C.C.2:.12300.|
00000FB0: CB 17 D4 30 8F 20 20 4E 4B 3D 4E 55 4D 20 4F 46 |...0. NK=NUM OF|
00000FC0: 20 56 41 4C 49 44 20 4B 45 59 53 00 DB 17 38 31 | VALID KEYS...81|
00000FD0: 43 B2 43 AA 32 3A 43 48 25 B2 43 00 E9 17 9C 31 |C.C.2:CH%.C....1|
00000FE0: 81 58 B2 31 A4 4E 4B AB 31 00 04 18 00 32 8B CA |.X.1.NK.1....2..|
00000FF0: 28 54 24 2C 43 48 25 2C 31 29 B2 22 2C 22 A7 31 |(T$,CH%,1).",".1|
00001000: 33 30 30 30 00 19 18 64 32 43 48 25 B2 43 48 25 |3000...d2CH%.CH%|
00001010: AA 31 3A 89 31 32 38 30 30 00 32 18 C8 32 4C 4C |.1:.12800.2..2LL|
00001020: 24 28 58 29 B2 CA 28 54 24 2C 43 2C 43 48 25 AB |$(X)..(T$,C,CH%.|
00001030: 43 29 00 44 18 2C 33 43 B2 43 48 25 AA 31 3A 43 |C).D.,3C.CH%.1:C|
00001040: 48 25 B2 43 00 5D 18 90 33 82 58 3A 4C 4C 24 28 |H%.C.]..3.X:LL$(|
00001050: 4E 4B 29 B2 CA 28 54 24 2C 43 48 25 29 00 79 18 |NK)..(T$,CH%).y.|
00001060: F4 33 8F 20 20 4C 41 42 45 4C 53 20 49 4E 25 20 |.3. LABELS IN% |
00001070: 56 4C 24 28 31 2D 4E 4B 29 00 7F 18 58 34 3A 00 |VL$(1-NK)...X4:.|
00001080: 95 18 BC 34 97 31 39 38 2C 30 3A 92 31 39 38 2C |...4.198,0:.198,|
00001090: 31 3A A1 4B 24 00 A1 18 20 35 81 58 B2 31 A4 4E |1:.K$... 5.X.1.N|
000010A0: 4B 00 C1 18 84 35 8B 4B 24 B2 56 4B 24 28 58 29 |K....5.K$.VK$(X)|
000010B0: A7 4C 24 B2 4C 4C 24 28 58 29 3A 89 31 33 39 30 |.L$.LL$(X):.1390|
000010C0: 30 00 CF 18 E8 35 82 58 3A 89 31 33 35 30 30 00 |0....5.X:.13500.|
000010D0: DA 18 4C 36 8D 31 30 32 30 30 00 E4 18 B0 36 43 |..L6.10200....6C|
000010E0: 4C 25 B2 4C 00 EA 18 14 37 8E 00 F0 18 78 37 3A |L%.L....7....x7:|
000010F0: 00 0C 19 DC 37 8F 20 20 52 45 25 54 55 52 4E 20 |....7. RE%TURN |
00001100: 54 4F 20 4D 41 47 41 5A 45 54 54 45 00 27 19 40 |TO MAGAZETTE.'.@|
00001110: 38 9E 20 35 31 34 35 39 3A 99 22 93 22 3A 97 35 |8. 51459:.".":.5|
00001120: 36 2C 31 36 30 3A 9C 00 40 19 A4 38 93 22 48 45 |6,160:..@..8."HE|
00001130: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 3A 80 |LLO CONNECT",8:.|
00001140: 00 46 19 A6 38 80 00 5C 19 08 39 8F 20 2A 2A 2A |.F..8..\..9. ***|
00001150: 2A 2A 20 45 4E 44 20 2A 2A 2A 2A 2A 00 62 19 98 |** END *****.b..|
00001160: 3A 8F 00 78 19 9D 3A 8F 20 20 53 45 54 20 50 41 |:..x..:. SET PA|
00001170: 52 41 4D 45 54 45 52 53 00 8E 19 A2 3A 97 32 34 |RAMETERS....:.24|
00001180: 39 2C 32 32 34 3A 97 32 35 30 2C 32 30 34 00 A1 |9,224:.250,204..|
00001190: 19 A7 3A 97 32 35 31 2C 30 3A 97 32 35 32 2C 37 |..:.251,0:.252,7|
000011A0: 31 00 B3 19 AC 3A 97 32 35 33 2C 30 3A 97 32 35 |1....:.253,0:.25|
000011B0: 34 2C 30 00 BE 19 B1 3A 97 32 35 35 2C 30 00 C4 |4,0....:.255,0..|
000011C0: 19 C0 3A 8E 00 CA 19 CA 3A 3A 00 E3 19 80 3E 8F |..:.....::....>.|
000011D0: 20 20 4D 41 53 53 41 47 45 20 56 41 52 49 41 42 | MASSAGE VARIAB|
000011E0: 4C 45 53 00 F2 19 8A 3E 43 24 B2 54 24 28 43 4C |LES....>C$.T$(CL|
000011F0: 25 29 00 05 1A 94 3E 56 4E 25 B2 C5 28 CA 28 43 |%)....>VN%..(.(C|
00001200: 24 2C 33 29 29 00 18 1A 96 3E 49 25 B2 C3 28 C4 |$,3))....>I%..(.|
00001210: 28 56 4E 25 29 29 AA 32 00 33 1A 99 3E 4F 50 24 |(VN%)).2.3..>OP$|
00001220: B2 CA 28 43 24 2C 49 25 2C 31 29 3A 49 25 B2 49 |..(C$,I%,1):I%.I|
00001230: 25 AA 31 00 47 1A 9E 3E 4E 55 25 B2 C5 28 CA 28 |%.1.G..>NU%..(.(|
00001240: 43 24 2C 49 25 29 29 00 5B 1A A0 3E 49 25 B2 49 |C$,I%)).[..>I%.I|
00001250: 25 AA C3 28 C4 28 4E 55 25 29 29 00 6B 1A A8 3E |%..(.(NU%)).k..>|
00001260: 4C 24 B2 CA 28 43 24 2C 49 25 29 00 9A 1A BC 3E |L$..(C$,I%)....>|
00001270: 8B 4F 50 24 B2 22 3D 22 A7 56 25 28 56 4E 25 29 |.OP$."=".V%(VN%)|
00001280: B2 4E 55 25 3A 20 20 20 20 20 20 20 20 20 20 20 |.NU%: |
00001290: 20 20 20 20 20 89 35 37 30 30 00 C9 1A C6 3E 8B | .5700....>.|
000012A0: 4F 50 24 B2 22 2D 22 A7 56 25 28 56 4E 25 29 B2 |OP$."-".V%(VN%).|
000012B0: 56 25 28 56 4E 25 29 AB 4E 55 25 3A 20 20 20 20 |V%(VN%).NU%: |
000012C0: 20 20 20 20 89 35 37 30 30 00 F8 1A CB 3E 8B 4F | .5700....>.O|
000012D0: 50 24 B2 22 2B 22 A7 56 25 28 56 4E 25 29 B2 56 |P$."+".V%(VN%).V|
000012E0: 25 28 56 4E 25 29 AA 4E 55 25 3A 20 20 20 20 20 |%(VN%).NU%: |
000012F0: 20 20 20 89 35 37 30 30 00 30 1B D0 3E 8B 4F 50 | .5700.0..>.OP|
00001300: 24 B2 22 3F 22 A7 8B 56 25 28 56 4E 25 29 B2 4E |$."?"..V%(VN%).N|
00001310: 55 25 A7 20 20 20 20 20 20 20 20 20 20 20 8D 31 |U%. .1|
00001320: 30 32 30 30 3A 43 4C 25 B2 4C 3A 89 35 38 30 30 |0200:CL%.L:.5800|
00001330: 00 3A 1B 6A 40 89 35 37 30 30 00 40 1B 73 40 3A |.:.j@.5700.@.s@:|
00001340: 00 00 00 |... |
......Z$."".(.H.. "COMMUNIQUE"
.K.,.. WRITTEN BY ALAN GARDNER.E...
. 2-21-86.K.....Q.X........L
F.0.LF.1:."INPUT.BLOAD.O",8,1......831,5
0759,"TEXT@50759.O".R....831,51309,"SCR/
LINE.WP.O"......831,51456,"UNPACKER"...J
..831,18176,"CTITLE.SHP".....:.!.L..55,0
:.56,90:..'...:.X...Z$."":.T$(300),VL$(3
0),VL%(30),S%(10),V%(20).J...X.49152:F$.
""......B(X)..0.F$.F$.G(B(X)):X.X.1:.155
2.W.@.BA.52224:TE.50759:BL%.831:IN%.828:
MO%.1:SW.51309:LW.51312:S%(0).0.....CL%.
1:RE%.0:C$."".....LM%.0:RM%.39:TM%.0:BM%
.23:TY%.0:FL%.0.H.L.S$."
".K.P.D$.".......
..................".Q...:......15000:.51
456:.51459: .53280,0...4.:...6
..15000.O.>..8,8,8,F$:LC%.0:LL%.0:CL%.1.
..H..IN%,8,80:Z$.Z$."".(.R..H(Z$,2)."^@"
.LL%.LL%.1:VL$(LL%).J(Z$,3):VL%(LL%).LC%
.1:.2120.X.\..Z$.."G".Z$.."D".LC%.LC%.1:
T$(LC%).Z$:.2120.M.F. 8: 15:LC%.LC%.1...
H.ZZ..(0):.15000.....:.....:...`.....D.C
$.T$(CL%):.C$."".T$(CL%)." ":.2900...(.C
$.H(T$(CL%),1):.C$."'".CL%.CL%.1:.2500..
....C$."^"..3800:.2400.....:.&.T.. ROUT
INE TO PRINT TEXT HERE.N...Z$.T$(CL%):.T
E,Z$,LM%.8,(TM%.TY%).8.[....T$(CL%).I...
TY%.TY%.1.}...CL%.CL%.1:.2400...H..
*************************.C....:. *
END OF BODY *...... **********
***************...T.:...X.. CHECK OPTI
ONS...<.C$.J(T$(CL%),2,1)... .:.%...:.M.
...C$."G"..9800:.5800: . GOTO.V.
\..C$."S"..10900:.5800: . GOSUB..
....C$."P"..7300:.5600: . PLOT S
HP...$..C$."V".16000:
. MASSAGE VARIABLES......C$."D".11300
: . DISK OPTION.=..
..C$."C"..6000:.5600: . CLEAR.E.
P..C$."W"..7000:.5600: . WIPE...
...C$."X"..S%(0).0.14300: . EXIT
PROGRAM.Z....C$."X".CL%.S%(S%(0)).1:S%(
0).S%(0).1:.5800:. RETURN FROM SUB...|..
C$."K".9500: . WAI
T.2....C$."I"..12000:.5800: . INP
UT.8...:.J....C$."L".LM%.E(J(T$(CL%),3))
.1:CL%.CL%.1:.2500......C$."R".RM%.E(J(T
$(CL%),3)).1:CL%.CL%.1:.2500.N....C$."T"
.TM%.E(J(T$(CL%),3)).1:CL%.CL%.1:.2500..
....C$."B".BM%.E(J(T$(CL%),3)).1:CL%.CL%
.1:.2500...... RETURN TO LINE 2500.1.D.
X.CL%:X.X.1:CL%.X.7.....=...:.Z.P.. CL
EAR CURRENT WINDOW.Q.T.OP.E(J(T$(CL%),3)
)...8..OP.0.X.16......OP.1.X.1.....SP$.H
(S$,RM%.LM%.1)...D.. T.TM% . BM%...H.. T
E,SP$,LM%.8,T.8: . LW,
BA.T.40.LM%,RM%.LM%,X...,.. T:TY%.0.....
......:.3.X.. CLEAR ENTIRE SCREEN.J...
OP.E(J(T$(CL%),3)).[.F..OP.0..SW,16.K.P.
.OP.1..SW,1.U.Z.TY%.0.{....... .:......
PLOT A SHAPE.....I%.3:.8800:SH%.N%:SH%
.SH%.1.R.L.I%.I%.C%.1:.8800:MO%.N%.....I
%.I%.C%.1:.8800:PX%.N%...X.PY%.E(J(T$(CL
%),I%.C%.1)).....:.-.@.. *** PLOT A SHAP
E ***.C....249,224:.250,204.B.V.AD%.2329
6:.MO%.2.AD%.28416.Z.. .251,0:.252,AD%.2
56...L .253,PX%:.254,PY%...P .255,SH%...
4!.51462....!.....!:.N.`". PARSE OUT A
VALUE...D". I%=START POSN IN T$(CL%).
..(#. RETURNS N% AS VALUE PARSED....#C
%.0:E%.0:L%.C(T$(CL%)).T..#.J(T$(CL%),I%
,1)."#".E%.1:I%.I%.1....#.J(T$(CL%),I%,1
)..",".I%.I%.1:C%.C%.1:.I%..L%.9200...T$
I%.I%.C%:N%.E(J(T$(CL%),I%,C%)).C..$.E%.
1.N%.V%(N%).I..$..O..$:....%. WAIT FOR
A KEYPRESS...5%L$."":.C(T$(CL%)).3.9600.
@.N%.B(198)..0.L$.J(T$(CL%),5):.10200:CL
%.L:.198,0:.5800.J.X%.5600.F..%.198,0:.1
98,1:.K$:.5600.L..%:...H&. GOTO A LABEL
....&L$.J(T$(CL%),4):L.0:.10200....'CL%.
L:....T':.Q.X'. FIND A LABEL IN THE TEX
T...<(. X.1 . LL%... (.VL$(X).L$.L.VL%(X
):.10700."..).X:T$."UNKNOWN LABEL --- ".
L$.:.H).SW,16:.TE,T$,0,0:..@.L)..F.0*:.[
..*. GOSUB A LABEL.Z..*L$.J(T$(CL%),4):
L.0:.10200...*+.S%(0).10..SW,16:.TE,"STA
CK OVERFLOW",0,0:..X.\+S%(0).S%(0).1:S%(
S%(0)).CL%:CL%.L: .....+:...$,. G
ET SOMETHING FROM DISK.,..,.J(T$(CL%),3,
1)."T".F$.J(T$(CL%),5):.2100.2..,:.@..,I
%.5:C%.0.Q.D,.J(T$(CL%),I%,1)..",".I%.I%
.1:C%.C%.1:.11460...N,I%.I%.C%:F$.J(T$(C
L%),I%,C%)...X,MO%.E(J(T$(CL%),I%.C%.1))
.O..,AD%.23296:.MO%.2.AD%.28416....,X.AD
%:.BL%,X,F$....,.249,224:.250,204....,.
5600...|.:.S.... INPUT CERTAIN KEYS AND
GOTO THE DESIGNATED LA
BEL.B.D/T$.T$(CL%).O../NK.1:C.4....0VK$(
NK).J(T$,C,1)...P0.J(T$,C.1,1).",".NK.NK
.1:C.C.2:.12300.K.T0. NK=NUM OF VALID K
EYS...81C.C.2:CH%.C....1.X.1.NK.1....2.J
(T$,CH%,1).",".13000...D2CH%.CH%.1:.1280
0.2.H2LL$(X).J(T$,C,CH%.C).D.,3C.CH%.1:C
H%.C.]..3.X:LL$(NK).J(T$,CH%).Y..3. LAB
ELS IN% VL$(1-NK)..X4:....4.198,0:.198,
1:.K$... 5.X.1.NK.A..5.K$.VK$(X).L$.LL$(
X):.13900.O..5.X:.13500.Z.L6.10200....6C
L%.L....7....X7:....7. RE%TURN TO MAGAZ
ETTE.'.@8. 51459:.".":.56,160:..@..8."HE
LLO CONNECT",8:..F..8..\..9. ***** END *
****.B..:..X..:. SET PARAMETERS....:.24
9,224:.250,204....:.251,0:.252,71....:.2
53,0:.254,0....:.255,0.D..:..J.J::....>.
MASSAGE VARIABLES....>C$.T$(CL%)....>V
N%.E(J(C$,3))....>I%.C(D(VN%)).2.3..>OP$
.J(C$,I%,1):I%.I%.1.G..>NU%.E(J(C$,I%)).
[. >I%.I%.C(D(NU%)).K..>L$.J(C$,I%)....>
.OP$."=".V%(VN%).NU%: .57
00.I.F>.OP$."-".V%(VN%).V%(VN%).NU%:
.5700...K>.OP$."+".V%(VN%).V%(VN%).N
U%: .5700.0.P>.OP$."?"..V%(VN%).N
U%. .10200:CL%.L:.5800.:.J@.57
00.@.S@:...
> CLICK IMAGE PREVIEW FOR FULL MODAL