TELETRON.BAS
FILE INFORMATION
FILENAME(S): TELETRON.BAS
FILE TYPE(S): DEL
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:22:59
APPEARS ON: 1 disk(s)
FILE HASH
7b5b73667d37c81771a7b231fdd39af57cbdc446fadd66c2ae25fb5c16a366e7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 51 1 | TELETRON.BAS | DEL | DuncanTwain | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 45 4E 54 45 52 20 44 49 52 45 43 54 4F 52 59 | ENTER DIRECTORY|
00000010: 20 53 54 59 4C 45 20 41 4E 44 20 44 45 56 49 43 | STYLE AND DEVIC|
00000020: 45 22 3A 8D 31 30 31 32 30 00 0B 34 CE 0B 99 22 |E":.10120..4..."|
00000030: 11 9F 20 31 5D 20 4C 49 53 54 20 41 4C 4C 20 46 |.. 1] LIST ALL F|
00000040: 49 4C 45 53 22 3A 99 22 20 32 5D 20 4C 49 53 54 |ILES":." 2] LIST|
00000050: 20 53 45 51 20 46 49 4C 45 53 20 4F 4E 4C 59 00 | SEQ FILES ONLY.|
00000060: 3F 34 D0 0B 99 22 20 33 5D 20 4F 55 54 50 55 54 |?4..." 3] OUTPUT|
00000070: 20 54 4F 20 50 52 49 4E 54 45 52 22 3A 99 22 20 | TO PRINTER":." |
00000080: 34 5D 20 4F 55 54 50 55 54 20 54 4F 20 53 43 52 |4] OUTPUT TO SCR|
00000090: 45 45 4E 00 68 34 D6 0B 42 B2 38 3A 4E 43 B2 34 |EEN.h4..B.8:NC.4|
000000A0: 3A 42 24 B2 43 52 24 AA 22 31 32 33 34 22 3A 8D |:B$.CR$."1234":.|
000000B0: 31 30 31 39 30 3A 8D 31 30 31 33 30 00 8E 34 E0 |10190:.10130..4.|
000000C0: 0B 8B 44 4C B2 30 A7 41 B2 31 3A 8D 31 30 31 35 |..DL.0.A.1:.1015|
000000D0: 30 3A 41 B2 34 3A 8D 31 30 31 35 30 3A 89 33 30 |0:A.4:.10150:.30|
000000E0: 36 30 00 CF 34 EA 0B 8B 28 43 48 25 28 31 29 AA |60..4...(CH%(1).|
000000F0: 43 48 25 28 32 29 B3 B1 31 29 B0 28 43 48 25 28 |CH%(2)..1).(CH%(|
00000100: 33 29 AA 43 48 25 28 34 29 B3 B1 31 29 B0 44 4C |3).CH%(4)..1).DL|
00000110: B3 B1 32 A7 99 C8 28 43 44 24 2C 37 29 3A 89 33 |..2...(CD$,7):.3|
00000120: 30 32 32 00 F5 34 F4 0B 99 C8 28 43 44 24 2C 31 |022..4....(CD$,1|
00000130: 34 29 3A 8B 43 48 25 28 33 29 A7 9F 34 2C 50 44 |4):.CH%(3)..4,PD|
00000140: 2C 53 41 3A 89 33 30 37 30 00 FE 34 F9 0B 9F 34 |,SA:.3070..4...4|
00000150: 2C 33 00 1F 35 FE 0B 4E 41 24 B2 22 24 22 3A 8B |,3..5..NA$."$":.|
00000160: 43 48 25 28 32 29 A7 4E 41 24 B2 22 24 2A 3D 53 |CH%(2).NA$."$*=S|
00000170: 45 51 22 00 41 35 08 0C 9F 31 2C 44 44 2C 30 2C |EQ".A5...1,DD,0,|
00000180: 4E 41 24 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 |NA$:.10210:.ER.0|
00000190: A7 33 30 38 35 00 5A 35 09 0C 8B 41 24 B2 22 59 |.3085.Z5...A$."Y|
000001A0: 22 A7 8D 31 30 32 36 30 3A 89 33 30 38 30 00 64 |"..10260:.3080.d|
000001B0: 35 0A 0C 89 33 31 34 30 00 79 35 0D 0C A1 23 31 |5...3140.y5...#1|
000001C0: 2C 41 24 2C 41 24 3A 98 34 2C 43 52 24 00 96 35 |,A$,A$:.4,CR$..5|
000001D0: 12 0C A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C 42 |...#1,A$,A$,A$,B|
000001E0: 24 3A 8B 53 54 A7 33 31 34 30 00 B6 35 1C 0C 98 |$:.ST.3140..5...|
000001F0: 34 2C C6 28 41 24 AA 4E 4C 24 29 AA C6 28 42 24 |4,.(A$.NL$)..(B$|
00000200: AA 4E 4C 24 29 AC 32 35 36 3B 00 D6 35 26 0C A1 |.NL$).256;..5&..|
00000210: 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 98 34 2C |#1,A$:.A$.""..4,|
00000220: 43 52 24 3B 3A 89 33 30 39 30 00 E3 35 30 0C 8B |CR$;:.3090..50..|
00000230: 53 54 A7 33 31 34 30 00 F4 35 3A 0C 98 34 2C 41 |ST.3140..5:..4,A|
00000240: 24 3B 3A 89 33 31 31 30 00 11 36 44 0C 98 34 2C |$;:.3110..6D..4,|
00000250: 43 52 24 3A A0 31 3A A0 34 3A 8D 31 30 32 36 30 |CR$:.1:.4:.10260|
00000260: 3A 89 31 33 30 00 2B 36 80 0C 8F 20 2A 2A 20 44 |:.130.+6... ** D|
00000270: 45 4C 45 54 45 20 41 20 46 49 4C 45 20 2A 2A 00 |ELETE A FILE **.|
00000280: 5A 36 8A 0C 99 22 93 22 A6 31 30 29 22 11 9A 12 |Z6...".".10)"...|
00000290: 20 44 45 4C 45 54 45 20 41 4E 59 20 44 49 53 4B | DELETE ANY DISK|
000002A0: 20 46 49 4C 45 20 22 3A 8D 31 30 32 30 30 00 69 | FILE ":.10200.i|
000002B0: 36 8C 0C 8B 45 52 B2 30 A7 33 32 32 30 00 81 36 |6...ER.0.3220..6|
000002C0: 8E 0C 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 22 |...10220:.A$."Y"|
000002D0: A7 33 32 31 30 00 8B 36 90 0C 89 31 37 31 30 00 |.3210..6...1710.|
000002E0: A4 36 94 0C 8D 31 30 32 38 30 3A A0 32 3A 8B 45 |.6...10280:.2:.E|
000002F0: 52 B2 30 A7 33 32 32 35 00 B5 36 95 0C 8B 41 24 |R.0.3225..6...A$|
00000300: B2 22 4E 22 A7 33 32 39 30 00 BF 36 96 0C 89 33 |."N".3290..6...3|
00000310: 32 32 30 00 D7 36 99 0C 8D 31 30 33 38 30 3A 8B |220..6...10380:.|
00000320: 41 24 B2 22 4E 22 A7 33 32 39 30 00 01 37 9E 0C |A$."N".3290..7..|
00000330: 99 22 1E 11 20 44 45 4C 45 54 49 4E 47 20 46 49 |.".. DELETING FI|
00000340: 4C 45 22 3A 98 31 35 2C 22 53 3A 22 53 24 3A 8D |LE":.15,"S:"S$:.|
00000350: 31 30 32 31 30 00 1F 37 A8 0C 8B 45 52 B1 31 A7 |10210..7...ER.1.|
00000360: 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 22 A7 33 |.10220:.A$."Y".3|
00000370: 32 32 30 00 2E 37 B2 0C 8B 45 52 B1 31 A7 33 32 |220..7...ER.1.32|
00000380: 39 30 00 6D 37 BC 0C 8B 54 45 B2 30 A7 99 22 11 |90.m7...TE.0..".|
00000390: 1C 2A 20 45 52 52 4F 52 20 2A 20 46 49 4C 45 20 |.* ERROR * FILE |
000003A0: 4E 4F 54 20 44 45 4C 45 54 45 44 20 22 3A 8D 31 |NOT DELETED ":.1|
000003B0: 30 32 34 30 3A 8B 41 24 B2 22 59 22 A7 33 32 32 |0240:.A$."Y".322|
000003C0: 30 00 7C 37 C6 0C 8B 54 45 B2 30 A7 33 32 39 30 |0.|7...TE.0.3290|
000003D0: 00 9E 37 D0 0C 99 22 11 9A 4F 4B 2C 22 53 24 22 |..7..."..OK,"S$"|
000003E0: 20 48 41 53 20 42 45 45 4E 20 44 45 4C 45 54 45 | HAS BEEN DELETE|
000003F0: 44 22 00 AE 37 DA 0C 8D 31 30 32 36 30 3A 89 31 |D"..7...10260:.1|
00000400: 33 30 00 CA 37 E4 0C 8F 20 2A 2A 20 55 4E 44 45 |30..7... ** UNDE|
00000410: 4C 45 54 45 20 41 20 46 49 4C 45 20 2A 2A 00 FB |LETE A FILE **..|
00000420: 37 EE 0C 99 22 93 22 A6 38 29 22 11 9A 12 20 55 |7...".".8)"... U|
00000430: 4E 44 45 4C 45 54 45 20 41 20 44 45 4C 45 54 45 |NDELETE A DELETE|
00000440: 44 20 46 49 4C 45 20 22 3A 8D 31 30 32 30 30 00 |D FILE ":.10200.|
00000450: 0A 38 F0 0C 8B 45 52 B2 30 A7 33 33 32 30 00 22 |.8...ER.0.3320."|
00000460: 38 F2 0C 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 |8...10220:.A$."Y|
00000470: 22 A7 33 33 31 30 00 2C 38 F4 0C 89 31 37 31 30 |".3310.,8...1710|
00000480: 00 6A 38 F8 0C 99 22 9F 11 20 4C 4F 4F 4B 49 4E |.j8...".. LOOKIN|
00000490: 47 20 46 4F 52 20 44 45 4C 45 54 45 44 20 46 49 |G FOR DELETED FI|
000004A0: 4C 45 53 20 2E 2E 2E 22 3A 54 B2 31 38 3A 53 B2 |LES ...":T.18:S.|
000004B0: 30 3A 9F 32 2C 44 44 2C 32 2C 22 23 32 22 00 90 |0:.2,DD,2,"#2"..|
000004C0: 38 02 0D 98 31 35 2C 22 55 31 3A 32 20 30 22 54 |8...15,"U1:2 0"T|
000004D0: 3B 53 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 A7 |;S:.10210:.ER.0.|
000004E0: 33 33 36 30 00 A4 38 0C 0D A0 32 3A 8B 41 24 B2 |3360..8...2:.A$.|
000004F0: 22 59 22 A7 33 33 31 30 00 AE 38 16 0D 89 33 32 |"Y".3310..8...32|
00000500: 39 30 00 EE 38 20 0D 44 4C B2 30 3A 98 31 35 2C |90..8 .DL.0:.15,|
00000510: 22 4D 2D 52 22 4E 4C 24 C7 28 35 29 3A A1 23 31 |"M-R"NL$.(5):.#1|
00000520: 35 2C 41 24 3A 54 54 B2 C6 28 41 24 AA 4E 4C 24 |5,A$:TT..(A$.NL$|
00000530: 29 3A 8B 54 54 B2 30 B0 54 54 B1 33 35 A7 33 34 |):.TT.0.TT.35.34|
00000540: 37 30 00 19 39 2A 0D 98 31 35 2C 22 4D 2D 52 22 |70..9*..15,"M-R"|
00000550: C7 28 31 29 C7 28 35 29 3A A1 23 31 35 2C 41 24 |.(1).(5):.#15,A$|
00000560: 3A 53 53 B2 C6 28 41 24 AA 4E 4C 24 29 00 41 39 |:SS..(A$.NL$).A9|
00000570: 34 0D 98 31 35 2C 22 55 31 3A 32 20 30 22 54 54 |4..15,"U1:2 0"TT|
00000580: 3B 53 53 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 |;SS:.10210:.ER.0|
00000590: A7 33 34 31 30 00 56 39 3E 0D 8B 41 24 B2 22 4E |.3410.V9>..A$."N|
000005A0: 22 A7 A0 32 3A 89 33 32 39 30 00 60 39 48 0D 89 |"..2:.3290.`9H..|
000005B0: 33 33 38 30 00 86 39 52 0D 81 50 B2 30 A4 32 35 |3380..9R..P.0.25|
000005C0: 35 3A A1 23 32 2C 41 24 3A 5A 25 28 50 29 B2 C6 |5:.#2,A$:Z%(P)..|
000005D0: 28 41 24 AA 4E 4C 24 29 3A 82 00 A2 39 5C 0D 81 |(A$.NL$):...9\..|
000005E0: 50 B2 32 A4 32 35 35 A9 33 32 3A 8B 5A 25 28 50 |P.2.255.32:.Z%(P|
000005F0: 29 A7 33 34 36 30 00 BF 39 66 0D 8B 5A 25 28 50 |).3460..9f..Z%(P|
00000600: AA 31 29 B2 30 A7 50 B2 32 35 36 3A 82 3A 89 33 |.1).0.P.256:.:.3|
00000610: 34 37 30 00 F3 39 70 0D 99 22 11 9C 46 4F 55 4E |470..9p.."..FOUN|
00000620: 44 20 2D 20 22 51 4F 24 3B 3A 81 5A B2 50 AA 33 |D - "QO$;:.Z.P.3|
00000630: A4 50 AA 31 38 3A 99 C7 28 5A 25 28 5A 29 29 3B |.P.18:..(Z%(Z));|
00000640: 3A 82 3A 99 51 4F 24 00 2A 3A 7A 0D 98 31 35 2C |:.:.QO$.*:z..15,|
00000650: 22 4D 2D 57 22 C7 28 50 29 C7 28 35 29 C7 28 31 |"M-W".(P).(5).(1|
00000660: 29 C7 28 31 32 39 29 3A 98 31 35 2C 22 55 32 3A |).(129):.15,"U2:|
00000670: 32 20 30 22 54 54 3B 53 53 3A 44 4C B2 31 00 48 |2 0"TT;SS:DL.1.H|
00000680: 3A 84 0D 82 3A 54 54 B2 5A 25 28 30 29 3A 53 53 |:...:TT.Z%(0):SS|
00000690: B2 5A 25 28 31 29 3A 89 33 33 38 30 00 65 3A 8E |.Z%(1):.3380.e:.|
000006A0: 0D 99 22 11 9A 20 4E 4F 20 22 3B 3A 8B 44 4C A7 |..".. NO ";:.DL.|
000006B0: 99 22 4D 4F 52 45 20 22 3B 00 8F 3A 98 0D 99 22 |."MORE ";..:..."|
000006C0: 44 45 4C 45 54 45 44 20 46 49 4C 45 53 20 46 4F |DELETED FILES FO|
000006D0: 55 4E 44 22 3A A0 32 3A 8B 44 4C A7 98 31 35 2C |UND":.2:.DL..15,|
000006E0: 22 56 22 00 99 3A A2 0D 89 33 32 39 30 00 BA 3A |"V"..:...3290..:|
000006F0: AC 0D 8F 20 2A 2A 20 44 45 46 49 4E 45 20 46 55 |... ** DEFINE FU|
00000700: 4E 43 54 49 4F 4E 20 4B 45 59 53 20 2A 2A 00 E3 |NCTION KEYS **..|
00000710: 3A B6 0D 99 22 93 22 A6 38 29 22 11 9A 12 20 44 |:...".".8)"... D|
00000720: 45 46 49 4E 45 20 38 20 46 55 4E 43 54 49 4F 4E |EFINE 8 FUNCTION|
00000730: 20 4B 45 59 53 20 22 00 27 3B C0 0D 99 22 11 1E | KEYS ".';..."..|
00000740: 20 43 55 52 52 45 4E 54 20 57 4F 52 44 53 20 41 | CURRENT WORDS A|
00000750: 52 45 20 3A 2D 11 9F 22 3A 81 54 B2 31 A4 38 3A |RE :-..":.T.1.8:|
00000760: 99 22 20 5B 46 22 C9 28 C4 28 54 29 2C 31 29 22 |." [F".(.(T),1)"|
00000770: 5D 20 22 46 4B 24 28 54 29 3A 82 00 5B 3B CA 0D |] "FK$(T):..[;..|
00000780: 8D 31 30 32 36 30 3A 99 22 93 11 11 22 3A 41 24 |.10260:."...":A$|
00000790: B2 22 45 4E 54 45 52 20 4F 50 54 49 4F 4E 20 52 |."ENTER OPTION R|
000007A0: 45 51 55 49 52 45 44 22 3A 8D 31 30 31 32 30 00 |EQUIRED":.10120.|
000007B0: A1 3B D4 0D 99 22 11 9F 20 31 5D 20 44 45 46 49 |.;...".. 1] DEFI|
000007C0: 4E 45 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 20 |NE FUNCTION KEY |
000007D0: 5B 46 31 2D 38 5D 22 3A 99 22 20 32 5D 20 43 4C |[F1-8]":." 2] CL|
000007E0: 45 41 52 20 41 4C 4C 20 46 55 4E 43 54 49 4F 4E |EAR ALL FUNCTION|
000007F0: 20 4B 45 59 53 00 E1 3B DE 0D 99 22 20 33 5D 20 | KEYS..;..." 3] |
00000800: 56 49 45 57 20 43 55 52 52 45 4E 54 20 46 55 4E |VIEW CURRENT FUN|
00000810: 43 54 49 4F 4E 20 4B 45 59 20 57 4F 52 44 53 22 |CTION KEY WORDS"|
00000820: 3A 99 22 20 34 5D 20 52 45 54 55 52 4E 20 54 4F |:." 4] RETURN TO|
00000830: 20 4D 45 4E 55 00 1B 3C E8 0D 42 B2 36 3A 4E 43 | MENU..<..B.6:NC|
00000840: B2 34 3A 42 24 B2 43 52 24 AA 22 31 32 33 34 22 |.4:B$.CR$."1234"|
00000850: 3A 8D 31 30 31 39 30 3A 8D 31 30 31 33 30 3A 8B |:.10190:.10130:.|
00000860: 44 4C B2 30 A7 41 B2 31 3A 8D 31 30 31 35 30 00 |DL.0.A.1:.10150.|
00000870: 35 3C F2 0D 99 C8 28 43 44 24 2C 31 32 29 3A 8B |5<....(CD$,12):.|
00000880: 4F 50 B2 34 A7 33 32 39 30 00 77 3C FC 0D 8B 4F |OP.4.3290.w<...O|
00000890: 50 B2 32 A7 99 22 11 1C 12 20 46 55 4E 43 54 49 |P.2.."... FUNCTI|
000008A0: 4F 4E 20 4B 45 59 53 20 43 4C 45 41 52 45 44 20 |ON KEYS CLEARED |
000008B0: 92 22 3A 81 54 B2 31 A4 38 3A 46 4B 24 28 54 29 |.":.T.1.8:FK$(T)|
000008C0: B2 22 22 3A 82 3A 89 33 35 33 30 00 8E 3C 06 0E |."":.:.3530..<..|
000008D0: 8B 4F 50 B2 33 A7 99 22 93 11 11 22 3A 89 33 35 |.OP.3.."...":.35|
000008E0: 32 30 00 CC 3C 10 0E 99 22 11 9A 20 48 49 54 20 |20..<...".. HIT |
000008F0: 46 55 4E 43 54 49 4F 4E 20 4B 45 59 20 54 4F 20 |FUNCTION KEY TO |
00000900: 42 45 20 44 45 46 49 4E 45 44 22 3A 42 24 B2 22 |BE DEFINED":B$."|
00000910: 85 86 87 88 89 8A 8B 8C 22 3A 8D 31 30 30 39 30 |........":.10090|
00000920: 00 F0 3C 15 0E 42 B2 C6 28 41 24 29 AB 31 33 32 |..<..B..(A$).132|
00000930: 3A 8B 42 B3 35 A7 44 4C B2 42 AC 32 AB 31 3A 89 |:.B.5.DL.B.2.1:.|
00000940: 33 36 31 30 00 FD 3C 17 0E 44 4C B2 42 AC 32 AB |3610..<..DL.B.2.|
00000950: 38 00 29 3D 1A 0E 99 22 11 1E 45 4E 54 45 52 20 |8.)=..."..ENTER |
00000960: 5B 46 22 C9 28 C4 28 44 4C 29 2C 31 29 22 5D 20 |[F".(.(DL),1)"] |
00000970: 57 4F 52 44 22 3B 3A 8D 31 30 30 32 30 00 63 3D |WORD";:.10020.c=|
00000980: 24 0E 46 4B 24 28 44 4C 29 B2 53 24 3A 99 22 9A |$.FK$(DL).S$:.".|
00000990: 11 12 20 44 45 46 49 4E 45 20 41 4E 59 20 4D 4F |.. DEFINE ANY MO|
000009A0: 52 45 20 4B 45 59 53 20 28 59 2F 4E 29 20 22 3B |RE KEYS (Y/N) ";|
000009B0: 3A 8D 31 30 31 38 30 00 74 3D 2E 0E 8B 41 24 B2 |:.10180.t=...A$.|
000009C0: 22 59 22 A7 33 36 30 30 00 7E 3D 38 0E 89 33 35 |"Y".3600.~=8..35|
000009D0: 33 30 00 9B 3D 42 0E 8F 20 2A 2A 20 52 45 4E 41 |30..=B.. ** RENA|
000009E0: 4D 45 20 44 49 53 4B 20 46 49 4C 45 20 2A 2A 00 |ME DISK FILE **.|
000009F0: CA 3D 4C 0E 99 22 93 22 A6 31 30 29 22 11 9A 12 |.=L..".".10)"...|
00000A00: 20 52 45 4E 41 4D 45 20 41 4E 59 20 44 49 53 4B | RENAME ANY DISK|
00000A10: 20 46 49 4C 45 20 22 3A 8D 31 30 32 30 30 00 D9 | FILE ":.10200..|
00000A20: 3D 4E 0E 8B 45 52 B2 30 A7 33 36 37 30 00 F1 3D |=N..ER.0.3670..=|
00000A30: 50 0E 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 22 |P..10220:.A$."Y"|
00000A40: A7 33 36 36 30 00 FB 3D 52 0E 89 31 37 31 30 00 |.3660..=R..1710.|
00000A50: 14 3E 56 0E 8D 31 30 32 38 30 3A A0 32 3A 8B 45 |.>V..10280:.2:.E|
00000A60: 52 B2 30 A7 33 36 39 35 00 25 3E 60 0E 8B 41 24 |R.0.3695.%>`..A$|
00000A70: B2 22 4E 22 A7 33 32 39 30 00 2F 3E 6A 0E 89 33 |."N".3290./>j..3|
00000A80: 36 37 30 00 6A 3E 6F 0E 99 22 11 45 4E 54 45 52 |670.j>o..".ENTER|
00000A90: 20 12 4E 45 57 92 20 46 49 4C 45 20 4E 41 4D 45 | .NEW. FILE NAME|
00000AA0: 22 3B 3A 8D 31 30 30 32 30 3A 8B 53 24 B2 22 22 |";:.10020:.S$.""|
00000AB0: A7 53 24 B2 22 43 36 34 20 44 41 54 41 22 00 7C |.S$."C64 DATA".||
00000AC0: 3E 70 0E 8B 53 24 B3 B1 4E 41 24 A7 33 37 30 30 |>p..S$..NA$.3700|
00000AD0: 00 B4 3E 71 0E 99 22 11 1C 12 20 46 49 4C 45 20 |..>q.."... FILE |
00000AE0: 4E 41 4D 45 53 20 41 52 45 20 54 48 45 20 53 41 |NAMES ARE THE SA|
00000AF0: 4D 45 20 22 3A 8D 31 30 32 34 30 3A 8B 41 24 B2 |ME ":.10240:.A$.|
00000B00: 22 4E 22 A7 33 32 39 30 00 BE 3E 72 0E 89 33 36 |"N".3290..>r..36|
00000B10: 37 30 00 F9 3E 74 0E 99 22 1E 11 20 52 45 4E 41 |70..>t..".. RENA|
00000B20: 4D 49 4E 47 20 46 49 4C 45 22 3A 98 31 35 2C 22 |MING FILE":.15,"|
00000B30: 52 3A 22 53 24 22 3D 22 4E 41 24 3A 8D 31 30 32 |R:"S$"="NA$:.102|
00000B40: 31 30 3A 8B 45 52 B2 30 A7 33 32 39 30 00 11 3F |10:.ER.0.3290..?|
00000B50: 7E 0E 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 22 |~..10220:.A$."Y"|
00000B60: A7 33 36 37 30 00 1B 3F 88 0E 89 33 32 39 30 00 |.3670..?...3290.|
00000B70: 36 3F A0 0F 8F 20 2A 2A 20 52 45 2D 52 55 4E 20 |6?... ** RE-RUN |
00000B80: 50 52 4F 47 52 41 4D 20 2A 2A 00 6E 3F AA 0F 99 |PROGRAM **.n?...|
00000B90: 22 93 22 A6 31 30 29 22 9A 20 12 20 52 45 53 45 |".".10)". . RESE|
00000BA0: 54 20 48 49 50 45 52 42 41 53 45 20 92 11 22 3A |T HIPERBASE ..":|
00000BB0: 8D 31 30 33 38 30 3A 8B 41 24 B2 22 59 22 A7 9C |.10380:.A$."Y"..|
00000BC0: 3A 8A 00 7E 3F B4 0F 8D 31 30 32 36 30 3A 89 31 |:..~?...10260:.1|
00000BD0: 33 30 00 84 3F 0F 27 80 00 9E 3F 10 27 8F 20 2A |30..?.'...?.'. *|
00000BE0: 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 53 20 2A |** SUBROUTINES *|
00000BF0: 2A 2A 00 AE 3F 1A 27 81 54 B2 31 A4 44 4C 3A 82 |**..?.'.T.1.DL:.|
00000C00: 3A 8E 00 C9 3F 24 27 97 31 39 38 2C 30 3A 53 24 |:...?$'.198,0:S$|
00000C10: B2 22 22 3A 99 22 20 2D 20 A4 9D 22 3B 00 E8 3F |."":." - ..";..?|
00000C20: 2E 27 A1 41 24 3A 41 B2 C6 28 41 24 AA 4E 4C 24 |.'.A$:A..(A$.NL$|
00000C30: 29 3A 8B 41 B2 30 A7 31 30 30 33 30 00 F9 3F 38 |):.A.0.10030..?8|
00000C40: 27 8B 41 B2 31 33 A7 99 22 20 22 3A 8E 00 0F 40 |'.A.13.." ":...@|
00000C50: 42 27 8B 41 B2 32 30 AF 53 24 B2 22 22 A7 31 30 |B'.A.20.S$."".10|
00000C60: 30 33 30 00 3A 40 4C 27 8B 41 B2 32 30 A7 53 24 |030.:@L'.A.20.S$|
00000C70: B2 C8 28 53 24 2C C3 28 53 24 29 AB 31 29 3A 99 |..(S$,.(S$).1):.|
00000C80: 41 24 22 A4 9D 22 3B 3A 89 31 30 30 33 30 00 60 |A$"..";:.10030.`|
00000C90: 40 51 27 8B 41 B1 31 33 32 AF 41 B3 31 34 31 A7 |@Q'.A.132.A.141.|
00000CA0: 41 24 B2 46 4B 24 28 41 AB 31 33 32 29 3A 89 31 |A$.FK$(A.132):.1|
00000CB0: 30 30 38 30 00 75 40 56 27 8B 41 B3 33 32 B0 41 |0080.u@V'.A.32.A|
00000CC0: B1 39 35 A7 31 30 30 33 30 00 92 40 60 27 53 24 |.95.10030..@`'S$|
00000CD0: B2 53 24 AA 41 24 3A 99 41 24 22 A4 9D 22 3B 3A |.S$.A$:.A$"..";:|
00000CE0: 89 31 30 30 33 30 00 9D 40 6A 27 97 31 39 38 2C |.10030..@j'.198,|
00000CF0: 30 00 B2 40 6F 27 A1 41 24 3A 8B 41 24 B2 22 22 |0..@o'.A$:.A$.""|
00000D00: A7 31 30 30 39 35 00 DB 40 74 27 81 54 B2 31 A4 |.10095..@t'.T.1.|
00000D10: C3 28 42 24 29 3A 8B 41 24 B2 CA 28 42 24 2C 54 |.(B$):.A$..(B$,T|
00000D20: 2C 31 29 A7 54 B2 C3 28 42 24 29 3A 82 3A 8E 00 |,1).T..(B$):.:..|
00000D30: E8 40 7E 27 82 3A 89 31 30 30 39 30 00 0C 41 88 |.@~'.:.10090..A.|
00000D40: 27 41 B2 C3 28 41 24 29 3A 99 41 24 C8 28 42 53 |'A..(A$):.A$.(BS|
00000D50: 24 2C 41 AA 31 29 C8 28 55 4C 24 2C 41 29 3A 8E |$,A.1).(UL$,A):.|
00000D60: 00 28 41 92 27 44 4C B2 30 3A 81 54 B2 31 A4 4E |.(A.'DL.0:.T.1.N|
00000D70: 43 3A 43 48 25 28 54 29 B2 30 3A 82 00 3D 41 97 |C:CH%(T).0:..=A.|
00000D80: 27 8D 31 30 30 39 30 3A 8B 41 24 B2 43 52 24 A7 |'.10090:.A$.CR$.|
00000D90: 8E 00 5F 41 9C 27 41 B2 C5 28 41 24 29 3A 8D 31 |.._A.'A..(A$):.1|
00000DA0: 30 31 35 30 3A 44 4C B2 44 4C AA 31 3A 89 31 30 |0150:DL.DL.1:.10|
00000DB0: 31 33 35 00 82 41 A6 27 99 C8 28 43 44 24 2C 41 |135..A.'..(CD$,A|
00000DC0: AA 42 29 22 3E 22 3A 8B 43 48 25 28 41 29 A7 44 |.B)">":.CH%(A).D|
00000DD0: 4C B2 44 4C AB 31 00 96 41 B0 27 43 48 25 28 41 |L.DL.1..A.'CH%(A|
00000DE0: 29 B2 31 3A 4F 50 B2 41 3A 8E 00 C6 41 BA 27 99 |).1:OP.A:...A.'.|
00000DF0: C8 28 43 44 24 2C 42 AA 4E 43 AA 34 29 22 12 20 |.(CD$,B.NC.4)". |
00000E00: 41 52 45 20 54 48 45 53 45 20 43 4F 52 52 45 43 |ARE THESE CORREC|
00000E10: 54 20 28 59 2F 4E 29 20 22 3B 00 DF 41 C4 27 42 |T (Y/N) ";..A.'B|
00000E20: 24 B2 22 59 4E 22 3A 8D 31 30 30 39 30 3A 99 41 |$."YN":.10090:.A|
00000E30: 24 3A 8E 00 12 42 CE 27 99 22 11 9A 45 4E 54 45 |$:...B.'."..ENTE|
00000E40: 52 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 53 |R OPTION NUMBERS|
00000E50: 20 26 20 52 45 54 55 52 4E 20 54 4F 20 46 49 4E | & RETURN TO FIN|
00000E60: 49 53 48 22 3A 8E 00 50 42 D8 27 99 22 11 9C 49 |ISH":..PB.'."..I|
00000E70: 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 4B 20 |NSERT DATA DISK |
00000E80: 49 4E 54 4F 20 44 52 49 56 45 2C 48 49 54 20 41 |INTO DRIVE,HIT A|
00000E90: 20 4B 45 59 22 3A 8D 31 30 32 35 30 3A 98 31 35 | KEY":.10250:.15|
00000EA0: 2C 22 49 22 00 67 42 E2 27 84 31 35 2C 45 52 2C |,"I".gB.'.15,ER,|
00000EB0: 45 52 24 2C 54 45 2C 53 45 3A 8E 00 99 42 EC 27 |ER$,TE,SE:...B.'|
00000EC0: 99 22 11 1C 2A 20 44 49 53 4B 20 45 52 52 4F 52 |."..* DISK ERROR|
00000ED0: 20 2A 20 23 22 45 52 3B 45 52 24 3B 3A 8B 54 45 | * #"ER;ER$;:.TE|
00000EE0: A7 99 22 20 4F 4E 22 54 45 3B 53 45 3B 00 A3 42 |.." ON"TE;SE;..B|
00000EF0: F6 27 99 43 52 24 3B 00 C9 42 00 28 99 22 11 9A |.'.CR$;..B.(."..|
00000F00: 12 20 54 52 59 20 41 47 41 49 4E 20 28 59 2F 4E |. TRY AGAIN (Y/N|
00000F10: 29 20 22 3B 3A 8D 31 30 31 38 30 3A 8E 00 E4 42 |) ";:.10180:...B|
00000F20: 0A 28 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |.(.198,0:.198,1:|
00000F30: 97 31 39 38 2C 30 3A 8E 00 0D 43 14 28 99 A6 35 |.198,0:...C.(..5|
00000F40: 29 22 9A 12 11 20 50 52 45 53 53 20 41 4E 59 20 |)"... PRESS ANY |
00000F50: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
00000F60: 22 00 1A 43 1E 28 8D 31 30 32 35 30 3A 8E 00 4F |"..C.(.10250:..O|
00000F70: 43 28 28 99 22 11 45 4E 54 45 52 20 46 49 4C 45 |C((.".ENTER FILE|
00000F80: 20 4E 41 4D 45 22 3B 3A 8D 31 30 30 32 30 3A 8B | NAME";:.10020:.|
00000F90: 53 24 B2 22 22 A7 53 24 B2 22 43 36 34 20 44 41 |S$."".S$."C64 DA|
00000FA0: 54 41 22 00 7E 43 32 28 4E 41 24 B2 53 24 3A 9F |TA".~C2(NA$.S$:.|
00000FB0: 32 2C 44 44 2C 32 2C 53 24 AA 22 2C 53 2C 22 AA |2,DD,2,S$.",S,".|
00000FC0: 54 59 24 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 |TY$:.10210:.ER.0|
00000FD0: A7 8E 00 8B 43 3C 28 8D 31 30 32 32 30 3A 8E 00 |....C<(.10220:..|
00000FE0: B7 43 46 28 99 22 11 45 4E 54 45 52 20 43 55 52 |.CF(.".ENTER CUR|
00000FF0: 52 45 4E 54 20 44 41 54 45 22 3B 3A 8D 31 30 30 |RENT DATE";:.100|
00001000: 32 30 3A 45 44 24 B2 53 24 3A 8E 00 E2 43 50 28 |20:ED$.S$:...CP(|
00001010: 98 32 2C 51 4F 24 45 44 24 43 4F 24 45 44 24 43 |.2,QO$ED$CO$ED$C|
00001020: 4F 24 50 57 24 51 4F 24 43 52 24 C7 28 4E 46 29 |O$PW$QO$CR$.(NF)|
00001030: 51 4F 24 3B 3A 8E 00 07 44 5A 28 84 32 2C 44 41 |QO$;:...DZ(.2,DA|
00001040: 24 2C 55 44 24 2C 50 57 24 3A A1 23 32 2C 41 24 |$,UD$,PW$:.#2,A$|
00001050: 3A 4E 46 B2 C6 28 41 24 29 3A 8E 00 46 44 64 28 |:NF..(A$):..FDd(|
00001060: 99 22 11 45 4E 54 45 52 20 50 41 53 53 57 4F 52 |.".ENTER PASSWOR|
00001070: 44 20 5B 52 45 54 55 52 4E 20 49 46 20 4E 4F 4E |D [RETURN IF NON|
00001080: 45 5D 22 3B 3A 8D 31 30 30 32 30 3A 41 24 B2 22 |E]";:.10020:A$."|
00001090: 22 3A 8B 53 24 B2 22 22 A7 8E 00 71 44 6E 28 81 |":.S$.""...qDn(.|
000010A0: 54 B2 31 A4 C3 28 53 24 29 3A 41 24 B2 41 24 AA |T.1..(S$):A$.A$.|
000010B0: C7 28 C6 28 CA 28 53 24 2C 54 2C 31 29 29 AA 54 |.(.(.(S$,T,1)).T|
000010C0: 29 3A 82 3A 8E 00 9C 44 78 28 98 33 2C 51 4F 24 |):.:...Dx(.3,QO$|
000010D0: 44 41 24 43 4F 24 45 44 24 43 4F 24 50 57 24 51 |DA$CO$ED$CO$PW$Q|
000010E0: 4F 24 43 52 24 C7 28 4E 46 29 51 4F 24 3B 3A 8E |O$CR$.(NF)QO$;:.|
000010F0: 00 BA 44 82 28 81 54 B2 31 A4 4E 46 3A 98 33 2C |..D.(.T.1.NF:.3,|
00001100: 44 46 24 28 54 29 43 4F 24 3B 3A 82 3A 8E 00 E3 |DF$(T)CO$;:.:...|
00001110: 44 8C 28 99 22 11 12 1C 20 41 52 45 20 59 4F 55 |D.(."... ARE YOU|
00001120: 20 53 55 52 45 20 28 59 2F 4E 29 20 22 3B 3A 8D | SURE (Y/N) ";:.|
00001130: 31 30 31 38 30 3A 8E 00 22 45 96 28 99 22 11 9A |10180:.."E.(."..|
00001140: 12 20 45 4E 54 45 52 20 52 45 43 4F 52 44 20 23 |. ENTER RECORD #|
00001150: 22 4E 52 22 11 22 3A 81 54 B2 31 A4 4E 46 3A 99 |"NR".":.T.1.NF:.|
00001160: 22 45 4E 54 45 52 20 22 44 46 24 28 54 29 3B 3A |"ENTER "DF$(T);:|
00001170: 8D 31 30 30 32 30 00 4A 45 A0 28 8B 54 B2 31 AF |.10020.JE.(.T.1.|
00001180: 53 24 B2 22 58 58 58 22 A7 98 4C 46 2C 53 24 51 |S$."XXX"..LF,S$Q|
00001190: 4F 24 3A 54 B2 4E 46 3A 82 3A A0 32 3A 8E 00 85 |O$:T.NF:.:.2:...|
000011A0: 45 AA 28 54 45 24 28 54 29 B2 53 24 3A 82 3A 99 |E.(TE$(T).S$:.:.|
000011B0: 22 11 9F 41 52 45 20 41 4C 4C 20 46 49 45 4C 44 |"..ARE ALL FIELD|
000011C0: 53 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 20 |S CORRECT (Y/N) |
000011D0: 22 3B 3A 8D 31 30 31 38 30 00 97 45 B4 28 8B 41 |";:.10180..E.(.A|
000011E0: 24 B2 22 4E 22 A7 31 30 33 39 30 00 BE 45 BE 28 |$."N".10390..E.(|
000011F0: 81 54 B2 31 A4 4E 46 3A 98 4C 46 2C 54 45 24 28 |.T.1.NF:.LF,TE$(|
00001200: 54 29 43 4F 24 3B 3A 82 3A 4E 52 B2 4E 52 AA 31 |T)CO$;:.:NR.NR.1|
00001210: 3A 8E 00 00 00 52 53 78 A2 0A A0 00 86 14 84 15 |:....RSx........|
00001220: A2 BD A0 45 86 FC 84 FD A0 00 A2 7B BD DE 45 9D |...E.......{..E.|
00001230: 33 03 CA D0 F7 4C 84 03 46 08 0A 00 97 35 33 32 |3....L..F....532|
00001240: 38 31 2C 31 3A 97 35 33 32 38 30 2C 31 3A 97 36 |81,1:.53280,1:.6|
00001250: 35 30 2C 30 3A 43 44 88 C0 FF D0 02 C6 FD B1 FC |50,0:CD.........|
00001260: 85 FF 88 C0 FF D0 02 C6 FD B1 FC C9 73 F0 2F 9D |............s./.|
00001270: C1 45 CA E0 FF D0 06 CE 6D 03 CE 8C 03 C6 FF D0 |.E......m.......|
00001280: EE 88 C0 FF D0 02 C6 FD B1 FC C9 73 F0 C9 9D C1 |...........s....|
00001290: 45 CA E0 FF D0 EB CE 6D 03 CE 8C 03 D0 E3 A2 1F |E......m........|
000012A0: BD 33 03 9D 00 08 CA D0 F7 A9 73 A9 37 85 01 58 |.3........s.7..X|
000012B0: 4C BC A8 43 C4 28 98 92 00 A5 2D 18 65 2E C9 D6 |L..C.(....-.e...|
000012C0: F0 06 4C 00 23 4C 80 46 AD 0B 08 18 6D 0C 08 6D |..L.#L.F....m..m|
000012D0: 0D 08 C9 EF F0 EF 4C 00 23 20 53 E4 4C 16 08 A2 |......L.# S.L...|
000012E0: 00 8E 20 D0 4C 00 23 C0 92 |.. .L.#.. |
ENTER DIRECTORY STYLE AND DEVICE":.1012
0..4N..".. 1] LIST ALL FILES":." 2] LIST
SEQ FILES ONLY.?4P.." 3] OUTPUT TO PRIN
TER":." 4] OUTPUT TO SCREEN.H4V.B.8:NC.4
:B$.CR$."1234":.10190:.10130..4...DL.0.A
.1:.10150:A.4:.10150:.3060.O4...(CH%(1).
CH%(2)..1).(CH%(3).CH%(4)..1).DL..2..H(C
D$,7):.3022..4...H(CD$,14):.CH%(3)..4,PD
,SA:.3070..4...4,3..5..NA$."$":.CH%(2).N
A$."$*=SEQ".A5...1,DD,0,NA$:.10210:.ER.0
.3085.Z5...A$."Y"..10260:.3080.D5...3140
.Y5...#1,A$,A$:.4,CR$..5...#1,A$,A$,A$,B
$:.ST.3140..5...4,F(A$.NL$).F(B$.NL$).25
6;.V5&..#1,A$:.A$.""..4,CR$;:.3090..50..
ST.3140..5:..4,A$;:.3110..6D..4,CR$: 1:
4:.10260:.130.+6... ** DELETE A FILE **.
Z6...".".10)"... DELETE ANY DISK FILE ":
.10200.I6...ER.0.3220..6...10220:.A$."Y"
.3210..6...1710..6...10280: 2:.ER.0.3225
..6...A$."N".3290..6...3220.W6...10380:.
A$."N".3290..7...".. DELETING FILE":.15,
"S:"S$:.10210..7...ER.1..10220:.A$."Y".3
220..7...ER.1.3290.M7...TE.0.."..* ERROR
* FILE NOT DELETED ":.10240:.A$."Y".322
0.|7F..TE.0.3290..7P.."..OK,"S$" HAS BEE
N DELETED"..7Z..10260:.130.J7... ** UNDE
LETE A FILE **..7...".".8)"... UNDELETE
A DELETED FILE ":.10200..8...ER.0.3320."
8...10220:.A$."Y".3310.,8...1710.J8...".
. LOOKING FOR DELETED FILES ...":T.18:S.
0:.2,DD,2,"#2"..8...15,"U1:2 0"T;S:.1021
0:.ER.0.3360..8.. 2:.A$."Y".3310..8...32
90..8 .DL.0:.15,"M-R"NL$G(5):.#15,A$:TT.
F(A$.NL$):.TT.0.TT.35.3470..9*..15,"M-R"
G(1)G(5):.#15,A$:SS.F(A$.NL$).A94..15,"U
1:2 0"TT;SS:.10210:.ER.0.3410.V9>..A$."N
". 2:.3290.`9H..3380..9R..P.0.255:.#2,A$
:Z%(P).F(A$.NL$):...9\..P.2.255.32:.Z%(P
).3460..9F..Z%(P.1).0.P.256:.:.3470..9P.
."..FOUND - "QO$;:.Z.P.3.P.18:.G(Z%(Z));
:.:.QO$.*:Z..15,"M-W"G(P)G(5)G(1)G(129):
.15,"U2:2 0"TT;SS:DL.1.H:...:TT.Z%(0):SS
.Z%(1):.3380.E:...".. NO ";:.DL.."MORE "
;..:..."DELETED FILES FOUND": 2:.DL..15,
"V"..:...3290..:... ** DEFINE FUNCTION K
EYS **..:...".".8)"... DEFINE 8 FUNCTION
KEYS ".';...".. CURRENT WORDS ARE :-.."
:.T.1.8:." [F"I(D(T),1)"] "FK$(T):..[;J.
.10260:."...":A$."ENTER OPTION REQUIRED"
:.10120..;T..".. 1] DEFINE FUNCTION KEY
[F1-8]":." 2] CLEAR ALL FUNCTION KEYS..;
..." 3] VIEW CURRENT FUNCTION KEY WORDS"
:." 4] RETURN TO MENU..<..B.6:NC.4:B$.CR
$."1234":.10190:.10130:.DL.0.A.1:.10150.
5<...H(CD$,12):.OP.4.3290.W<...OP.2.."..
. FUNCTION KEYS CLEARED .":.T.1.8:FK$(T)
."":.:.3530..<...OP.3.."...":.3520.L<...
".. HIT FUNCTION KEY TO BE DEFINED":B$."
........":.10090..<..B.F(A$).132:.B.5.DL
.B.2.1:.3610..<..DL.B.2.8.)=..."..ENTER
[F"I(D(DL),1)"] WORD";:.10020.C=$.FK$(DL
).S$:."... DEFINE ANY MORE KEYS (Y/N) ";
:.10180.T=...A$."Y".3600.~=8..3530..=B..
** RENAME DISK FILE **.J=L..".".10)"...
RENAME ANY DISK FILE ":.10200.Y=N..ER.0
.3670..=P..10220:.A$."Y".3660..=R..1710.
.>V..10280: 2:.ER.0.3695.%>`..A$."N".329
0./>J..3670.J>O..".ENTER .NEW. FILE NAME
";:.10020:.S$."".S$."C64 DATA".|>P..S$..
NA$.3700..>Q.."... FILE NAMES ARE THE SA
ME ":.10240:.A$."N".3290..>R..3670..>T..
".. RENAMING FILE":.15,"R:"S$"="NA$:.102
10:.ER.0.3290..?~..10220:.A$."Y".3670..?
...3290.6? .. ** RE-RUN PROGRAM **.N?...
".".10)". . RESET HIPERBASE ..":.10380:.
A$."Y"..:..~?...10260:.130..?.'...?.'. *
** SUBROUTINES ***..?.'.T.1.DL:.:..I?$'.
198,0:S$."":." - ..";..?.'.A$:A.F(A$.NL$
):.A.0.10030..?8'.A.13.." ":...@B'.A.20.
S$."".10030.:@L'.A.20.S$.H(S$,C(S$).1):.
A$"..";:.10030.`@Q'.A.132.A.141.A$.FK$(A
.132):.10080.U@V'.A.32.A.95.10030..@`'S$
.S$.A$:.A$"..";:.10030..@J'.198,0..@O'.A
$:.A$."".10095..@T'.T.1.C(B$):.A$.J(B$,T
,1).T.C(B$):.:...@~'.:.10090..A.'A.C(A$)
:.A$H(BS$,A.1)H(UL$,A):..(A.'DL.0:.T.1.N
C:CH%(T).0:..=A.'.10090:.A$.CR$..._A.'A.
E(A$):.10150:DL.DL.1:.10135..A.'.H(CD$,A
.B)">":.CH%(A).DL.DL.1..A.'CH%(A).1:OP.A
:..FA.'.H(CD$,B.NC.4)". ARE THESE CORREC
T (Y/N) ";..AD'B$."YN":.10090:.A$:...BN'
."..ENTER OPTION NUMBERS & RETURN TO FIN
ISH":..PBX'."..INSERT DATA DISK INTO DRI
VE,HIT A KEY":.10250:.15,"I".GB.'.15,ER,
ER$,TE,SE:...B.'."..* DISK ERROR * #"ER;
ER$;:.TE.." ON"TE;SE;..B.'.CR$;.IB.(."..
. TRY AGAIN (Y/N) ";:.10180:...B.(.198,0
:.198,1:.198,0:...C.(..5)"... PRESS ANY
KEY TO CONTINUE "..C.(.10250:..OC((.".EN
TER FILE NAME";:.10020:.S$."".S$."C64 DA
TA".~C2(NA$.S$:.2,DD,2,S$.",S,".TY$:.102
10:.ER.0....C<(.10220:...CF(.".ENTER CUR
RENT DATE";:.10020:ED$.S$:...CP(.2,QO$ED
$CO$ED$CO$PW$QO$CR$G(NF)QO$;:...DZ(.2,DA
$,UD$,PW$:.#2,A$:NF.F(A$):..FDD(.".ENTER
PASSWORD [RETURN IF NONE]";:.10020:A$."
":.S$.""...QDN(.T.1.C(S$):A$.A$.G(F(J(S$
,T,1)).T):.:...DX(.3,QO$DA$CO$ED$CO$PW$Q
O$CR$G(NF)QO$;:...D.(.T.1.NF:.3,DF$(T)CO
$;:.:...D.(."... ARE YOU SURE (Y/N) ";:.
10180:.."E.(."... ENTER RECORD #"NR".":.
T.1.NF:."ENTER "DF$(T);:.10020.JE (.T.1.
S$."XXX"..LF,S$QO$:T.NF:.: 2:...E.(TE$(T
).S$:.:."..ARE ALL FIELDS CORRECT (Y/N)
";:.10180..E.(.A$."N".10390..E.(.T.1.NF:
.LF,TE$(T)CO$;:.:NR.NR.1:....RSX.. .....
.. E.... ..{..E.3.JP.L..F....53281,1:.53
280,1:.650,0:CD...P.F........P.F...IS./.
AEJ..P.NM.N..F.P....P.F...IS.I.AEJ..P.NM
.N..P....3....JP..S.7..XL..CD(....-.E.IV
..L.#L.F....M..M..I...L.# S.L..... PL.#.
.
> CLICK IMAGE PREVIEW FOR FULL MODAL