00000000: 39 30 3A 8F 20 53 54 4F 50 20 49 4E 56 4F 45 52 |90:. STOP INVOER|
00000010: 00 24 15 B8 01 44 24 28 54 45 29 B2 41 24 3A 99 |.$...D$(TE).A$:.|
00000020: 44 24 28 54 45 29 3B 3A 54 45 B2 54 45 AA 31 00 |D$(TE);:TE.TE.1.|
00000030: 34 15 E0 01 8B 54 45 B3 35 30 30 A7 34 30 30 00 |4....TE.500.400.|
00000040: 68 15 EA 01 99 C7 28 31 34 37 29 3A 99 22 55 20 |h.....(147):."U |
00000050: 42 45 4E 54 20 47 45 53 54 4F 50 54 20 4D 45 54 |BENT GESTOPT MET|
00000060: 20 49 4E 54 59 50 45 4E 22 3A 81 49 B2 31 A4 31 | INTYPEN":.I.1.1|
00000070: 30 30 30 00 6E 15 F4 01 82 00 74 15 FE 01 99 00 |000.n.....t.....|
00000080: B0 15 08 02 99 22 48 45 45 46 54 20 55 20 45 45 |....."HEEFT U EE|
00000090: 4E 20 44 49 53 4B 44 52 49 56 45 20 4F 46 20 43 |N DISKDRIVE OF C|
000000A0: 41 53 53 45 54 54 45 20 52 45 43 4F 52 44 45 52 |ASSETTE RECORDER|
000000B0: A0 28 44 2F 43 29 22 3A 85 57 24 00 C2 15 12 02 |.(D/C)":.W$.....|
000000C0: 8B 57 24 B2 22 44 22 A7 20 89 35 37 30 00 D5 15 |.W$."D". .570...|
000000D0: 1C 02 8B 57 24 B2 22 43 22 A7 20 89 31 30 38 30 |...W$."C". .1080|
000000E0: 00 DE 15 26 02 89 35 31 30 00 F0 15 30 02 99 C7 |...&..510...0...|
000000F0: 28 31 34 37 29 3A 99 3A 99 3A 99 00 24 16 3A 02 |(147):.:.:..$.:.|
00000100: 85 22 55 20 48 45 45 46 54 20 45 45 4E 20 53 43 |."U HEEFT EEN SC|
00000110: 48 49 4A 46 20 49 4E 20 44 45 20 44 49 53 4B 44 |HIJF IN DE DISKD|
00000120: 52 49 56 45 20 28 4A 2F 4E 29 22 3B 52 45 24 00 |RIVE (J/N)";RE$.|
00000130: 55 16 44 02 8B 52 45 24 B2 22 4E 22 A7 99 3A 99 |U.D..RE$."N"..:.|
00000140: 22 4E 41 41 52 20 48 4F 4F 46 44 4D 45 4E 55 22 |"NAAR HOOFDMENU"|
00000150: 3A 81 41 B2 31 A4 35 30 30 3A 82 3A 89 31 37 30 |:.A.1.500:.:.170|
00000160: 00 66 16 4E 02 8B 52 45 24 B2 22 4A 22 A7 36 31 |.f.N..RE$."J".61|
00000170: 30 00 6F 16 58 02 89 35 37 30 00 81 16 62 02 99 |0.o.X..570...b..|
00000180: C7 28 31 34 37 29 3A 99 3A 99 3A 99 00 A0 16 6C |.(147):.:.:....l|
00000190: 02 9F 38 2C 38 2C 32 2C 54 24 AA 22 46 49 4C 45 |..8,8,2,T$."FILE|
000001A0: 2C 53 45 51 2C 57 52 49 54 45 22 00 AC 16 76 02 |,SEQ,WRITE"...v.|
000001B0: 81 49 B2 4F A4 54 45 00 BB 16 8A 02 99 3A 38 2C |.I.O.TE......:8,|
000001C0: 44 24 28 49 29 3B 00 C1 16 9E 02 82 00 C8 16 A8 |D$(I);..........|
000001D0: 02 A0 38 00 F4 16 B2 02 99 3A 99 3A 99 22 44 52 |..8......:.:."DR|
000001E0: 55 4B 54 20 55 20 45 45 4E 20 54 4F 45 54 53 20 |UKT U EEN TOETS |
000001F0: 56 4F 4F 52 20 48 4F 4F 46 44 4D 45 4E 55 22 00 |VOOR HOOFDMENU".|
00000200: 07 17 BC 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |.....A$:.A$."".7|
00000210: 30 30 00 1C 17 C6 02 89 31 35 30 3A 8F 20 48 4F |00......150:. HO|
00000220: 4F 46 44 4D 45 4E 55 00 2A 17 D0 02 99 C7 28 31 |OFDMENU.*.....(1|
00000230: 34 37 29 3A 99 00 69 17 DA 02 99 22 48 45 45 46 |47):..i...."HEEF|
00000240: 54 20 55 20 45 45 4E 20 44 49 53 4B 44 52 49 56 |T U EEN DISKDRIV|
00000250: 45 20 4F 46 20 45 45 4E 20 43 41 53 53 45 54 54 |E OF EEN CASSETT|
00000260: 45 20 52 45 43 4F 52 44 45 20 28 44 2F 43 29 22 |E RECORDE (D/C)"|
00000270: 3A 85 57 24 00 79 17 E4 02 8B 57 24 B2 22 44 22 |:.W$.y....W$."D"|
00000280: A7 37 37 30 00 8A 17 EE 02 8B 57 24 B2 22 43 22 |.770......W$."C"|
00000290: A7 31 31 36 30 00 93 17 F8 02 89 37 32 30 00 B6 |.1160......720..|
000002A0: 17 02 03 85 22 57 45 4C 4B 45 20 42 45 53 54 41 |...."WELKE BESTA|
000002B0: 4E 44 53 4E 41 41 4D 20 4C 45 5A 45 4E 22 3B 54 |NDSNAAM LEZEN";T|
000002C0: 24 00 C2 17 0C 03 99 3A 99 3A 99 3A 99 00 EF 17 |$......:.:.:....|
000002D0: 11 03 99 22 50 52 49 4E 54 45 52 20 41 41 4E 5A |..."PRINTER AANZ|
000002E0: 45 54 54 45 4E 28 49 4E 44 49 45 4E 20 4E 4F 44 |ETTEN(INDIEN NOD|
000002F0: 49 47 29 32 3A 50 52 49 4E 54 00 17 18 16 03 99 |IG)2:PRINT......|
00000300: 22 44 4F 45 20 44 45 20 44 41 54 41 2D 44 49 53 |"DOE DE DATA-DIS|
00000310: 4B 45 54 54 45 20 49 4E 20 55 57 20 44 52 49 56 |KETTE IN UW DRIV|
00000320: 45 22 00 46 18 20 03 99 3A 99 22 44 52 55 4B 54 |E".F. ..:."DRUKT|
00000330: 20 55 20 4F 50 20 45 45 4E 20 54 4F 45 54 53 20 | U OP EEN TOETS |
00000340: 41 4C 53 20 55 20 4B 4C 41 41 52 20 42 45 4E 54 |ALS U KLAAR BENT|
00000350: 22 00 59 18 2A 03 A1 41 24 3A 8B 41 24 B2 22 22 |".Y.*..A$:.A$.""|
00000360: A7 38 31 30 00 65 18 34 03 99 C7 28 31 34 37 29 |.810.e.4...(147)|
00000370: 00 83 18 3E 03 9F 38 2C 38 2C 32 2C 54 24 AA 22 |...>..8,8,2,T$."|
00000380: 46 49 4C 45 2C 53 45 51 2C 52 45 41 44 22 00 96 |FILE,SEQ,READ"..|
00000390: 18 48 03 9F 34 2C 34 3A 54 45 B2 30 3A 53 31 B2 |.H..4,4:TE.0:S1.|
000003A0: 30 00 AF 18 5C 03 A1 3A 38 2C 44 24 28 54 45 29 |0...\..:8,D$(TE)|
000003B0: 3A 8B 53 54 B3 B1 30 A7 53 31 00 BC 18 66 03 99 |:.ST..0.S1...f..|
000003C0: 44 24 28 54 45 29 3B 00 D4 18 6B 03 99 3A 34 2C |D$(TE);...k..:4,|
000003D0: 44 24 28 54 45 29 3B 3A 54 45 B2 54 45 AA 31 00 |D$(TE);:TE.TE.1.|
000003E0: E2 18 70 03 8B 53 31 B2 31 A7 39 31 30 00 EB 18 |..p..S1.1.910...|
000003F0: 7A 03 89 38 36 30 00 F1 18 84 03 82 00 FB 18 8E |z..860..........|
00000400: 03 A0 38 3A A0 34 00 12 19 98 03 99 C7 28 31 34 |..8:.4.......(14|
00000410: 37 29 3A 99 3A 99 3A 99 3A 89 31 37 30 00 25 19 |7):.:.:.:.170.%.|
00000420: A2 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 33 30 |...A$:.A$."".930|
00000430: 00 2B 19 AC 03 8E 00 3D 19 B6 03 99 C7 28 31 34 |.+.....=.....(14|
00000440: 37 29 3A 99 3A 99 3A 99 00 5D 19 C0 03 99 22 57 |7):.:.:..]...."W|
00000450: 49 4C 54 20 55 20 57 45 52 4B 45 4C 49 4A 4B 20 |ILT U WERKELIJK |
00000460: 53 54 4F 50 50 45 4E 22 00 70 19 CA 03 A1 41 24 |STOPPEN".p....A$|
00000470: 3A 8B 41 24 B2 22 22 A7 39 37 30 00 86 19 D4 03 |:.A$."".970.....|
00000480: 8B 41 24 B2 22 4A 22 A7 99 C7 28 31 34 37 29 3A |.A$."J"...(147):|
00000490: A2 00 8F 19 DE 03 89 31 37 30 00 AB 19 38 04 8F |.......170...8..|
000004A0: 20 44 41 54 41 20 55 49 54 56 4F 45 52 20 43 41 | DATA UITVOER CA|
000004B0: 53 53 45 54 54 45 00 E5 19 42 04 99 C7 28 31 34 |SSETTE...B...(14|
000004C0: 37 29 3A 99 22 4C 45 47 20 45 45 4E 20 4C 45 45 |7):."LEG EEN LEE|
000004D0: 47 20 43 41 53 53 45 54 54 45 42 41 4E 44 4A 45 |G CASSETTEBANDJE|
000004E0: 20 49 4E 20 55 57 20 52 45 43 4F 52 44 45 52 22 | IN UW RECORDER"|
000004F0: 00 04 1A 4C 04 9F 38 2C 31 2C 31 2C 54 24 AA 22 |...L..8,1,1,T$."|
00000500: 46 49 4C 45 2C 53 45 51 2C 57 52 49 54 45 22 00 |FILE,SEQ,WRITE".|
00000510: 0D 1A 56 04 89 36 33 30 00 28 1A 74 04 8F 20 44 |..V..630.(.t.. D|
00000520: 41 54 41 20 49 4E 56 4F 45 52 20 43 41 53 53 45 |ATA INVOER CASSE|
00000530: 54 54 45 00 5F 1A 7E 04 99 C7 28 31 34 37 29 3A |TTE._.~...(147):|
00000540: 99 22 4C 45 47 20 55 57 20 44 41 54 41 42 45 53 |."LEG UW DATABES|
00000550: 54 41 4E 44 42 41 4E 44 4A 45 20 49 4E 20 55 57 |TANDBANDJE IN UW|
00000560: 20 52 45 43 4F 52 44 45 52 22 00 7D 1A 88 04 9F | RECORDER".}....|
00000570: 38 2C 31 2C 30 2C 54 24 AA 22 46 49 4C 45 2C 53 |8,1,0,T$."FILE,S|
00000580: 45 51 2C 52 45 41 44 22 00 86 1A 92 04 89 38 34 |EQ,READ"......84|
00000590: 30 00 B8 1A DC 05 8F 20 44 45 20 54 45 4B 53 54 |0...... DE TEKST|
000005A0: 46 49 4C 45 53 20 4B 55 4E 4E 45 4E 20 4F 4F 4B |FILES KUNNEN OOK|
000005B0: 20 47 54 4F 54 45 52 20 57 4F 52 44 45 4E 20 44 | GTOTER WORDEN D|
000005C0: 4F 4F 52 00 EE 1A E6 05 8F 20 49 4E 20 52 45 47 |OOR...... IN REG|
000005D0: 45 4C 20 34 38 30 20 44 45 20 57 41 41 52 44 45 |EL 480 DE WAARDE|
000005E0: 20 56 41 4E 20 49 46 54 45 3C 35 30 30 20 54 45 | VAN IFTE<500 TE|
000005F0: 20 57 49 4A 5A 49 47 45 4E 00 3A 1B F0 05 8F 20 | WIJZIGEN.:.... |
00000600: 44 45 5A 45 20 57 41 41 52 44 45 20 4B 4F 4D 54 |DEZE WAARDE KOMT|
00000610: 20 4F 56 45 52 45 45 4E 20 4D 45 54 20 44 45 20 | OVEREEN MET DE |
00000620: 4D 41 58 49 4D 41 4C 45 20 47 52 4F 4F 54 54 45 |MAXIMALE GROOTTE|
00000630: 20 56 41 4E 20 48 45 54 20 54 45 4B 53 54 42 45 | VAN HET TEKSTBE|
00000640: 53 54 41 4E 44 00 00 00 EA |STAND.... |
90:. STOP INVOER.$...D$(TE).A$:.D$(TE);:
TE.TE.1.4....TE.500.400.H....G(147):."U
BENT GESTOPT MET INTYPEN":.I.1.1000.N...
..T.........."HEEFT U EEN DISKDRIVE OF C
ASSETTE RECORDER (D/C)":.W$.B....W$."D".
.570.U....W$."C". .1080...&..510...0..G
(147):.:.:..$.:.."U HEEFT EEN SCHIJF IN
DE DISKDRIVE (J/N)";RE$.U.D..RE$."N"..:.
"NAAR HOOFDMENU":.A.1.500:.:.170.F.N..RE
$."J".610.O.X..570...B..G(147):.:.:.. .L
..8,8,2,T$."FILE,SEQ,WRITE"...V..I.O.TE.
.....:8,D$(I);.A.....H... 8......:.:."DR
UKT U EEN TOETS VOOR HOOFDMENU"......A$:
.A$."".700...F..150:. HOOFDMENU.*.P..G(1
47):..I.Z.."HEEFT U EEN DISKDRIVE OF EEN
CASSETTE RECORDE (D/C)":.W$.Y....W$."D"
.770......W$."C".1160......720......"WEL
KE BESTANDSNAAM LEZEN";T$.B....:.:.:....
..."PRINTER AANZETTEN(INDIEN NODIG)2:PRI
NT......"DOE DE DATA-DISKETTE IN UW DRIV
E".F. ..:."DRUKT U OP EEN TOETS ALS U KL
AAR BENT".Y.*..A$:.A$."".810.E.4..G(147)
...>..8,8,2,T$."FILE,SEQ,READ"...H..4,4:
TE.0:S1.0...\..:8,D$(TE):.ST..0.S1...F..
D$(TE);.T.K..:4,D$(TE);:TE.TE.1...P..S1.
1.910...Z..860........... 8: 4......G(14
7):.:.:.:.170.%....A$:.A$."".930.+.....=
....G(147):.:.:..]...."WILT U WERKELIJK
STOPPEN".P.J..A$:.A$."".970...T..A$."J".
.G(147):.......170...8.. DATA UITVOER CA
SSETTE...B..G(147):."LEG EEN LEEG CASSET
TEBANDJE IN UW RECORDER"...L..8,1,1,T$."
FILE,SEQ,WRITE"...V..630.(.T.. DATA INVO
ER CASSETTE._.~..G(147):."LEG UW DATABES
TANDBANDJE IN UW RECORDER".}....8,1,0,T$
."FILE,SEQ,READ"......840...... DE TEKST
FILES KUNNEN OOK GTOTER WORDEN DOOR.....
. IN REGEL 480 DE WAARDE VAN IFTE<500 TE
WIJZIGEN.:.... DEZE WAARDE KOMT OVEREEN
MET DE MAXIMALE GROOTTE VAN HET TEKSTBE
STAND....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL