> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 64 00 86 46 58 24 28 32 35 36 29 2C |..H.d..FX$(256),|
00000010: 46 54 24 28 32 35 36 29 2C 46 4C 28 32 35 36 29 |FT$(256),FL(256)|
00000020: 2C 54 54 28 32 35 36 29 3A 4E B2 AB 31 3A 81 49 |,TT(256):N..1:.I|
00000030: B2 31 A4 32 35 36 3A 46 58 24 28 49 29 B2 22 22 |.1.256:FX$(I).""|
00000040: 3A 82 3A 58 B2 32 32 31 00 6A 08 6E 00 42 4C 24 |:.:X.221.j.n.BL$|
00000050: B2 22 20 22 3A 81 49 B2 31 A4 34 30 3A 42 4C 24 |." ":.I.1.40:BL$|
00000060: B2 42 4C 24 AA 22 A0 22 3A 82 00 96 08 78 00 A0 |.BL$.".":....x..|
00000070: 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 |15:.15,8,15:.1,8|
00000080: 2C 30 2C 22 24 30 22 3A 8D 34 38 30 3A A1 23 31 |,0,"$0":.480:.#1|
00000090: 2C 41 24 2C 42 24 00 B8 08 82 00 57 B2 35 31 3A |,A$,B$.....W.51:|
000000A0: 4C 24 B2 22 22 3A 85 22 4C 41 42 45 4C 20 53 54 |L$."":."LABEL ST|
000000B0: 52 49 4E 47 22 3B 4C 24 00 F8 08 87 00 8B C3 28 |RING";L$.......(|
000000C0: 4C 24 29 B1 32 32 A7 99 22 4C 41 42 45 4C 20 53 |L$).22.."LABEL S|
000000D0: 54 52 49 4E 47 20 54 45 20 4C 41 4E 47 2D 4D 41 |TRING TE LANG-MA|
000000E0: 58 20 49 53 20 32 32 20 4B 41 52 41 4B 54 45 52 |X IS 22 KARAKTER|
000000F0: 53 2E 22 3A 89 31 33 30 00 24 09 8C 00 A1 23 31 |S.":.130.$....#1|
00000100: 2C 41 24 2C 42 24 3A A1 23 31 2C 41 24 2C 42 24 |,A$,B$:.#1,A$,B$|
00000110: 3A 43 B2 30 3A 8B 41 24 B3 B1 22 22 A7 43 B2 C6 |:C.0:.A$.."".C..|
00000120: 28 41 24 29 00 3F 09 96 00 8B 20 42 24 B3 B1 22 |(A$).?.... B$.."|
00000130: 22 A7 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 |".C.C..(B$).256.|
00000140: 51 09 A0 00 4E B2 4E AA 31 3A 46 4C 28 4E 29 B2 |Q...N.N.1:FL(N).|
00000150: 43 00 67 09 AA 00 A1 23 31 2C 42 24 3A 8B 53 54 |C.g....#1,B$:.ST|
00000160: B3 B1 30 A7 32 36 30 00 7A 09 B4 00 8B 42 24 B3 |..0.260.z....B$.|
00000170: B1 C7 28 33 34 29 A7 31 37 30 00 84 09 BE 00 4E |..(34).170.....N|
00000180: 24 B2 22 22 00 A8 09 C8 00 A1 23 31 2C 42 24 3A |$.""......#1,B$:|
00000190: 8B 42 24 B3 B1 C7 28 33 34 29 A7 4E 24 B2 4E 24 |.B$...(34).N$.N$|
000001A0: AA 42 24 3A 89 32 30 30 00 B6 09 D2 00 46 58 24 |.B$:.200.....FX$|
000001B0: 28 4E 29 B2 4E 24 00 CF 09 DC 00 A1 23 31 2C 42 |(N).N$......#1,B|
000001C0: 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 32 32 30 00 |$:.B$..(32).220.|
000001D0: D9 09 E6 00 43 24 B2 22 22 00 FB 09 F0 00 43 24 |....C$."".....C$|
000001E0: B2 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 42 |.C$.B$:.#1,B$:.B|
000001F0: 24 B3 B1 22 22 20 20 A7 32 34 30 00 18 0A FA 00 |$.."" .240.....|
00000200: 46 54 24 28 4E 29 B2 C8 28 43 24 2C 33 29 3A 8B |FT$(N)..(C$,3):.|
00000210: 53 54 B2 30 A7 31 34 30 00 33 0A 04 01 A0 31 3A |ST.0.140.3....1:|
00000220: 42 46 B2 46 4C 28 4E 29 3A 4E B2 4E AB 31 3A 8D |BF.FL(N):N.N.1:.|
00000230: 35 38 30 00 3F 0A 0E 01 A0 33 3A 9F 33 2C 34 00 |580.?....3:.3,4.|
00000240: 6D 0A 18 01 98 33 2C C7 28 31 37 36 29 3B 3A 81 |m....3,.(176);:.|
00000250: 49 B2 31 A4 35 31 3A 98 33 2C C7 28 31 39 32 29 |I.1.51:.3,.(192)|
00000260: 3B 3A 82 3A 98 33 2C C7 28 31 37 34 29 00 83 0A |;:.:.3,.(174)...|
00000270: 22 01 98 33 2C C7 28 58 29 3B A6 35 31 29 3B C7 |"..3,.(X);.51);.|
00000280: 28 58 29 00 AF 0A 2C 01 54 32 24 B2 46 58 24 28 |(X)...,.T2$.FX$(|
00000290: 30 29 3A 8B 4C 24 B3 B1 22 22 A7 54 32 24 B2 54 |0):.L$.."".T2$.T|
000002A0: 32 24 AA 22 A0 A0 28 22 AA 4C 24 AA 22 29 22 00 |2$."..(".L$.")".|
000002B0: CE 0A 36 01 54 24 B2 C7 28 58 29 AA 22 20 20 20 |..6.T$..(X)." |
000002C0: 20 20 3E 3E 3E 20 22 AA 46 58 24 28 30 29 00 F7 | >>> ".FX$(0)..|
000002D0: 0A 3B 01 8B 4C 24 B2 22 22 A7 54 24 B2 54 24 AA |.;..L$."".T$.T$.|
000002E0: CA 28 42 4C 24 2C 31 2C 57 AB C3 28 54 24 29 AB |.(BL$,1,W..(T$).|
000002F0: 31 29 3A 89 33 33 30 00 2B 0B 40 01 4B B2 57 AB |1):.330.+.@.K.W.|
00000300: 32 AB C3 28 54 24 29 AB C3 28 4C 24 29 3A 54 24 |2..(T$)..(L$):T$|
00000310: B2 54 24 AA CA 28 42 4C 24 2C 31 2C 4B AB 31 29 |.T$..(BL$,1,K.1)|
00000320: AA 22 28 22 AA 4C 24 AA 22 29 22 00 45 0B 4A 01 |."(".L$.")".E.J.|
00000330: 54 24 B2 54 24 AA 22 20 20 22 AA C7 28 58 29 3A |T$.T$." "..(X):|
00000340: 98 33 2C 54 24 00 5B 0B 54 01 98 33 2C C7 28 58 |.3,T$.[.T..3,.(X|
00000350: 29 3B A6 35 31 29 3B C7 28 58 29 00 89 0B 5E 01 |);.51);.(X)...^.|
00000360: 98 33 2C C7 28 31 37 31 29 3B 3A 81 49 B2 31 A4 |.3,.(171);:.I.1.|
00000370: 35 31 3A 98 33 2C C7 28 31 39 32 29 3B 3A 82 3A |51:.3,.(192);:.:|
00000380: 98 33 2C C7 28 31 37 39 29 00 9F 0B 68 01 98 33 |.3,.(179)...h..3|
00000390: 2C C7 28 58 29 3B A6 35 31 29 3B C7 28 58 29 00 |,.(X);.51);.(X).|
000003A0: BB 0B 72 01 4C B2 39 3A 4B B2 B5 28 28 4E AA 31 |..r.L.9:K..((N.1|
000003B0: 29 AD 32 29 3A 81 49 B2 31 A4 4B 00 F5 0B 7C 01 |).2):.I.1.K...|.|
000003C0: 54 24 B2 C7 28 58 29 3A 4A B2 49 3A 8D 35 32 30 |T$..(X):J.I:.520|
000003D0: 3A 54 24 B2 54 24 AA 22 20 22 3A 4A B2 4B AA 49 |:T$.T$." ":J.K.I|
000003E0: 3A 8D 35 32 30 3A 54 24 B2 54 24 AA 22 20 20 22 |:.520:T$.T$." "|
000003F0: AA C7 28 58 29 00 07 0C 86 01 98 33 2C 54 24 3A |..(X)......3,T$:|
00000400: 4C B2 4C AA 31 3A 82 00 1D 0C 90 01 98 33 2C C7 |L.L.1:.......3,.|
00000410: 28 58 29 3B A6 35 31 29 3B C7 28 58 29 00 43 0C |(X);.51);.(X).C.|
00000420: 9A 01 50 B2 B5 28 28 42 46 AC 31 30 30 AD 36 36 |..P..((BF.100.66|
00000430: 34 29 AA 2E 35 29 3A 50 24 B2 CA 28 C4 28 50 29 |4)..5):P$..(.(P)|
00000440: 2C 32 29 00 7B 0C A4 01 54 24 B2 C7 28 58 29 AA |,2).{...T$..(X).|
00000450: CA 28 42 4C 24 2C 31 2C 31 34 29 AA C4 28 42 46 |.(BL$,1,14)..(BF|
00000460: 29 AA 22 20 42 4C 4F 43 4B 53 20 28 22 AA 50 24 |)." BLOCKS (".P$|
00000470: AA 22 20 25 29 20 56 52 49 4A 22 00 A3 0C AE 01 |." %) VRIJ".....|
00000480: 54 24 B2 54 24 AA CA 28 42 4C 24 2C 31 2C 57 AB |T$.T$..(BL$,1,W.|
00000490: C3 28 54 24 29 AA 31 29 AA C7 28 58 29 3A 98 33 |.(T$).1)..(X):.3|
000004A0: 2C 54 24 00 C0 0C B8 01 81 49 B2 4C A4 32 37 3A |,T$......I.L.27:|
000004B0: 98 33 2C C7 28 58 29 3B A6 35 31 29 C7 28 58 29 |.3,.(X);.51).(X)|
000004C0: 00 C6 0C C2 01 82 00 F4 0C CC 01 98 33 2C C7 28 |............3,.(|
000004D0: 31 37 33 29 3B 3A 81 49 B2 31 A4 35 31 3A 98 33 |173);:.I.1.51:.3|
000004E0: 2C C7 28 31 39 32 29 3B 3A 82 3A 98 33 2C C7 28 |,.(192);:.:.3,.(|
000004F0: 31 38 39 29 00 04 0D D6 01 98 33 3A A0 33 3A A0 |189)......3:.3:.|
00000500: 31 35 3A 80 00 1C 0D E0 01 84 31 35 2C 45 52 2C |15:.......15,ER,|
00000510: 45 52 24 3A 8B 45 52 B3 32 30 A7 8E 00 51 0D EA |ER$:.ER.20...Q..|
00000520: 01 8B 45 52 B2 37 34 B0 45 52 B2 32 31 A7 45 52 |..ER.74.ER.21.ER|
00000530: 24 B2 45 52 24 AA 22 2D 2D 49 53 20 44 49 53 4B |$.ER$."--IS DISK|
00000540: 20 47 45 50 4C 41 41 54 53 54 3F 22 3A 89 35 31 | GEPLAATST?":.51|
00000550: 30 00 75 0D F4 01 45 52 24 B2 22 44 49 53 4B 20 |0.u...ER$."DISK |
00000560: 45 52 52 4F 52 22 AA C4 28 45 52 29 AA 22 3A 20 |ERROR"..(ER).": |
00000570: 22 AA 45 52 24 00 80 0D FE 01 99 45 52 24 3A 80 |".ER$......ER$:.|
00000580: 00 A5 0D 08 02 54 B2 54 54 28 4A 29 3A 8B 54 B2 |.....T.TT(J):.T.|
00000590: 30 A7 54 24 B2 54 24 AA CA 28 42 4C 24 2C 31 2C |0.T$.T$..(BL$,1,|
000005A0: 32 34 29 3A 8E 00 BF 0D 12 02 8B 46 4C 28 54 29 |24):.......FL(T)|
000005B0: B3 31 30 30 20 A7 54 24 B2 54 24 AA 22 A0 22 00 |.100 .T$.T$.".".|
000005C0: D8 0D 1C 02 8B 46 4C 28 54 29 B3 31 30 20 A7 54 |.....FL(T).10 .T|
000005D0: 24 B2 54 24 AA 22 A0 22 00 FB 0D 26 02 54 24 B2 |$.T$."."...&.T$.|
000005E0: 54 24 AA CA 28 C4 28 46 4C 28 54 29 29 2C 32 29 |T$..(.(FL(T)),2)|
000005F0: AA 22 A0 22 AA 46 58 24 28 54 29 00 29 0E 30 02 |.".".FX$(T).).0.|
00000600: 8B C3 28 46 58 24 28 54 29 29 B3 31 36 A7 54 24 |..(FX$(T)).16.T$|
00000610: B2 54 24 AA CA 28 42 4C 24 2C 31 2C 31 36 AB C3 |.T$..(BL$,1,16..|
00000620: 28 46 58 24 28 54 29 29 29 00 45 0E 3A 02 54 24 |(FX$(T))).E.:.T$|
00000630: B2 54 24 AA 22 A0 22 AA C8 28 46 54 24 28 54 29 |.T$."."..(FT$(T)|
00000640: 2C 33 29 3A 8E 00 5A 0E 44 02 81 49 B2 31 A4 4E |,3):..Z.D..I.1.N|
00000650: 3A 54 54 28 49 29 B2 49 3A 82 00 8F 0E 4E 02 81 |:TT(I).I:....N..|
00000660: 49 B2 31 A4 4E AB 31 3A 53 B2 49 3A 81 4A B2 49 |I.1.N.1:S.I:.J.I|
00000670: AA 31 A4 4E 3A 8B 46 58 24 28 54 54 28 4A 29 29 |.1.N:.FX$(TT(J))|
00000680: B3 46 58 24 28 54 54 28 53 29 29 A7 53 B2 4A 00 |.FX$(TT(S)).S.J.|
00000690: B8 0E 58 02 82 4A 3A 8B 53 B3 B1 49 A7 54 B2 54 |..X..J:.S..I.T.T|
000006A0: 54 28 49 29 3A 54 54 28 49 29 B2 54 54 28 53 29 |T(I):TT(I).TT(S)|
000006B0: 3A 54 54 28 53 29 B2 54 00 C1 0E 62 02 82 49 3A |:TT(S).T...b..I:|
000006C0: 8E 00 C7 0E 5F EA 80 00 02 0F 60 EA 9F 31 35 2C |...._.....`..15,|
000006D0: 38 2C 31 35 2C 22 53 4F 3A 50 52 49 4E 54 20 44 |8,15,"SO:PRINT D|
000006E0: 49 53 4B 45 54 54 45 22 3A A0 31 35 3A 94 22 4F |ISKETTE":.15:."O|
000006F0: 3A 50 52 49 4E 54 20 44 49 53 4B 45 54 54 45 22 |:PRINT DISKETTE"|
00000700: 2C 38 00 00 00 29 3A 8D 34 35 30 3A 99 48 58 24 |,8...):.450:.HX$|
00000710: 22 20 22 3B 3A 82 3A 99 22 20 22 3B 3A 81 4B B2 |" ";:.:." ";:.K.|
00000720: 30 A4 37 00 32 0F 9A 01 44 43 B2 C6 28 CA 28 42 |0.7.2...DC..(.(B|
00000730: 24 28 58 29 2C 4A AC 38 AA 4B AA 31 2C 31 29 AA |$(X),J.8.K.1,1).|
00000740: C7 28 30 29 29 00 5A 0F A4 01 8B 28 44 43 B1 33 |.(0)).Z....(DC.3|
00000750: 32 AF 44 43 B3 31 32 38 29 B0 44 43 B1 31 35 39 |2.DC.128).DC.159|
00000760: A7 99 C7 28 44 43 29 3B 3A 89 34 34 30 00 64 0F |...(DC);:.440.d.|
00000770: AE 01 99 22 2E 22 3B 00 84 0F B8 01 82 3A 99 3A |...".";......:.:|
00000780: 82 3A 42 24 28 58 29 B2 22 20 22 AA 42 24 28 58 |.:B$(X)." ".B$(X|
00000790: 29 AA 22 20 22 3A 8E 00 A0 0F C2 01 44 31 B2 B5 |)." ":......D1..|
000007A0: 28 44 43 AD 31 36 29 3A 44 32 B2 44 43 AB 44 31 |(DC.16):D2.DC.D1|
000007B0: AC 31 36 00 CE 0F CC 01 48 58 24 B2 C7 28 44 31 |.16.....HX$..(D1|
000007C0: AA 34 38 AB 37 AC 28 44 31 B1 39 29 29 AA C7 28 |.48.7.(D1.9))..(|
000007D0: 44 32 AA 34 38 AB 37 AC 28 44 32 B1 39 29 29 3A |D2.48.7.(D2.9)):|
000007E0: 8E 00 F9 0F D6 01 48 58 24 B2 C9 28 48 58 24 2C |......HX$..(HX$,|
000007F0: C3 28 48 58 24 29 AB 31 29 3A 8B C3 28 48 58 24 |.(HX$).1):..(HX$|
00000800: 29 B2 30 A7 48 58 24 B2 22 30 30 22 00 13 10 E0 |).0.HX$."00"....|
00000810: 01 8B C3 28 48 58 24 29 B2 31 A7 48 58 24 B2 22 |...(HX$).1.HX$."|
00000820: 30 22 AA 48 58 24 00 2E 10 EA 01 8B C3 28 48 58 |0".HX$.......(HX|
00000830: 24 29 B1 32 A7 48 58 24 B2 C9 28 48 58 24 2C 32 |$).2.HX$..(HX$,2|
00000840: 29 00 47 10 F4 01 81 49 B2 31 A4 32 3A 41 24 B2 |).G....I.1.2:A$.|
00000850: CA 28 48 58 24 2C 49 2C 31 29 00 71 10 F9 01 8B |.(HX$,I,1).q....|
00000860: 41 24 B3 22 30 22 B0 28 41 24 B1 22 39 22 AF 41 |A$."0".(A$."9".A|
00000870: 24 B3 22 41 22 29 B0 41 24 B1 22 46 22 A7 44 43 |$."A").A$."F".DC|
00000880: B2 30 3A 8E 00 8D 10 FE 01 4B 24 B2 C8 28 48 58 |.0:......K$..(HX|
00000890: 24 2C 31 29 3A 4A 24 B2 C9 28 48 58 24 2C 31 29 |$,1):J$..(HX$,1)|
000008A0: 00 CD 10 08 02 44 31 B2 C6 28 4B 24 29 AB 34 38 |.....D1..(K$).48|
000008B0: 3A 44 32 B2 C6 28 4A 24 29 AB 34 38 3A 44 43 B2 |:D2..(J$).48:DC.|
000008C0: 28 44 31 AA 37 AC 28 44 31 B1 39 29 29 AC 31 36 |(D1.7.(D1.9)).16|
000008D0: AA 28 44 32 AA 37 AC 28 44 32 B1 39 29 29 3A 8E |.(D2.7.(D2.9)):.|
000008E0: 00 DA 10 12 02 99 4B 24 22 9D 9D 22 3B 00 ED 10 |......K$"..";...|
000008F0: 1C 02 A1 4A 24 3A 8B 4A 24 B2 22 22 A7 35 34 30 |...J$:.J$."".540|
00000900: 00 14 11 26 02 8B 4A 24 B3 22 30 22 B0 28 4A 24 |...&..J$."0".(J$|
00000910: B1 22 39 22 AF 4A 24 B3 22 41 22 29 B0 4A 24 B1 |."9".J$."A").J$.|
00000920: 22 46 22 A7 35 34 30 00 27 11 30 02 48 58 24 B2 |"F".540.'.0.HX$.|
00000930: 4B 24 AA 4A 24 3A 8D 35 32 30 00 64 11 3A 02 42 |K$.J$:.520.d.:.B|
00000940: 24 28 58 29 B2 C8 28 42 24 28 58 29 2C 4C AC 38 |$(X)..(B$(X),L.8|
00000950: AA 43 AA 31 29 AA C7 28 44 43 29 AA C9 28 42 24 |.C.1)..(DC)..(B$|
00000960: 28 58 29 2C C3 28 42 24 28 58 29 29 AB 28 4C AC |(X),.(B$(X)).(L.|
00000970: 38 AA 43 AA 32 29 29 00 6D 11 44 02 89 32 33 30 |8.C.2)).m.D..230|
00000980: 00 8D 11 4E 02 42 24 28 58 29 B2 CA 28 42 24 28 |...N.B$(X)..(B$(|
00000990: 58 29 2C 32 2C C3 28 42 24 28 58 29 29 AB 32 29 |X),2,.(B$(X)).2)|
000009A0: 00 9F 11 58 02 98 31 35 2C 22 42 2D 50 3A 22 35 |...X..15,"B-P:"5|
000009B0: 2C 30 00 B3 11 62 02 98 35 2C 42 24 28 30 29 3B |,0...b..5,B$(0);|
000009C0: 42 24 28 31 29 3B 00 C8 11 6C 02 98 31 35 2C 22 |B$(1);...l..15,"|
000009D0: 55 32 3A 22 35 3B 30 3B 54 3B 53 00 DA 11 76 02 |U2:"5;0;T;S...v.|
000009E0: 8B 58 B2 30 A7 58 B2 31 3A 89 31 30 30 00 EC 11 |.X.0.X.1:.100...|
000009F0: 80 02 58 B2 30 3A 8D 36 35 30 3A 89 31 30 30 00 |..X.0:.650:.100.|
00000A00: 02 12 8A 02 53 B2 53 AA 31 3A 8B 53 B3 B2 53 25 |....S.S.1:.S..S%|
00000A10: 28 54 29 A7 8E 00 18 12 94 02 53 B2 30 3A 54 B2 |(T).......S.0:T.|
00000A20: 54 AA 31 3A 8B 54 B3 33 36 A7 8E 00 22 12 9E 02 |T.1:.T.36..."...|
00000A30: 54 B2 31 3A 8E 00 4D 12 A8 02 81 49 B2 31 A4 31 |T.1:..M....I.1.1|
00000A40: 37 3A 53 25 28 49 29 B2 32 30 3A 82 3A 81 49 B2 |7:S%(I).20:.:.I.|
00000A50: 31 38 A4 32 34 3A 53 25 28 49 29 B2 31 38 3A 82 |18.24:S%(I).18:.|
00000A60: 00 7B 12 B2 02 81 49 B2 32 35 A4 33 30 3A 53 25 |.{....I.25.30:S%|
00000A70: 28 49 29 B2 31 37 3A 82 3A 81 49 B2 33 31 A4 33 |(I).17:.:.I.31.3|
00000A80: 35 3A 53 25 28 49 29 B2 31 36 3A 82 3A 8E 00 93 |5:S%(I).16:.:...|
00000A90: 12 BC 02 81 49 49 B2 31 A4 4E 3A 99 C7 28 43 48 |....II.1.N:..(CH|
00000AA0: 29 3B 3A 82 3A 8E 00 00 00 88 FF 50 |);:.:......P |
..H.D..FX$(256),FT$(256),FL(256),TT(256)
:N..1:.I.1.256:FX$(I)."":.:X.221.J.N.BL$
." ":.I.1.40:BL$.BL$." ":....X. 15:.15,8
,15:.1,8,0,"$0":.480:.#1,A$,B$.....W.51:
L$."":."LABEL STRING";L$......C(L$).22..
"LABEL STRING TE LANG-MAX IS 22 KARAKTER
S.":.130.$....#1,A$,B$:.#1,A$,B$:C.0:.A$
.."".C.F(A$).?.... B$.."".C.C.F(B$).256.
Q. .N.N.1:FL(N).C.G....#1,B$:.ST..0.260.
Z....B$..G(34).170.....N$.""...H..#1,B$:
.B$..G(34).N$.N$.B$:.200...R.FX$(N).N$.O
....#1,B$:.B$.G(32).220.Y...C$."".....C$
.C$.B$:.#1,B$:.B$.."" .240.....FT$(N).H
(C$,3):.ST.0.140.3... 1:BF.FL(N):N.N.1:.
580.?... 3:.3,4.M....3,G(176);:.I.1.51:.
3,G(192);:.:.3,G(174)..."..3,G(X);.51);G
(X)...,.T2$.FX$(0):.L$.."".T2$.T2$." ("
.L$.")".N.6.T$.G(X)." >>> ".FX$(0)..
.;..L$."".T$.T$.J(BL$,1,W.C(T$).1):.330.
+.@.K.W.2.C(T$).C(L$):T$.T$.J(BL$,1,K.1)
."(".L$.")".E.J.T$.T$." ".G(X):.3,T$.[.
T..3,G(X);.51);G(X)...^..3,G(171);:.I.1.
51:.3,G(192);:.:.3,G(179)...H..3,G(X);.5
1);G(X)...R.L.9:K..((N.1).2):.I.1.K...|.
T$.G(X):J.I:.520:T$.T$." ":J.K.I:.520:T$
.T$." ".G(X)......3,T$:L.L.1:.......3,G
(X);.51);G(X).C...P..((BF.100.664)..5):P
$.J(D(P),2).{...T$.G(X).J(BL$,1,14).D(BF
)." BLOCKS (".P$." %) VRIJ".....T$.T$.J(
BL$,1,W.C(T$).1).G(X):.3,T$......I.L.27:
.3,G(X);.51)G(X).F.B.....L..3,G(173);:.I
.1.51:.3,G(192);:.:.3,G(189)...V..3: 3:
15:.......15,ER,ER$:.ER.20...Q....ER.74.
ER.21.ER$.ER$."--IS DISK GEPLAATST?":.51
0.U...ER$."DISK ERROR".D(ER).": ".ER$...
...ER$:......T.TT(J):.T.0.T$.T$.J(BL$,1,
24):.......FL(T).100 .T$.T$." ".X....FL(
T).10 .T$.T$." "...&.T$.T$.J(D(FL(T)),2)
." ".FX$(T).).0..C(FX$(T)).16.T$.T$.J(BL
$,1,16.C(FX$(T))).E.:.T$.T$." ".H(FT$(T)
,3):..Z.D..I.1.N:TT(I).I:....N..I.1.N.1:
S.I:.J.I.1.N:.FX$(TT(J)).FX$(TT(S)).S.J.
..X..J:.S..I.T.TT(I):TT(I).TT(S):TT(S).T
.A.B..I:..G._.....`..15,8,15,"SO:PRINT D
ISKETTE": 15:."O:PRINT DISKETTE",8...):.
450:.HX$" ";:.:." ";:.K.0.7.2...DC.F(J(B
$(X),J.8.K.1,1).G(0)).Z....(DC.32.DC.128
).DC.159..G(DC);:.440.D....".";......:.:
.:B$(X)." ".B$(X)." ":.. .B.D1..(DC.16):
D2.DC.D1.16.N.L.HX$.G(D1.48.7.(D1.9)).G(
D2.48.7.(D2.9)):....V.HX$.I(HX$,C(HX$).1
):.C(HX$).0.HX$."00"......C(HX$).1.HX$."
0".HX$......C(HX$).2.HX$.I(HX$,2).G....I
.1.2:A$.J(HX$,I,1).Q....A$."0".(A$."9".A
$."A").A$."F".DC.0:......K$.H(HX$,1):J$.
I(HX$,1).M...D1.F(K$).48:D2.F(J$).48:DC.
(D1.7.(D1.9)).16.(D2.7.(D2.9)):..Z....K$
"..";......J$:.J$."".540...&..J$."0".(J$
."9".J$."A").J$."F".540.'.0.HX$.K$.J$:.5
20.D.:.B$(X).H(B$(X),L.8.C.1).G(DC).I(B$
(X),C(B$(X)).(L.8.C.2)).M.D..230...N.B$(
X).J(B$(X),2,C(B$(X)).2)...X..15,"B-P:"5
,0...B..5,B$(0);B$(1);.H.L..15,"U2:"5;0;
T;S.Z.V..X.0.X.1:.100.....X.0:.650:.100.
....S.S.1:.S..S%(T).......S.0:T.T.1:.T.3
6..."...T.1:..M....I.1.17:S%(I).20:.:.I.
18.24:S%(I).18:..{....I.25.30:S%(I).17:.
:.I.31.35:S%(I).16:.:.......II.1.N:.G(CH
);:.:......P
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL