NEWMENU
FILE INFORMATION
FILENAME(S): NEWMENU
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
68e106da6511e73ad1623eb43d54ed7df796d7490c426ad4fb349d927ec6fd0a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 11 1 | NEWMENU | PRG | DuncanTwain | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)|
00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 38 08 |:.46,.(175):..8.|
00000020: 02 00 8F 22 20 20 20 52 45 56 49 53 45 44 20 42 |..." REVISED B|
00000030: 59 20 55 4E 49 54 45 43 00 50 08 03 00 8F 22 20 |Y UNITEC.P...." |
00000040: 20 20 46 4F 52 20 54 48 45 20 C3 C2 CD 20 36 34 | FOR THE ... 64|
00000050: 00 9F 08 04 00 8F 20 49 46 50 45 45 4B 28 38 32 |...... IFPEEK(82|
00000060: 38 29 3D 30 4F 52 20 50 45 45 4B 28 38 33 30 29 |8)=0OR PEEK(830)|
00000070: 3D 30 54 48 45 4E 50 4F 4B 45 35 33 32 38 31 2C |=0THENPOKE53281,|
00000080: 31 32 3A 50 4F 4B 45 35 33 32 38 30 2C 31 31 3A |12:POKE53280,11:|
00000090: 50 52 49 4E 54 22 90 22 3A 47 4F 54 4F 31 30 00 |PRINT".":GOTO10.|
000000A0: E9 08 05 00 8F 20 43 4F 24 3D 22 90 05 1C 9F 9C |..... CO$=".....|
000000B0: 1E 1F 9E 22 3A 43 33 3D 50 45 45 4B 28 38 33 30 |...":C3=PEEK(830|
000000C0: 29 3A 50 52 49 4E 54 4D 49 44 24 28 43 4F 24 2C |):PRINTMID$(CO$,|
000000D0: 43 33 2C 31 29 3A 50 4F 4B 45 35 33 32 38 31 2C |C3,1):POKE53281,|
000000E0: 50 45 45 4B 28 38 32 38 29 00 04 09 06 00 8F 20 |PEEK(828)...... |
000000F0: 50 4F 4B 45 20 35 33 32 38 30 2C 50 45 45 4B 28 |POKE 53280,PEEK(|
00000100: 38 32 39 29 00 2B 09 0A 00 8F 20 2A 2A 2A 2A 2A |829).+.... *****|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 09 14 00 |***********.R...|
00000130: 8F 20 2A 20 4D 41 49 4E 20 4D 45 4E 55 20 46 4F |. * MAIN MENU FO|
00000140: 52 20 54 48 45 20 43 4F 44 45 57 52 49 54 45 52 |R THE CODEWRITER|
00000150: 20 2A 00 79 09 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A | *.y.... *******|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7F 09 28 00 8F 00 |*********...(...|
00000180: A2 09 32 00 59 24 B2 22 13 11 11 11 11 11 11 11 |..2.Y$."........|
00000190: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000001A0: 11 22 00 C8 09 3C 00 8B 20 C2 28 38 36 34 29 B2 |."...<.. .(864).|
000001B0: 39 36 20 A7 20 4D 46 B2 30 3A 97 20 38 36 34 2C |96 . MF.0:. 864,|
000001C0: 30 3A 89 20 31 30 30 30 00 E4 09 41 00 99 C7 28 |0:. 1000...A...(|
000001D0: 31 34 29 3B C7 28 38 29 3A 8F 20 2A 2A 2A 2A 2A |14);.(8):. *****|
000001E0: 2A 2A 2A 2A 00 07 0A 46 00 59 24 B2 22 13 11 11 |****...F.Y$."...|
000001F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000200: 11 11 11 11 11 11 22 00 2C 0A 4B 00 8F 20 20 20 |......".,.K.. |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 53 54 4F 50 20 4B 45 59 00 47 0A 6E | STOP KEY.G.n|
00000230: 00 99 22 93 22 A3 32 38 29 22 49 4E 44 45 58 20 |..".".28)"INDEX |
00000240: 38 33 38 30 31 35 22 00 7C 0A 73 00 99 C8 28 59 |838015".|.s...(Y|
00000250: 24 2C 31 30 29 3B A3 39 29 3B 22 C3 CF D0 D9 D2 |$,10);.9);".....|
00000260: C9 C7 C8 D4 20 31 39 38 32 2C 20 31 39 38 33 22 |.... 1982, 1983"|
00000270: 3A 99 3A 99 A3 31 39 29 22 42 59 22 00 A2 0A 78 |:.:..19)"BY"...x|
00000280: 00 99 3A 99 A3 39 29 3B 22 C3 CF D2 D4 C5 C3 C8 |..:..9);".......|
00000290: D3 A0 C3 CF D2 D0 CF D2 C1 D4 C9 CF CE 22 20 3A |............." :|
000002A0: 20 99 00 C1 0A 82 00 99 A3 39 29 3B 22 C1 CC CC | ........9);"...|
000002B0: 20 D2 C9 C7 C8 D4 D3 20 D2 C5 D3 C5 D2 D6 C5 C4 | ...... ........|
000002C0: 22 00 D8 0A 8C 00 81 20 49 B2 31 20 A4 20 32 32 |"...... I.1 . 22|
000002D0: 30 30 20 3A 20 82 20 49 00 E1 0A 96 00 99 22 93 |00 : . I......".|
000002E0: 22 00 0E 0B AA 00 99 3A 99 A3 35 29 3B 22 12 20 |"......:..5);". |
000002F0: C3 4F 44 45 57 52 49 54 45 52 20 D3 59 53 54 45 |.ODEWRITER .YSTE|
00000300: 4D 20 CD 41 49 4E 20 CD 45 4E 55 20 92 22 00 3F |M .AIN .ENU .".?|
00000310: 0B B4 00 99 3A 99 3A 99 3A 99 A3 31 29 3B 22 D9 |....:.:.:..1);".|
00000320: 4F 55 20 48 41 56 45 20 54 48 45 20 46 4F 4C 4C |OU HAVE THE FOLL|
00000330: 4F 57 49 4E 47 20 4F 50 54 49 4F 4E 53 3A 22 00 |OWING OPTIONS:".|
00000340: 6D 0B C8 00 99 3A 99 A3 34 29 3B 22 44 2E 2E 2E |m....:..4);"D...|
00000350: 2E 2E C3 52 45 41 54 45 20 41 20 44 41 54 41 20 |...REATE A DATA |
00000360: 45 4E 54 52 59 20 53 59 53 54 45 4D 22 00 9B 0B |ENTRY SYSTEM"...|
00000370: E6 00 99 3A 99 A3 34 29 3B 22 46 2E 2E 2E 2E 2E |...:..4);"F.....|
00000380: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E C6 4F 52 |..............OR|
00000390: 4D 41 54 20 41 20 44 49 53 4B 22 00 CA 0B EB 00 |MAT A DISK".....|
000003A0: 99 3A 99 A3 34 29 3B 22 53 2E 2E 2E 2E 2E 2E 2E |.:..4);"S.......|
000003B0: 2E 2E 2E 2E 2E 2E D3 45 54 20 C4 49 53 50 4C 41 |.......ET .ISPLA|
000003C0: 59 20 43 4F 4C 4F 55 52 53 22 00 F8 0B F0 00 99 |Y COLOURS"......|
000003D0: 3A 99 A3 34 29 3B 22 58 2E 2E 2E 2E 2E 2E 2E 2E |:..4);"X........|
000003E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E C5 58 49 54 20 54 |...........XIT T|
000003F0: 4F 20 C2 C1 D3 C9 C3 22 00 2B 0C 04 01 99 3A 99 |O .....".+....:.|
00000400: 22 C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 |".NTER YOUR CHOI|
00000410: 43 45 20 54 48 45 4E 20 50 52 45 53 53 20 12 D2 |CE THEN PRESS ..|
00000420: C5 D4 D5 D2 CE 92 20 12 20 92 22 00 50 0C 0E 01 |...... . .".P...|
00000430: 58 25 B2 33 36 3A 59 25 B2 31 37 3A 4C 25 B2 31 |X%.36:Y%.17:L%.1|
00000440: 3A 8D 20 33 34 30 30 30 3A 41 41 24 B2 49 4E 24 |:. 34000:AA$.IN$|
00000450: 00 63 0C 2C 01 8B 20 41 41 24 B2 22 44 22 A7 31 |.c.,.. AA$."D".1|
00000460: 30 30 30 00 75 0C 40 01 8B 41 41 24 B2 22 53 22 |000.u.@..AA$."S"|
00000470: A7 35 30 30 30 00 99 0C 4A 01 8B 20 41 41 24 B2 |.5000...J.. AA$.|
00000480: 22 46 22 20 A7 20 8D 33 35 30 30 30 3A 8B 56 52 |"F" . .35000:.VR|
00000490: B2 31 30 30 A7 34 30 30 30 00 C6 0C 5E 01 8B 20 |.100.4000...^.. |
000004A0: 41 41 24 B2 22 58 22 20 A7 20 99 20 C7 28 39 29 |AA$."X" . . .(9)|
000004B0: 3A 20 80 20 3A 8F 20 52 45 41 42 4C 45 20 53 54 |: . :. REABLE ST|
000004C0: 4F 50 20 4B 45 59 00 D0 0C 68 01 89 20 31 35 30 |OP KEY...h.. 150|
000004D0: 00 F7 0C E7 03 8F 20 2A 2A 2A 20 43 52 45 41 54 |...... *** CREAT|
000004E0: 45 20 44 41 54 41 20 45 4E 54 52 59 20 53 59 53 |E DATA ENTRY SYS|
000004F0: 54 45 4D 20 2A 2A 2A 00 00 0D E8 03 99 22 93 22 |TEM ***......"."|
00000500: 00 2C 0D F2 03 99 3A 99 A3 35 29 3B 22 12 20 C3 |.,....:..5);". .|
00000510: 52 45 41 54 45 20 41 20 C4 41 54 41 20 C5 4E 54 |REATE A .ATA .NT|
00000520: 52 59 20 D3 59 53 54 45 4D 20 92 22 00 59 0D FC |RY .YSTEM .".Y..|
00000530: 03 99 3A 99 A3 32 29 3B 22 D9 4F 55 20 48 41 56 |..:..2);".OU HAV|
00000540: 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |E THE FOLLOWING |
00000550: 4F 50 54 49 4F 4E 53 3A 22 00 87 0D 06 04 99 3A |OPTIONS:"......:|
00000560: 99 A3 34 29 3B 22 53 2E 2E 2E 2E 2E 2E 2E 2E 2E |..4);"S.........|
00000570: C3 52 45 41 54 45 20 41 20 53 43 52 45 45 4E 20 |.REATE A SCREEN |
00000580: 4C 41 59 4F 55 54 22 00 B5 0D 10 04 99 3A 99 A3 |LAYOUT"......:..|
00000590: 34 29 3B 22 41 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E C3 |4);"A...........|
000005A0: 52 45 41 54 45 20 41 4E 20 41 50 50 4C 49 43 41 |REATE AN APPLICA|
000005B0: 54 49 4F 4E 22 00 E3 0D 1A 04 99 3A 99 A3 34 29 |TION"......:..4)|
000005C0: 3B 22 58 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E D2 |;"X.............|
000005D0: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 |ETURN TO MAIN ME|
000005E0: 4E 55 22 00 26 0E 1F 04 99 3A 99 22 D4 4F 20 43 |NU".&....:.".O C|
000005F0: 52 45 41 54 45 20 41 20 53 43 52 45 45 4E 20 46 |REATE A SCREEN F|
00000600: 4F 52 4D 41 54 20 5B 53 45 4C 45 43 54 49 4F 4E |ORMAT [SELECTION|
00000610: 20 12 53 92 5D 20 59 4F 55 20 4D 55 53 54 20 48 | .S.] YOU MUST H|
00000620: 41 56 45 20 22 3B 00 47 0E 21 04 99 22 41 20 46 |AVE ";.G.!.."A F|
00000630: 4F 52 4D 41 54 54 45 44 20 44 49 53 4B 20 52 45 |ORMATTED DISK RE|
00000640: 41 44 59 2E 22 3A 99 00 90 0E 24 04 99 22 D4 4F |ADY.":....$..".O|
00000650: 20 43 52 45 41 54 45 20 41 4E 20 41 50 50 4C 49 | CREATE AN APPLI|
00000660: 43 41 54 49 4F 4E 20 5B 53 45 4C 45 43 54 49 4F |CATION [SELECTIO|
00000670: 4E 20 12 41 92 5D 20 20 59 4F 55 20 4D 55 53 54 |N .A.] YOU MUST|
00000680: 20 41 4C 52 45 41 44 59 20 48 41 56 45 20 22 3B | ALREADY HAVE ";|
00000690: 00 C9 0E 29 04 99 22 43 52 45 41 54 45 44 20 41 |...).."CREATED A|
000006A0: 20 53 43 52 45 45 4E 20 20 46 4F 52 4D 41 54 20 | SCREEN FORMAT |
000006B0: 46 49 4C 45 20 57 49 54 48 20 53 45 4C 45 43 54 |FILE WITH SELECT|
000006C0: 49 4F 4E 20 27 53 27 2E 22 00 FC 0E 2E 04 99 3A |ION 'S'."......:|
000006D0: 99 22 C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F |.".NTER YOUR CHO|
000006E0: 49 43 45 20 54 48 45 4E 20 50 52 45 53 53 20 12 |ICE THEN PRESS .|
000006F0: D2 C5 D4 D5 D2 CE 92 20 12 20 92 22 00 21 0F 38 |....... . .".!.8|
00000700: 04 58 25 B2 33 36 3A 59 25 B2 32 30 3A 4C 25 B2 |.X%.36:Y%.20:L%.|
00000710: 31 3A 8D 20 33 34 30 30 30 3A 41 41 24 B2 49 4E |1:. 34000:AA$.IN|
00000720: 24 00 37 0F 42 04 8B 20 41 41 24 B3 B1 22 53 22 |$.7.B.. AA$.."S"|
00000730: 20 A7 20 31 31 33 30 00 50 0F 56 04 8D 33 35 30 | . 1130.P.V..350|
00000740: 30 30 3A 8B 56 52 B3 B1 31 30 30 A7 31 30 30 30 |00:.VR..100.1000|
00000750: 00 68 0F 59 04 97 20 34 35 2C 32 34 34 3A 97 20 |.h.Y.. 45,244:. |
00000760: 34 36 2C 30 38 34 3A 9C 00 9D 0F 5B 04 99 22 93 |46,084:....[..".|
00000770: 11 11 11 11 11 22 3B A3 34 29 22 D0 52 4F 47 52 |.....";.4)".ROGR|
00000780: 41 4D 20 4C 4F 41 44 49 4E 47 2E 20 20 D0 4C 45 |AM LOADING. .LE|
00000790: 41 53 45 20 57 41 49 54 2E 2E 2E 2E 22 00 B0 0F |ASE WAIT...."...|
000007A0: 60 04 93 22 4E 45 57 53 43 52 45 45 4E 22 2C 38 |`.."NEWSCREEN",8|
000007B0: 00 C6 0F 6A 04 8B 20 41 41 24 B3 B1 22 41 22 20 |...j.. AA$.."A" |
000007C0: A7 20 31 32 33 30 00 DF 0F BA 04 8D 33 35 30 30 |. 1230......3500|
000007D0: 30 3A 8B 56 52 B3 B1 31 30 30 A7 31 30 30 30 00 |0:.VR..100.1000.|
000007E0: F7 0F BD 04 97 20 34 35 2C 32 32 38 3A 97 20 34 |..... 45,228:. 4|
000007F0: 36 2C 31 34 32 3A 9C 00 2C 10 BF 04 99 22 93 11 |6,142:..,...."..|
00000800: 11 11 11 11 22 3B A3 34 29 22 D0 52 4F 47 52 41 |....";.4)".ROGRA|
00000810: 4D 20 4C 4F 41 44 49 4E 47 2E 20 20 D0 4C 45 41 |M LOADING. .LEA|
00000820: 53 45 20 57 41 49 54 2E 2E 2E 2E 22 00 3D 10 C4 |SE WAIT....".=..|
00000830: 04 93 22 43 4F 44 45 47 45 4E 22 2C 38 00 51 10 |.."CODEGEN",8.Q.|
00000840: CE 04 8B 20 41 41 24 B2 22 58 22 20 A7 20 31 35 |... AA$."X" . 15|
00000850: 30 00 5C 10 D8 04 89 20 31 30 30 30 00 76 10 9F |0.\.... 1000.v..|
00000860: 0F 8F 20 2A 2A 2A 20 46 4F 52 4D 41 54 20 44 49 |.. *** FORMAT DI|
00000870: 53 4B 20 2A 2A 2A 00 91 10 A0 0F 8F 20 44 49 53 |SK ***...... DIS|
00000880: 4B 20 46 4F 52 4D 41 54 20 55 54 49 4C 49 54 49 |K FORMAT UTILITI|
00000890: 59 00 C6 10 A5 0F 99 22 93 11 11 11 11 11 22 3B |Y......"......";|
000008A0: A3 34 29 22 D0 52 4F 47 52 41 4D 20 4C 4F 41 44 |.4)".ROGRAM LOAD|
000008B0: 49 4E 47 2E 20 20 D0 4C 45 41 53 45 20 57 41 49 |ING. .LEASE WAI|
000008C0: 54 2E 2E 2E 2E 22 00 DC 10 AA 0F 97 34 35 2C 30 |T...."......45,0|
000008D0: 31 31 3A 97 34 36 2C 30 32 32 3A 9C 00 EC 10 B4 |11:.46,022:.....|
000008E0: 0F 93 22 46 4F 52 4D 41 54 22 2C 38 00 05 11 88 |.."FORMAT",8....|
000008F0: 13 8F 20 53 45 54 20 44 49 53 50 4C 41 59 20 43 |.. SET DISPLAY C|
00000900: 4F 4C 4F 52 53 00 18 11 92 13 43 31 B2 30 3A 43 |OLORS.....C1.0:C|
00000910: 32 B2 30 3A 43 33 B2 31 00 33 11 A6 13 43 4F 24 |2.0:C3.1.3...CO$|
00000920: B2 22 90 05 1C 9F 9C 1E 1F 9E 81 95 96 97 98 99 |."..............|
00000930: 9A 9B 22 00 54 11 B0 13 99 C7 28 31 34 37 29 A3 |..".T.....(147).|
00000940: 31 33 29 22 D3 45 54 20 C3 4F 4C 4F 55 52 20 CD |13)".ET .OLOUR .|
00000950: 4F 44 45 22 00 7A 11 BA 13 99 3A 99 3A 99 A3 35 |ODE".z....:.:..5|
00000960: 29 22 5B 46 31 5D 20 53 45 54 53 20 53 43 52 45 |)"[F1] SETS SCRE|
00000970: 45 4E 20 43 4F 4C 4F 55 52 22 00 9E 11 C4 13 99 |EN COLOUR"......|
00000980: 3A 99 A3 35 29 22 5B 46 33 5D 20 53 45 54 53 20 |:..5)"[F3] SETS |
00000990: 42 4F 52 44 45 52 20 43 4F 4C 4F 55 52 22 00 C0 |BORDER COLOUR"..|
000009A0: 11 CE 13 99 3A 99 A3 35 29 22 5B 46 35 5D 20 53 |....:..5)"[F5] S|
000009B0: 45 54 53 20 54 45 58 54 20 43 4F 4C 4F 55 52 22 |ETS TEXT COLOUR"|
000009C0: 00 EA 11 D8 13 99 3A 99 A3 35 29 22 5B 46 37 5D |......:..5)"[F7]|
000009D0: 20 52 45 54 55 52 4E 53 20 59 4F 55 20 54 4F 20 | RETURNS YOU TO |
000009E0: 4D 41 49 4E 20 4D 45 4E 55 22 00 F5 11 DD 13 8D |MAIN MENU"......|
000009F0: 20 35 36 30 30 00 0B 12 E2 13 A1 41 41 24 3A 8B | 5600......AA$:.|
00000A00: 41 41 24 B2 22 22 A7 35 30 39 30 00 20 12 EC 13 |AA$."".5090. ...|
00000A10: 8B 41 41 24 B2 C7 28 31 33 33 29 A7 35 33 30 30 |.AA$..(133).5300|
00000A20: 00 35 12 F6 13 8B 41 41 24 B2 C7 28 31 33 34 29 |.5....AA$..(134)|
00000A30: A7 35 34 30 30 00 4A 12 00 14 8B 41 41 24 B2 C7 |.5400.J....AA$..|
00000A40: 28 31 33 35 29 A7 35 35 30 30 00 5E 12 0A 14 8B |(135).5500.^....|
00000A50: 41 41 24 B2 C7 28 31 33 36 29 A7 31 35 30 00 68 |AA$..(136).150.h|
00000A60: 12 14 14 89 35 30 39 30 00 81 12 B4 14 43 31 B2 |....5090.....C1.|
00000A70: 20 43 31 AA 31 3A 8B 43 31 B1 31 35 A7 43 31 B2 | C1.1:.C1.15.C1.|
00000A80: 30 00 95 12 BE 14 97 35 33 32 38 31 2C 43 31 3A |0......53281,C1:|
00000A90: 89 35 30 34 30 00 AE 12 18 15 43 32 B2 20 43 32 |.5040.....C2. C2|
00000AA0: AA 31 3A 8B 43 32 B1 31 35 A7 43 32 B2 30 00 C2 |.1:.C2.15.C2.0..|
00000AB0: 12 22 15 97 35 33 32 38 30 2C 43 32 3A 89 35 30 |."..53280,C2:.50|
00000AC0: 34 30 00 DB 12 7C 15 43 33 B2 20 43 33 AA 31 3A |40...|.C3. C3.1:|
00000AD0: 8B 43 33 B1 31 37 A7 43 33 B2 31 00 F4 12 86 15 |.C3.17.C3.1.....|
00000AE0: 99 20 CA 28 43 4F 24 2C 43 33 2C 31 29 3A 89 20 |. .(CO$,C3,1):. |
00000AF0: 35 30 34 30 00 22 13 E0 15 99 3A 99 A3 35 29 22 |5040."....:..5)"|
00000B00: D4 48 49 53 20 4F 50 54 49 4F 4E 20 53 59 53 54 |.HIS OPTION SYST|
00000B10: 45 4D 20 49 53 20 41 4C 53 4F 20 20 20 20 20 20 |EM IS ALSO |
00000B20: 22 3B 00 57 13 E5 15 99 22 20 20 20 20 20 20 20 |";.W...." |
00000B30: 20 50 52 45 53 45 4E 54 20 49 4E 20 59 4F 55 52 | PRESENT IN YOUR|
00000B40: 20 41 50 50 4C 49 43 41 54 49 4F 4E 20 20 20 20 | APPLICATION |
00000B50: 20 20 20 20 20 22 3B 00 6B 13 EA 15 99 22 20 20 | ";.k...." |
00000B60: 20 20 50 52 4F 47 52 41 4D 2E 22 00 71 13 EF 15 | PROGRAM.".q...|
00000B70: 8E 00 82 13 DE 5D 9B 32 34 30 30 30 AB 32 35 30 |.....].24000.250|
00000B80: 30 30 00 A4 13 CF 84 8F 20 2A 2A 2A 20 46 49 45 |00...... *** FIE|
00000B90: 4C 44 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |LD INPUT ROUTINE|
00000BA0: 20 2A 2A 2A 00 C3 13 D0 84 4A B2 31 3A 41 44 B2 | ***.....J.1:AD.|
00000BB0: 31 30 32 34 AA 28 59 25 AB 31 29 AC 34 30 AA 58 |1024.(Y%.1).40.X|
00000BC0: 25 AB 31 00 DD 13 DA 84 8B 20 4A B2 31 20 AF 20 |%.1...... J.1 . |
00000BD0: 4C 25 B1 31 20 A7 20 49 4E 24 B2 22 22 00 F4 13 |L%.1 . IN$.""...|
00000BE0: E4 84 97 20 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 |... AD.J,.(AD.J)|
00000BF0: B0 31 32 38 00 0D 14 EE 84 A1 20 4A 24 3A 8B 20 |.128...... J$:. |
00000C00: 4A 24 B2 22 22 20 A7 20 33 34 30 33 30 00 1A 14 |J$."" . 34030...|
00000C10: F3 84 49 49 B2 C6 28 4A 24 29 00 2E 14 F4 84 8B |..II..(J$)......|
00000C20: 20 49 49 B2 33 34 20 A7 20 33 34 30 33 30 00 68 | II.34 . 34030.h|
00000C30: 14 F8 84 8B 28 49 49 B3 33 32 AF 49 49 B3 B1 32 |....(II.32.II..2|
00000C40: 30 AF 49 49 B3 B1 31 33 29 B0 28 49 49 B1 31 32 |0.II..13).(II.12|
00000C50: 38 AF 49 49 B3 31 39 32 29 B0 28 49 49 B1 32 32 |8.II.192).(II.22|
00000C60: 31 29 A7 33 34 30 31 30 00 7D 14 FD 84 8B 20 49 |1).34010.}.... I|
00000C70: 49 B3 B1 32 30 20 A7 20 33 34 30 37 30 00 8F 14 |I..20 . 34070...|
00000C80: 02 85 8B 20 4A B2 31 20 A7 20 33 34 30 31 30 00 |... J.1 . 34010.|
00000C90: CC 14 0C 85 4A B2 4A AB 31 3A 49 4E 24 B2 C8 28 |....J.J.1:IN$..(|
00000CA0: 49 4E 24 2C 4A AB 31 29 3A 4A 24 B2 22 20 22 3A |IN$,J.1):J$." ":|
00000CB0: 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A 29 |..(Y$,Y%);.X%.J)|
00000CC0: 3B 22 20 22 3B 3A 89 33 34 30 39 30 00 F1 14 16 |;" ";:.34090....|
00000CD0: 85 8B 20 49 49 B2 31 33 20 A7 20 97 41 44 AA 4A |.. II.13 . .AD.J|
00000CE0: 2C C2 28 41 44 AA 4A 29 AF 20 31 32 37 3A 99 3A |,.(AD.J). 127:.:|
00000CF0: 8E 00 00 15 20 85 49 4E 24 B2 49 4E 24 AA 4A 24 |.... .IN$.IN$.J$|
00000D00: 00 1B 15 2A 85 99 C8 28 59 24 2C 59 25 29 3B A6 |...*...(Y$,Y%);.|
00000D10: 58 25 AA 4A AB 31 29 3B 4A 24 3B 00 42 15 34 85 |X%.J.1);J$;.B.4.|
00000D20: 8B 20 4A B2 4C 25 20 A7 20 49 4E 24 B2 C8 28 49 |. J.L% . IN$..(I|
00000D30: 4E 24 2C 4A AB 31 29 AA 4A 24 3A 89 20 33 34 30 |N$,J.1).J$:. 340|
00000D40: 31 30 00 57 15 3E 85 8B 20 49 49 B3 B1 32 30 20 |10.W.>.. II..20 |
00000D50: A7 20 4A B2 4A AA 31 00 63 15 48 85 89 20 33 34 |. J.J.1.c.H.. 34|
00000D60: 30 31 30 00 8A 15 B8 88 A0 31 35 3A 9F 31 35 2C |010......15:.15,|
00000D70: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2|
00000D80: 2C 22 43 4F 44 45 47 45 4E 22 00 C2 15 BA 88 5A |,"CODEGEN".....Z|
00000D90: 54 24 B2 22 22 3A 81 4B 4C B2 31 A4 32 30 3A A1 |T$."":.KL.1.20:.|
00000DA0: 23 32 2C 41 41 24 3A 5A 54 24 B2 5A 54 24 AA 41 |#2,AA$:ZT$.ZT$.A|
00000DB0: 41 24 3A 82 4B 4C 3A A0 32 3A 98 31 35 2C 22 49 |A$:.KL:.2:.15,"I|
00000DC0: 30 22 00 E8 15 BC 88 A0 31 35 3A 56 52 B2 30 3A |0"......15:VR.0:|
00000DD0: 8B CA 28 5A 54 24 2C 31 31 2C 32 29 B2 22 31 35 |..(ZT$,11,2)."15|
00000DE0: 22 A7 56 52 B2 31 30 30 00 F6 15 BD 88 8B 56 52 |".VR.100......VR|
00000DF0: B2 31 30 30 A7 8E 00 32 16 BE 88 99 22 93 22 3B |.100...2....".";|
00000E00: C8 28 59 24 2C 31 30 29 22 D0 4C 41 43 45 20 54 |.(Y$,10)".LACE T|
00000E10: 48 45 20 12 C3 4F 44 45 D7 52 49 54 45 52 92 20 |HE ..ODE.RITER. |
00000E20: 44 49 53 4B 20 49 4E 20 54 48 45 20 44 52 49 56 |DISK IN THE DRIV|
00000E30: 45 22 00 5C 16 C0 88 99 C8 28 59 24 2C 32 34 29 |E".\.....(Y$,24)|
00000E40: 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |".RESS ........ |
00000E50: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 77 16 C2 |TO CONTINUE".w..|
00000E60: 88 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |..AA$:.AA$...(13|
00000E70: 29 A7 33 35 30 31 30 00 7D 16 C4 88 8E 00 00 00 |).35010.}.......|
00000E80: 89 20 33 34 30 31 30 00 00 00 20 4A B2 4A AA 31 |. 34010... J.J.1|
00000E90: 00 F7 0E 48 85 89 20 33 34 30 31 30 00 00 00 4E |...H.. 34010...N|
00000EA0: 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 AA 4A 24 3A |$..(IN$,J.1).J$:|
00000EB0: 89 20 33 34 30 59 80 19 CB 09 00 00 49 00 8C 09 |. 340Y......I...|
00000EC0: 90 00 00 D8 80 00 26 00 00 00 D9 80 00 11 00 00 |......&.........|
00000ED0: 00 CC 80 00 01 00 00 00 4A 00 81 00 00 00 00 41 |........J......A|
00000EE0: 44 8B 54 A0 00 00 4A 80 01 FC 9F 00 00 49 49 84 |D.T...J......II.|
00000EF0: 50 00 00 00 49 CE 01 FD 9F 00 00 41 C1 01 FB 9F |P...I......A....|
00000F00: 00 00 10 04 A5 66 48 98 48 4C 26 09 A5 70 10 03 |.....fH.HL&..p..|
00000F10: 20 23 BC A2 00 B5 61 48 E8 E0 06 D0 F8 98 48 4C | #....aH......HL|
00000F20: 26 09 68 85 B5 F0 0E 10 03 68 85 66 68 85 65 68 |&.h......h.fh.eh|
00000F30: 85 64 4C 26 09 A2 06 68 95 60 CA D0 FA 4C 26 09 |.dL&...h.`...L&.|
00000F40: 68 85 B6 F0 0E 10 03 68 85 6E 68 85 6D 68 85 6C |h......h.nh.mh.l|
00000F50: 4C 26 09 A2 06 68 95 68 CA D0 FA 4C 26 09 A2 00 |L&...h.h...L&...|
00000F60: 86 64 86 65 E8 86 B5 4C 26 09 A2 00 86 6D 86 6C |.d.e...L&....m.l|
00000F70: E8 86 B6 4C 26 09 A2 00 86 64 E8 86 65 86 B5 4C |...L&....d..e..L|
00000F80: 26 09 A2 00 86 6C E8 86 6D 86 B6 4C 26 09 A2 00 |&....l..m..L&...|
00000F90: 86 0B CA 8E 37 14 4C 26 09 01 A5 13 D0 03 4C 48 |....7.L&......LH|
00000FA0: 23 A5 90 29 40 D0 55 20 66 15 4C 5B 14 A2 00 EE |#..)@.U f.L[....|
00000FB0: 37 14 86 5C E8 86 B5 A6 0B 86 3B D0 07 20 F9 AB |7..\......;.. ..|
00000FC0: A2 00 A0 00 A5 13 F0 06 A5 90 29 03 D0 2E AD 00 |..........).....|
00000FD0: 02 F0 C7 BD 00 02 F0 24 E8 C9 2D D0 04 85 5C F0 |.......$..-...\.|
00000FE0: F2 C9 2B F0 EE C9 20 F0 EA C9 2E F0 40 C9 30 90 |..+... .....@.0.|
00000FF0: 04 C9 3A 90 16 A5 99 F0 03 4C 66 AB 20 42 15 20 |..:......Lf. B. |
00001000: 70 15 AA D0 01 A8 84 0B 4C 25 15 99 E8 07 C8 BD |p.......L%......|
00001010: 00 02 F0 39 E8 C9 2C F0 36 C9 20 F0 F2 C9 3A B0 |...9..,.6. ...:.|
00001020: 08 C9 30 B0 E6 C9 2E F0 04 C9 45 D0 8C 09 90 00 |..0.......E.....|
00001030: 00 D8 80 00 24 00 00 00 D9 80 00 11 00 00 00 CC |....$...........|
00001040: 80 00 01 00 00 00 4A 00 81 00 00 00 00 41 44 8B |......J......AD.|
00001050: 54 60 00 00 4A 80 01 FC 9F 00 00 49 49 84 50 00 |T`..J......II.P.|
00001060: 00 00 49 CE 01 FD 9F 00 00 41 C1 01 4E 9F 00 00 |..I......A..N...|
00001070: 5A D4 11 3D 9F 00 00 4B 4C 85 28 00 00 00 56 52 |Z..=...KL.(...VR|
00001080: 87 48 00 00 00 52 87 48 00 00 00 00 00 00 4B 25 |.H...R.H......K%|
00001090: 29 2C 43 25 00 A4 18 09 10 8B 41 B3 B1 31 35 37 |),C%......A..157|
000010A0: A7 34 31 31 30 00 BB 18 0B 10 4B 25 B2 4B 25 AB |.4110.....K%.K%.|
000010B0: 31 3A 8B 4B 25 B3 30 A7 4B 25 B2 46 00 C5 18 0C |1:.K%.0.K%.F....|
000010C0: 10 89 34 31 32 30 00 DC 18 0E 10 4B 25 B2 4B 25 |..4120.....K%.K%|
000010D0: AA 31 3A 8B 4B 25 B1 46 A7 4B 25 B2 30 00 E6 18 |.1:.K%.F.K%.0...|
000010E0: 18 10 89 34 30 36 30 00 08 19 68 10 4C 25 B2 C3 |...4060...h.L%..|
000010F0: 28 50 24 28 4B 25 29 29 AA B6 28 4C 25 28 4B 25 |(P$(K%))..(L%(K%|
00001100: 29 29 3A 53 53 24 B2 22 22 00 23 19 72 10 81 4A |)):SS$."".#.r..J|
00001110: B2 31 A4 4C 25 3A 53 53 24 B2 53 53 24 AA 22 20 |.1.L%:SS$.SS$." |
00001120: 22 3A 82 4A 00 61 19 74 10 8B 54 59 24 28 4B 25 |":.J.a.t..TY$(K%|
00001130: 29 B2 22 54 22 A7 50 24 B2 22 5E 22 AA 50 24 28 |)."T".P$."^".P$(|
00001140: 4B 25 29 AA 22 5E 22 3A 4C 25 B2 4C 25 AA 32 3A |K%)."^":L%.L%.2:|
00001150: 53 53 24 B2 53 53 24 AA 22 20 20 22 3A 89 34 32 |SS$.SS$." ":.42|
00001160: 33 30 00 A1 19 77 10 8B 54 24 28 4B 25 29 B2 22 |30...w..T$(K%)."|
00001170: 44 22 A7 50 24 B2 50 24 28 4B 25 29 AA 22 2E 2E |D".P$.P$(K%)."..|
00001180: 2F 2E 2E 2F 2E 2E 22 3A 4C 25 B2 4C 25 AA 32 3A |/../..":L%.L%.2:|
00001190: 53 53 24 B2 53 53 24 AA 22 20 20 22 3A 89 34 32 |SS$.SS$." ":.42|
000011A0: 33 30 00 CF 19 79 10 8B 54 24 28 4B 25 29 B2 22 |30...y..T$(K%)."|
000011B0: 41 22 A7 50 24 B2 50 24 28 4B 25 29 AA C8 28 44 |A".P$.P$(K%)..(D|
000011C0: 54 24 2C 4C 25 28 4B 25 29 29 3A 89 34 32 33 30 |T$,L%(K%)):.4230|
000011D0: 00 F4 19 7C 10 50 24 B2 50 24 28 4B 25 29 AA C8 |...|.P$.P$(K%)..|
000011E0: 28 44 54 24 2C 4C 25 28 4B 25 29 AB 31 29 AA 54 |(DT$,L%(K%).1).T|
000011F0: 24 28 4B 25 29 00 0C 1A 86 10 58 25 B2 58 25 28 |$(K%).....X%.X%(|
00001200: 4B 25 29 3A 59 25 B2 59 25 28 4B 25 29 00 30 1A |K%):Y%.Y%(K%).0.|
00001210: 90 10 99 C8 28 59 24 2C 32 33 29 3B A6 31 38 29 |....(Y$,23);.18)|
00001220: 3B C9 28 22 20 22 AA C4 28 58 25 AA 31 29 2C 32 |;.(" "..(X%.1),2|
00001230: 29 00 52 1A 95 10 99 C8 28 59 24 2C 32 33 29 3B |).R.....(Y$,23);|
00001240: A6 32 35 29 3B C9 28 22 20 22 AA C4 28 59 25 29 |.25);.(" "..(Y%)|
00001250: 2C 32 29 00 70 1A 9A 10 99 C8 28 59 24 2C 59 25 |,2).p.....(Y$,Y%|
00001260: 29 3B A6 58 25 29 3B 22 12 22 3B 50 24 3B 22 92 |);.X%);".";P$;".|
00001270: 22 00 84 1A A4 10 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
00001280: A7 34 32 36 30 00 AD 1A AE 10 41 B2 C6 28 41 24 |.4260.....A..(A$|
00001290: 29 3A 8B 41 B2 31 33 33 A7 58 25 28 4B 25 29 B2 |):.A.133.X%(K%).|
000012A0: 58 25 3A 59 25 28 4B 25 29 B2 59 25 3A 8E 00 CF |X%:Y%(K%).Y%:...|
000012B0: 1A B3 10 8B 41 B2 31 33 A7 99 C8 28 59 24 2C 59 |....A.13...(Y$,Y|
000012C0: 25 29 3B A6 58 25 29 3B 50 24 3A 89 34 32 39 35 |%);.X%);P$:.4295|
000012D0: 00 EF 1A B8 10 8B 41 B2 31 37 B0 41 B2 31 34 35 |......A.17.A.145|
000012E0: B0 41 B2 32 39 B0 41 B2 31 35 37 A7 34 33 30 30 |.A.29.A.157.4300|
000012F0: 00 F9 1A C2 10 89 34 32 36 30 00 17 1B C7 10 58 |......4260.....X|
00001300: 25 28 4B 25 29 B2 58 25 3A 59 25 28 4B 25 29 B2 |%(K%).X%:Y%(K%).|
00001310: 59 25 3A 89 34 30 36 30 00 26 1B CC 10 8B 41 B2 |Y%:.4060.&....A.|
00001320: 31 37 A7 34 34 30 30 00 36 1B CE 10 8B 41 B2 31 |17.4400.6....A.1|
00001330: 34 35 A7 34 35 30 30 00 45 1B D0 10 8B 41 B2 32 |45.4500.E....A.2|
00001340: 39 A7 34 36 30 30 00 54 1B D6 10 8B 58 25 B2 30 |9.4600.T....X%.0|
00001350: A7 34 32 36 30 00 6A 1B DB 10 81 4A B2 30 A4 46 |.4260.j....J.0.F|
00001360: 3A 8B 4A B2 4B 25 A7 34 33 33 30 00 7E 1B E0 10 |:.J.K%.4330.~...|
00001370: 8B 59 25 B3 B1 59 25 28 4A 29 A7 34 33 33 30 00 |.Y%..Y%(J).4330.|
00001380: A4 1B E1 10 8B 54 59 24 28 4A 29 B2 22 54 22 B0 |.....TY$(J)."T".|
00001390: 54 24 28 4A 29 B2 22 44 22 A7 45 56 25 B2 32 3A |T$(J)."D".EV%.2:|
000013A0: 89 34 33 32 35 00 AE 1B E3 10 45 56 25 B2 30 00 |.4325.....EV%.0.|
000013B0: D5 1B E5 10 8B 58 25 B2 58 25 28 4A 29 AA C3 28 |.....X%.X%(J)..(|
000013C0: 50 24 28 4A 29 29 AA 4C 25 28 4A 29 AA 45 56 25 |P$(J)).L%(J).EV%|
000013D0: A7 46 4C 25 B2 31 00 DC 1B EA 10 82 4A 00 F3 1B |.FL%.1......J...|
000013E0: EF 10 8B 46 4C 25 B2 31 A7 46 4C 25 B2 30 3A 89 |...FL%.1.FL%.0:.|
000013F0: 34 32 36 30 00 0A 1C F4 10 99 C8 28 59 24 2C 59 |4260.......(Y$,Y|
00001400: 25 29 3B A6 58 25 29 3B 53 53 24 00 1C 1C F9 10 |%);.X%);SS$.....|
00001410: 58 25 B2 58 25 AB 31 3A 89 34 32 34 30 00 30 1C |X%.X%.1:.4240.0.|
00001420: 30 11 49 B2 31 3A 8B 59 25 B2 32 32 A7 34 32 36 |0.I.1:.Y%.22.426|
00001430: 30 00 46 1C 35 11 81 4A B2 30 A4 46 3A 8B 4A B2 |0.F.5..J.0.F:.J.|
00001440: 4B 25 A7 34 34 32 30 00 6C 1C 36 11 8B 54 59 24 |K%.4420.l.6..TY$|
00001450: 28 4A 29 B2 22 54 22 B0 54 24 28 4A 29 B2 22 44 |(J)."T".T$(J)."D|
00001460: 22 A7 45 56 25 B2 32 3A 89 34 34 31 30 00 76 1C |".EV%.2:.4410.v.|
00001470: 37 11 45 56 25 B2 30 00 8C 1C 3A 11 8B 59 25 AA |7.EV%.0...:..Y%.|
00001480: 49 B3 B1 59 25 28 4A 29 A7 34 34 32 30 00 BF 1C |I..Y%(J).4420...|
00001490: 3F 11 8B 58 25 AA 4C 25 B1 58 25 28 4A 29 AF 58 |?..X%.L%.X%(J).X|
000014A0: 25 B3 58 25 28 4A 29 AA C3 28 50 24 28 4A 29 29 |%.X%(J)..(P$(J))|
000014B0: AA 4C 25 28 4A 29 AA 45 56 25 A7 46 4C 25 B2 31 |.L%(J).EV%.FL%.1|
000014C0: 00 C6 1C 44 11 82 4A 00 E5 1C 49 11 8B 46 4C 25 |...D..J...I..FL%|
000014D0: B2 31 AF 59 25 AA 49 B2 32 32 A7 46 4C 25 B2 30 |.1.Y%.I.22.FL%.0|
000014E0: 3A 89 34 32 FF 09 |:.42.. |
.......45,B(174):.46,B(175):..8...." R
EVISED BY UNITEC.P...." FOR THE CBM 64
...... IFPEEK(828)=0OR PEEK(830)=0THENPO
KE53281,12:POKE53280,11:PRINT".":GOTO10.
..... CO$="........":C3=PEEK(830):PRINTM
ID$(CO$,C3,1):POKE53281,PEEK(828)......
POKE 53280,PEEK(829).+.... *************
*******************.R.... * MAIN MENU FO
R THE CODEWRITER *.Y.... ***************
*****************..(.....2.Y$."........
.................".H.<.. B(864).96 . MF.
0:. 864,0:. 1000...A..G(14);G(8):. *****
****...F.Y$.".........................".
,.K.. STOP KEY.G.N
..".".28)"INDEX 838015".|.S..H(Y$,10);.9
);"COPYRIGHT 1982, 1983":.:..19)"BY"...X
..:..9);"CORTECHS CORPORATION" : ..A....
.9);"ALL RIGHTS RESERVED".X.... I.1 . 22
00 : . I......"."......:..5);". CODEWRIT
ER SYSTEM MAIN MENU .".?....:.:.:..1);"Y
OU HAVE THE FOLLOWING OPTIONS:".M.H..:..
4);"D.....CREATE A DATA ENTRY SYSTEM"...
...:..4);"F..................FORMAT A DI
SK".J....:..4);"S.............SET DISPLA
Y COLOURS"......:..4);"X................
..EXIT TO BASIC".+....:."ENTER YOUR CHOI
CE THEN PRESS .RETURN. . .".P...X%.36:Y%
.17:L%.1:. 34000:AA$.IN$.C.,.. AA$."D".1
000.U.@..AA$."S".5000...J.. AA$."F" . .3
5000:.VR.100.4000.F.^.. AA$."X" . . G(9)
: . :. REABLE STOP KEY.P.H.. 150...... *
** CREATE DATA ENTRY SYSTEM ***......"."
.,....:..5);". CREATE A DATA ENTRY SYSTE
M .".Y....:..2);"YOU HAVE THE FOLLOWING
OPTIONS:"......:..4);"S.........CREATE A
SCREEN LAYOUT"......:..4);"A..........C
REATE AN APPLICATION"......:..4);"X.....
.......RETURN TO MAIN MENU".&....:."TO C
REATE A SCREEN FORMAT [SELECTION .S.] YO
U MUST HAVE ";.G.!.."A FORMATTED DISK RE
ADY.":....$.."TO CREATE AN APPLICATION [
SELECTION .A.] YOU MUST ALREADY HAVE ";
.I.).."CREATED A SCREEN FORMAT FILE WIT
H SELECTION 'S'."......:."ENTER YOUR CHO
ICE THEN PRESS .RETURN. . .".!.8.X%.36:Y
%.20:L%.1:. 34000:AA$.IN$.7.B.. AA$.."S"
. 1130.P.V..35000:.VR..100.1000.H.Y.. 4
5,244:. 46,084:....[.."......";.4)"PROGR
AM LOADING. PLEASE WAIT...."...`.."NEWS
CREEN",8.F.J.. AA$.."A" . 1230......3500
0:.VR..100.1000...... 45,228:. 46,142:..
,...."......";.4)"PROGRAM LOADING. PLEA
SE WAIT....".=.D.."CODEGEN",8.Q.N.. AA$.
"X" . 150.\.X.. 1000.V.... *** FORMAT DI
SK ***... .. DISK FORMAT UTILITIY.F...."
......";.4)"PROGRAM LOADING. PLEASE WAI
T...."......45,011:.46,022:......."FORMA
T",8...... SET DISPLAY COLORS.....C1.0:C
2.0:C3.1.3...CO$."................".T...
.G(147).13)"SET COLOUR MODE".Z....:.:..5
)"[F1] SETS SCREEN COLOUR"...D..:..5)"[F
3] SETS BORDER COLOUR"...N..:..5)"[F5] S
ETS TEXT COLOUR"...X..:..5)"[F7] RETURNS
YOU TO MAIN MENU"...... 5600......AA$:.
AA$."".5090. ....AA$.G(133).5300.5....AA
$.G(134).5400.J....AA$.G(135).5500.^....
AA$.G(136).150.H....5090.....C1. C1.1:.C
1.15.C1.0......53281,C1:.5040.....C2. C2
.1:.C2.15.C2.0.B."..53280,C2:.5040...|.C
3. C3.1:.C3.17.C3.1...... J(CO$,C3,1):.
5040."....:..5)"THIS OPTION SYSTEM IS AL
SO ";.W...." PRESENT IN YOUR
APPLICATION ";.K...." PROGRA
M.".Q........].24000.25000...O.. *** FIE
LD INPUT ROUTINE ***.C.P.J.1:AD.1024.(Y%
.1).40.X%.1...Z.. J.1 . L%.1 . IN$.""...
... AD.J,B(AD.J).128...... J$:. J$."" .
34030.....II.F(J$)...... II.34 . 34030.H
....(II.32.II..20.II..13).(II.128.II.192
).(II.221).34010.}.... II..20 . 34070...
... J.1 . 34010.L...J.J.1:IN$.H(IN$,J.1)
:J$." ":.H(Y$,Y%);.X%.J);" ";:.34090....
.. II.13 . .AD.J,B(AD.J). 127:.:.... .IN
$.IN$.J$...*..H(Y$,Y%);.X%.J.1);J$;.B.4.
. J.L% . IN$.H(IN$,J.1).J$:. 34010.W.>..
II..20 . J.J.1.C.H.. 34010..... 15:.15,
8,15,"I0":.2,8,2,"CODEGEN".B...ZT$."":.K
L.1.20:.#2,AA$:ZT$.ZT$.AA$:.KL: 2:.15,"I
0"..... 15:VR.0:.J(ZT$,11,2)."15".VR.100
......VR.100...2....".";H(Y$,10)"PLACE T
HE .CODEWRITER. DISK IN THE DRIVE".\....
H(Y$,24)"PRESS .RETURN. TO CONTINUE".W.B
..AA$:.AA$..G(13).35010.}.D...... 34010.
.. J.J.1...H.. 34010...N$.H(IN$,J.1).J$:
. 340Y..K...I......X..&...Y......L......
J......AD.T ..J......II.P...IN.....AA...
.....FH.HL&..P.. #....AH...P..HL&.H.....
.H.FH.EH.DL&...H.`JP.L&.H......H.NH.MH.L
L&...H.HJP.L&....D.E...L&....M.L...L&...
.D..E..L&....L..M..L&.....J.7.L&....P.LH
#..)@PU F.L[....7..\......;P. .... .....
..).P.....G....$.I-P..\..I+..I ..I..@I0.
.I:......LF. B. P..P....L%....H....9.I,.
6I ..I:..I0..I...IEP.....X..$...Y......L
......J......AD.T`..J......II.P...IN....
.AA.N...ZT.=...KL.(...VR.H...R.H......K%
),C%......A..157.4110.....K%.K%.1:.K%.0.
K%.F.E....4120.....K%.K%.1:.K%.F.K%.0...
...4060...H.L%.C(P$(K%))..(L%(K%)):SS$."
".#.R..J.1.L%:SS$.SS$." ":.J.A.T..TY$(K%
)."T".P$."^".P$(K%)."^":L%.L%.2:SS$.SS$.
" ":.4230...W..T$(K%)."D".P$.P$(K%)."..
/../..":L%.L%.2:SS$.SS$." ":.4230.O.Y..
T$(K%)."A".P$.P$(K%).H(DT$,L%(K%)):.4230
...|.P$.P$(K%).H(DT$,L%(K%).1).T$(K%)...
..X%.X%(K%):Y%.Y%(K%).0....H(Y$,23);.18)
;I(" ".D(X%.1),2).R....H(Y$,23);.25);I("
".D(Y%),2).P....H(Y$,Y%);.X%);".";P$;".
"......A$:.A$."".4260.....A.F(A$):.A.133
.X%(K%).X%:Y%(K%).Y%:..O....A.13..H(Y$,Y
%);.X%);P$:.4295......A.17.A.145.A.29.A.
157.4300...B..4260...G.X%(K%).X%:Y%(K%).
Y%:.4060.&.L..A.17.4400.6.N..A.145.4500.
E.P..A.29.4600.T.V..X%.0.4260.J....J.0.F
:.J.K%.4330.~....Y%..Y%(J).4330......TY$
(J)."T".T$(J)."D".EV%.2:.4325.....EV%.0.
U....X%.X%(J).C(P$(J)).L%(J).EV%.FL%.1..
....J......FL%.1.FL%.0:.4260......H(Y$,Y
%);.X%);SS$.....X%.X%.1:.4240.0.0.I.1:.Y
%.22.4260.F.5..J.0.F:.J.K%.4420.L.6..TY$
(J)."T".T$(J)."D".EV%.2:.4410.V.7.EV%.0.
..:..Y%.I..Y%(J).4420...?..X%.L%.X%(J).X
%.X%(J).C(P$(J)).L%(J).EV%.FL%.1.F.D..J.
..I..FL%.1.Y%.I.22.FL%.0:.42..
> CLICK IMAGE PREVIEW FOR FULL MODAL