00000000: 01 10 18 10 64 00 E7 30 2C 32 3A E7 34 2C 32 2C |....d..0,2:.4,2,|
00000010: 34 3A E7 31 2C 33 2C 31 00 22 10 65 00 D7 20 31 |4:.1,3,1.".e.. 1|
00000020: 30 33 00 2B 10 66 00 89 31 30 34 00 33 10 67 00 |03.+.f..104.3.g.|
00000030: D6 20 82 00 50 10 68 00 99 C7 28 33 31 29 3A 86 |. ..P.h...(31):.|
00000040: 41 24 28 32 30 30 2C 35 29 3A 99 C7 28 31 34 29 |A$(200,5):..(14)|
00000050: 00 6A 10 69 00 4C 50 24 B2 22 93 12 C4 C1 D4 C1 |.j.i.LP$."......|
00000060: 20 C9 CE D0 D5 D4 92 20 3A 22 00 94 10 6A 00 99 | ...... :"...j..|
00000070: 22 93 22 A3 37 29 22 AF AF AF AF AF AF AF AF AF |".".7)".........|
00000080: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000090: AF AF AF 22 00 BC 10 6B 00 99 A3 37 29 22 12 20 |..."...k...7)". |
000000A0: 20 20 20 20 C3 31 36 2F D0 CC D5 D3 34 20 D4 D5 | .16/....4 ..|
000000B0: D2 C2 CF C2 C1 D3 C5 20 20 20 20 22 00 E3 10 6C |....... "...l|
000000C0: 00 99 A3 37 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |...7)"..........|
000000D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000000E0: B7 B7 22 00 10 11 6D 00 99 22 13 11 11 11 11 11 |.."...m.."......|
000000F0: 20 20 20 20 20 20 20 20 20 20 20 C4 49 53 4B 20 | .ISK |
00000100: 4F 52 20 D4 41 50 45 20 3F 20 28 C4 2F D4 29 22 |OR .APE ? (./.)"|
00000110: 00 18 11 6E 00 A1 41 24 00 2E 11 6F 00 8B 41 24 |...n..A$...o..A$|
00000120: B2 22 44 22 A7 44 4E B2 38 3A 89 31 31 34 00 44 |."D".DN.8:.114.D|
00000130: 11 70 00 8B 41 24 B2 22 54 22 A7 44 4E B2 31 3A |.p..A$."T".DN.1:|
00000140: 89 31 31 34 00 4D 11 71 00 89 31 31 30 00 62 11 |.114.M.q..110.b.|
00000150: 72 00 99 22 11 11 20 20 20 20 20 20 20 CD C5 CE |r..".. ...|
00000160: D5 22 00 84 11 73 00 99 22 11 20 20 20 20 20 20 |."...s..". |
00000170: 20 31 2E 20 C3 52 45 41 54 45 20 4E 45 57 20 46 | 1. .REATE NEW F|
00000180: 49 4C 45 22 00 A0 11 74 00 99 22 11 20 20 20 20 |ILE"...t..". |
00000190: 20 20 20 32 2E 20 CC 4F 41 44 20 46 49 4C 45 22 | 2. .OAD FILE"|
000001A0: 00 B9 11 75 00 99 22 20 20 20 20 20 20 20 11 12 |...u.." ..|
000001B0: D7 48 49 43 48 20 3F 20 22 00 CE 11 76 00 A1 5A |.HICH ? "...v..Z|
000001C0: 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 31 38 00 E8 |Z$:.ZZ$."".118..|
000001D0: 11 77 00 41 B2 C5 28 5A 5A 24 29 3A 8B 41 B3 31 |.w.A..(ZZ$):.A.1|
000001E0: B0 41 B1 32 A7 31 31 38 00 F5 11 78 00 8B 41 B2 |.A.2.118...x..A.|
000001F0: 31 A7 31 33 34 00 0A 12 79 00 85 22 93 C6 49 4C |1.134...y.."..IL|
00000200: 45 4E 41 4D 45 20 22 3B 42 24 00 2F 12 7A 00 9F |ENAME ";B$./.z..|
00000210: 31 2C 44 4E 2C 30 2C 42 24 3A 99 22 11 CC 4F 41 |1,DN,0,B$:."..OA|
00000220: 44 49 4E 47 20 C6 49 4C 45 20 3A 20 22 42 24 00 |DING .ILE : "B$.|
00000230: 38 12 7B 00 84 31 2C 4E 00 41 12 7C 00 84 31 2C |8.{..1,N.A.|..1,|
00000240: 4D 00 4C 12 7D 00 81 58 B2 30 A4 4E 00 57 12 7E |M.L.}..X.0.N.W.~|
00000250: 00 81 59 B2 30 A4 4D 00 61 12 7F 00 84 31 2C 43 |..Y.0.M.a....1,C|
00000260: 24 00 70 12 80 00 41 24 28 58 2C 59 29 B2 43 24 |$.p...A$(X,Y).C$|
00000270: 00 81 12 81 00 8B 28 53 54 29 AF 36 34 A7 31 33 |......(ST).64.13|
00000280: 32 00 A3 12 82 00 8B 28 53 54 29 AF 31 36 A7 99 |2......(ST).16..|
00000290: 22 93 12 D2 C5 C1 C4 A0 C5 D2 D2 CF D2 22 3A 89 |"............":.|
000002A0: 31 35 33 00 AC 12 83 00 82 59 2C 58 00 B3 12 84 |153......Y,X....|
000002B0: 00 A0 31 00 BC 12 85 00 89 31 35 33 00 C4 12 86 |..1......153....|
000002C0: 00 58 B2 30 00 ED 12 87 00 99 22 93 12 C3 52 45 |.X.0......"...RE|
000002D0: 41 54 45 20 4E 45 57 20 46 49 4C 45 20 3A 20 D2 |ATE NEW FILE : .|
000002E0: 45 43 4F 52 44 2D 4C 41 59 4F 55 54 22 00 17 13 |ECORD-LAYOUT"...|
000002F0: 88 00 99 22 11 36 20 46 49 45 4C 44 53 20 41 52 |...".6 FIELDS AR|
00000300: 45 20 41 56 41 49 4C 41 42 4C 45 20 50 45 52 20 |E AVAILABLE PER |
00000310: 52 45 43 4F 52 44 22 00 55 13 89 00 99 22 11 D4 |RECORD".U...."..|
00000320: 59 50 45 20 2A 20 54 4F 20 43 4F 52 52 45 43 54 |YPE * TO CORRECT|
00000330: 20 26 20 27 53 54 4F 50 27 20 57 48 45 4E 20 59 | & 'STOP' WHEN Y|
00000340: 4F 55 22 3A 99 22 11 41 52 45 20 52 45 41 44 59 |OU":.".ARE READY|
00000350: 22 3A 99 3A 99 00 60 13 8A 00 81 59 B2 30 A4 35 |":.:..`....Y.0.5|
00000360: 00 87 13 8B 00 99 22 C6 49 45 4C 44 20 23 20 22 |......".IELD # "|
00000370: 3B 59 AA 31 3B 3A 85 41 24 28 58 2C 59 29 3A 8B |;Y.1;:.A$(X,Y):.|
00000380: 59 B2 30 A7 31 34 31 00 AA 13 8C 00 8B 41 24 28 |Y.0.141......A$(|
00000390: 58 2C 59 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A 99 |X,Y)."*".Y.Y.1:.|
000003A0: 22 91 91 22 3B 3A 89 31 33 39 00 C9 13 8D 00 8B |"..";:.139......|
000003B0: 41 24 28 58 2C 59 29 B2 22 53 54 4F 50 22 A7 59 |A$(X,Y)."STOP".Y|
000003C0: B2 59 AB 31 3A 89 31 34 34 00 E8 13 8E 00 41 24 |.Y.1:.144.....A$|
000003D0: 28 58 2C 59 29 B2 C4 28 59 AA 31 29 AA 22 20 22 |(X,Y)..(Y.1)." "|
000003E0: AA 41 24 28 58 2C 59 29 00 F5 13 8F 00 82 59 3A |.A$(X,Y)......Y:|
000003F0: 59 B2 59 AB 31 00 00 14 90 00 8B 59 B3 30 A7 8A |Y.Y.1......Y.0..|
00000400: 00 08 14 91 00 4D B2 59 00 2B 14 92 00 99 22 93 |.....M.Y.+....".|
00000410: 12 D4 48 49 53 20 49 53 20 59 4F 55 20 53 45 4C |..HIS IS YOU SEL|
00000420: 45 43 54 49 4F 4E 22 3A 99 3A 99 00 36 14 93 00 |ECTION":.:..6...|
00000430: 81 59 B2 30 A4 4D 00 46 14 94 00 99 41 24 28 58 |.Y.0.M.F....A$(X|
00000440: 2C 59 29 3A 82 59 00 5C 14 95 00 99 22 11 12 C7 |,Y):.Y.\...."...|
00000450: 4F 4F 44 20 28 59 2F 4E 29 20 3F 22 00 71 14 96 |OOD (Y/N) ?".q..|
00000460: 00 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 35 |..ZZ$:.ZZ$."".15|
00000470: 30 00 AA 14 97 00 8B 5A 5A 24 B2 22 4E 22 A7 99 |0......ZZ$."N"..|
00000480: 22 11 11 12 D4 48 45 4E 20 53 54 41 52 54 20 41 |"....HEN START A|
00000490: 47 41 49 4E 2E 2E 2E 22 3A 81 59 B2 30 A4 32 30 |GAIN...":.Y.0.20|
000004A0: 30 30 3A 82 59 3A 89 31 33 34 00 BC 14 98 00 8B |00:.Y:.134......|
000004B0: 5A 5A 24 B3 B1 22 59 22 A7 31 35 30 00 DF 14 99 |ZZ$.."Y".150....|
000004C0: 00 85 22 11 12 D3 C5 CC C5 C3 D4 C9 CF CE 92 1D |..".............|
000004D0: 1D C8 20 20 20 9D 9D 9D 9D 9D 9D 22 3B 41 24 00 |.. ......";A$.|
000004E0: EF 14 9A 00 8B 41 24 B2 22 31 22 A7 31 36 37 00 |.....A$."1".167.|
000004F0: FF 14 9B 00 8B 41 24 B2 22 32 22 A7 31 38 33 00 |.....A$."2".183.|
00000500: 0F 15 9C 00 8B 41 24 B2 22 34 22 A7 32 31 31 00 |.....A$."4".211.|
00000510: 1F 15 9D 00 8B 41 24 B2 22 35 22 A7 32 33 34 00 |.....A$."5".234.|
00000520: 2F 15 9E 00 8B 41 24 B2 22 C8 22 A7 32 34 37 00 |/....A$.".".247.|
00000530: 45 15 9F 00 8B 41 24 B2 22 C5 22 A7 99 22 93 22 |E....A$.".".."."|
00000540: 3A 89 33 36 36 00 55 15 A0 00 8B 41 24 B2 22 33 |:.366.U....A$."3|
00000550: 22 A7 32 36 30 00 65 15 A1 00 8B 41 24 B2 22 37 |".260.e....A$."7|
00000560: 22 A7 32 36 37 00 75 15 A2 00 8B 41 24 B2 22 39 |".267.u....A$."9|
00000570: 22 A7 32 37 35 00 85 15 A3 00 8B 41 24 B2 22 38 |".275......A$."8|
00000580: 22 A7 32 39 33 00 95 15 A4 00 8B 41 24 B2 22 36 |".293......A$."6|
00000590: 22 A7 33 31 31 00 B0 15 A5 00 99 22 12 11 C3 CF |".311......"....|
000005A0: CD CD C1 CE C4 A0 CE CF D4 A0 CB CE CF D7 CE 22 |..............."|
000005B0: 00 B9 15 A6 00 89 31 35 33 00 C4 15 A7 00 99 4C |......153......L|
000005C0: 50 24 3A 99 00 D8 15 A8 00 8B 41 24 28 31 2C 30 |P$:.......A$(1,0|
000005D0: 29 B2 22 22 A7 31 37 30 00 00 16 A9 00 99 22 11 |)."".170......".|
000005E0: 11 12 20 C4 41 54 41 20 41 4C 52 45 41 44 59 20 |.. .ATA ALREADY |
000005F0: 50 52 45 53 45 4E 54 21 21 20 22 3A 89 31 35 33 |PRESENT!! ":.153|
00000600: 00 0D 16 AA 00 81 58 B2 31 A4 32 30 30 00 28 16 |......X.1.200.(.|
00000610: AB 00 99 22 11 D2 45 43 4F 52 44 20 4E 52 2E 28 |..."..ECORD NR.(|
00000620: 22 3B 58 3B 22 29 11 22 00 33 16 AC 00 81 59 B2 |";X;").".3....Y.|
00000630: 30 A4 4D 00 45 16 AD 00 4E 4C B2 C3 28 41 24 28 |0.M.E...NL..(A$(|
00000640: 30 2C 59 29 29 00 64 16 AE 00 99 41 24 28 30 2C |0,Y)).d....A$(0,|
00000650: 59 29 A3 31 35 29 22 3A 20 22 3B 3A 85 41 24 28 |Y).15)": ";:.A$(|
00000660: 58 2C 59 29 00 87 16 AF 00 8B 41 24 28 58 2C 59 |X,Y)......A$(X,Y|
00000670: 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A 99 22 91 91 |)."*".Y.Y.1:."..|
00000680: 22 3B 3A 89 31 37 34 00 9F 16 B0 00 8B 41 24 28 |";:.174......A$(|
00000690: 58 2C 59 29 B2 22 53 54 4F 50 22 A7 31 38 30 00 |X,Y)."STOP".180.|
000006A0: A6 16 B1 00 82 59 00 C1 16 B2 00 8B 58 AD 32 B2 |.....Y......X.2.|
000006B0: B5 28 58 AD 32 29 A7 99 4C 50 24 3A 99 22 11 11 |.(X.2)..LP$:."..|
000006C0: 22 00 C8 16 B3 00 82 58 00 D2 16 B4 00 4E B2 58 |"......X.....N.X|
000006D0: AB 31 00 EF 16 B5 00 99 22 11 22 3B 4E 3B 22 D2 |.1......".";N;".|
000006E0: C5 C3 CF D2 C4 D3 20 D0 D2 C5 D3 C5 CE D4 22 00 |...... .......".|
000006F0: F8 16 B6 00 89 31 35 33 00 14 17 B7 00 99 22 93 |.....153......".|
00000700: 12 D3 C8 CF D7 A0 C6 C9 CC C5 A0 C3 CF CE D4 C5 |................|
00000710: CE D4 D3 22 00 3B 17 B8 00 99 22 11 11 CC 49 53 |...".;...."...IS|
00000720: 54 20 4F 4E 20 D0 52 49 4E 54 45 52 20 4F 52 20 |T ON .RINTER OR |
00000730: 4F 4E 20 D3 43 52 45 45 4E 3F 22 00 50 17 B9 00 |ON .CREEN?".P...|
00000740: 99 22 11 31 20 3D 20 D0 52 49 4E 54 45 52 2E 22 |.".1 = .RINTER."|
00000750: 00 64 17 BA 00 99 22 11 32 20 3D 20 D3 43 52 45 |.d....".2 = .CRE|
00000760: 45 4E 2E 22 00 7A 17 BB 00 A1 20 5A 5A 24 3A 8B |EN.".z.... ZZ$:.|
00000770: 5A 5A 24 B2 22 22 A7 31 38 37 00 96 17 BC 00 8B |ZZ$."".187......|
00000780: 5A 5A 24 B2 22 31 22 A7 51 4D B2 31 3A A0 31 3A |ZZ$."1".QM.1:.1:|
00000790: 9F 31 2C 34 2C 37 00 C2 17 BD 00 99 22 11 11 D7 |.1,4,7......"...|
000007A0: 48 49 43 48 20 52 45 43 4F 52 44 28 53 29 20 44 |HICH RECORD(S) D|
000007B0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 45 |O YOU WANT TO SE|
000007C0: 45 22 00 EA 17 BE 00 99 22 11 11 31 2E 20 C1 4C |E"......"..1. .L|
000007D0: 4C 22 3A 99 22 11 32 2E 20 CF 4E 45 22 3A 99 22 |L":.".2. .NE":."|
000007E0: 11 33 2E 20 D2 41 4E 47 45 22 00 FA 17 BF 00 99 |.3. .ANGE"......|
000007F0: 22 11 D7 48 49 43 48 20 3F 22 00 0F 18 C0 00 A1 |"..HICH ?"......|
00000800: 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 39 32 00 |ZZ$:.ZZ$."".192.|
00000810: 2D 18 C1 00 41 B2 C5 28 5A 5A 24 29 3A 8B |-...A..(ZZ$):. |
....D..0,2:.4,2,4:.1,3,1.".E.W 103.+.F..
104.3.G.V ..P.H..G(31):.A$(200,5):.G(14)
.J.I.LP$."..DATA INPUT. :"...J..".".7)".
..........................."...K...7)".
C16/PLUS4 TURBOBASE "...L...7)"..
.........................."...M.."......
DISK OR TAPE ? (D/T)"...N..A$
...O..A$."D".DN.8:.114.D.P..A$."T".DN.1:
.114.M.Q..110.B.R..".. MENU"...S..
". 1. CREATE NEW FILE". .T..".
2. LOAD FILE"...U.." ..WHICH ?
".N.V..ZZ$:.ZZ$."".118...W.A.E(ZZ$):.A.1
.A.2.118...X..A.1.134...Y..".FILENAME ";
B$./.Z..1,DN,0,B$:.".LOADING FILE : "B$.
8.{..1,N.A.|..1,M.L.}..X.0.N.W.~..Y.0.M.
A...1,C$.P...A$(X,Y).C$......(ST).64.13
2......(ST).16.."..READ ERROR":.153.....
.Y,X..... 1......153.D...X.0......"..CRE
ATE NEW FILE : RECORD-LAYOUT"......".6 F
IELDS ARE AVAILABLE PER RECORD".U....".T
YPE * TO CORRECT & 'STOP' WHEN YOU":.".A
RE READY":.:..`....Y.0.5......"FIELD # "
;Y.1;:.A$(X,Y):.Y.0.141......A$(X,Y)."*"
.Y.Y.1:."..";:.139.I....A$(X,Y)."STOP".Y
.Y.1:.144.....A$(X,Y).D(Y.1)." ".A$(X,Y)
......Y:Y.Y.1......Y.0.......M.Y.+....".
.THIS IS YOU SELECTION":.:..6....Y.0.M.F
....A$(X,Y):.Y.\...."..GOOD (Y/N) ?".Q..
..ZZ$:.ZZ$."".150......ZZ$."N".."...THEN
START AGAIN...":.Y.0.2000:.Y:.134......
ZZ$.."Y".150......"..SELECTION...H ...
...";A$......A$."1".167......A$."2".183.
.....A$."4".211......A$."5".234./....A$.
"H".247.E....A$."E"..".":.366.U. ..A$."3
".260.E....A$."7".267.U....A$."9".275...
...A$."8".293......A$."6".311......"..CO
MMAND NOT KNOWN"......153.D....LP$:..X..
..A$(1,0)."".170......"... DATA ALREADY
PRESENT!! ":.153......X.1.200.(....".REC
ORD NR.(";X;").".3....Y.0.M.E...NL.C(A$(
0,Y)).D....A$(0,Y).15)": ";:.A$(X,Y)....
..A$(X,Y)."*".Y.Y.1:."..";:.174......A$(
X,Y)."STOP".180......Y.A....X.2..(X.2)..
LP$:."..".H....X.R...N.X.1......".";N;"R
ECORDS PRESENT"......153......"..SHOW FI
LE CONTENTS".;...."..LIST ON PRINTER OR
ON SCREEN?".P....".1 = PRINTER.".D....".
2 = SCREEN.".Z.... ZZ$:.ZZ$."".187......
ZZ$."1".QM.1: 1:.1,4,7.B...."..WHICH REC
ORD(S) DO YOU WANT TO SEE"......"..1. AL
L":.".2. ONE":.".3. RANGE"......".WHICH
?"......ZZ$:.ZZ$."".192.-.A.A.E(ZZ$):.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL