UNSCRATCH-BASIC 

00000000: 01 1C 70 1C 01 00 97 38  30 38 2C 31 30 37 3A DE  |..p....808,107:.|
00000010: 35 3A E7 36 2C 31 3A FE  25 3A 86 57 28 31 34 34  |5:.6,1:.%:.W(144|
00000020: 2C 33 32 29 2C 57 24 28  31 34 34 29 3A 99 22 13  |,32),W$(144):.".|
00000030: 13 93 0E 0B 05 22 A3 32  31 29 22 D5 4E 53 43 52  |.....".21)".NSCR|
00000040: 41 54 43 48 2D C2 41 53  49 43 20 20 20 28 43 29  |ATCH-.ASIC   (C)|
00000050: 42 59 20 C1 4E 44 52 45  41 53 20 CD 45 49 45 52  |BY .NDREAS .EIER|
00000060: 22 3A 54 B2 31 38 3A 53  B2 30 3A 42 B2 31 34 34  |":T.18:S.0:B.144|
00000070: 00 C9 1C 02 00 99 22 11  C2 49 54 54 45 20 45 49  |......"..ITTE EI|
00000080: 4E 45 20 28 46 4F 52 4D  41 54 49 45 52 54 45 29  |NE (FORMATIERTE)|
00000090: 20 C4 49 53 4B 45 54 54  45 20 45 49 4E 4C 45 47  | .ISKETTE EINLEG|
000000A0: 45 4E 2E 20 3E D4 41 53  54 45 3C 22 3A A1 F9 41  |EN. >.ASTE<":..A|
000000B0: 24 3A 9F 31 35 2C 38 2C  31 35 3A 9F 35 2C 38 2C  |$:.15,8,15:.5,8,|
000000C0: 35 2C 22 23 22 3A 8D 32  36 00 10 1D 03 00 8B C6  |5,"#":.26.......|
000000D0: 28 41 24 29 B2 30 A7 99  22 11 C9 43 48 20 53 41  |(A$).0.."..CH SA|
000000E0: 47 54 45 20 45 49 4E 45  20 28 46 4F 52 4D 41 54  |GTE EINE (FORMAT|
000000F0: 49 45 52 54 45 29 20 C4  49 53 4B 45 54 54 45 20  |IERTE) .ISKETTE |
00000100: 45 49 4E 4C 45 47 45 4E  20 21 0C 22 3A 89 33 30  |EINLEGEN !.":.30|
00000110: 00 87 1D 04 00 81 49 B2  32 A4 32 33 3A A1 23 35  |......I.2.23:.#5|
00000120: 2C 42 24 3A 41 24 B2 41  24 AA 42 24 3A 82 3A 99  |,B$:A$.A$.B$:.:.|
00000130: 22 91 C4 49 53 4B 45 54  54 45 20 3A 20 12 22 C7  |"..ISKETTE : .".|
00000140: 28 33 34 29 CA 28 41 24  2C 31 2C 31 36 29 C7 28  |(34).(A$,1,16).(|
00000150: 33 34 29 CA 28 41 24 2C  31 38 2C 36 29 22 92 20  |34).(A$,18,6)". |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000170: 3A 53 B2 31 3A 5A B2 30  3A 99 22 11 C9 43 48 20  |:S.1:Z.0:."..CH |
00000180: 4C 45 53 45 2E 11 22 00  B0 1D 05 00 42 B2 30 3A  |LESE..".....B.0:|
00000190: 8D 32 36 3A 42 B2 32 3A  54 54 B2 C6 28 41 24 29  |.26:B.2:TT..(A$)|
000001A0: 3A A1 23 35 2C 41 24 3A  53 53 B2 C6 28 41 24 29  |:.#5,A$:SS..(A$)|
000001B0: 00 30 1E 06 00 8D 32 36  3A 8B C6 28 41 24 29 B2  |.0....26:..(A$).|
000001C0: 30 A7 5A B2 5A AA 31 3A  81 49 B2 30 A4 32 39 3A  |0.Z.Z.1:.I.0.29:|
000001D0: 57 28 5A 2C 49 29 B2 C6  28 41 24 29 3A A1 23 35  |W(Z,I)..(A$):.#5|
000001E0: 2C 41 24 3A 82 3A 57 28  5A 2C 33 30 29 B2 54 3A  |,A$:.:W(Z,30).T:|
000001F0: 57 28 5A 2C 33 31 29 B2  53 3A 57 28 5A 2C 33 32  |W(Z,31).S:W(Z,32|
00000200: 29 B2 42 3A 81 49 B2 33  A4 31 38 3A 8B 57 28 5A  |).B:.I.3.18:.W(Z|
00000210: 2C 49 29 B3 B1 31 36 30  A7 57 24 28 5A 29 B2 57  |,I)..160.W$(Z).W|
00000220: 24 28 5A 29 AA C7 28 57  28 5A 2C 49 29 29 3A 82  |$(Z)..(W(Z,I)):.|
00000230: 00 58 1E 07 00 8B C6 28  57 24 28 5A 29 29 B2 30  |.X.....(W$(Z)).0|
00000240: A7 57 24 28 5A 29 B2 22  22 3A 5A B2 5A AB 31 3A  |.W$(Z)."":Z.Z.1:|
00000250: 8B 5A B3 31 A7 5A B2 30  00 C4 1E 08 00 42 B2 42  |.Z.1.Z.0.....B.B|
00000260: AA 33 32 3A 8B 42 B3 32  35 35 A7 36 3A D5 54 B2  |.32:.B.255.6:.T.|
00000270: 54 54 3A 53 B2 53 53 3A  8B 54 54 B1 30 A7 35 3A  |TT:S.SS:.TT.0.5:|
00000280: D5 99 44 53 24 3A FE 0B  32 3A 45 B2 31 3A 8B 5A  |..DS$:..2:E.1:.Z|
00000290: B2 30 A7 99 22 11 CB 45  49 4E 45 20 47 45 4C 4F  |.0.."..EINE GELO|
000002A0: 45 53 43 48 54 45 28 4E  29 20 C4 41 54 45 49 28  |ESCHTE(N) .ATEI(|
000002B0: 4E 29 20 56 4F 52 48 41  4E 44 45 4E 20 21 0C 22  |N) VORHANDEN !."|
000002C0: 3A 89 33 30 00 37 1F 09  00 99 22 91 91 91 D3 4F  |:.30.7...."....O|
000002D0: 4C 4C 20 44 49 45 20 C4  41 54 45 49 20 22 A3 33  |LL DIE .ATEI ".3|
000002E0: 31 29 22 20 57 49 45 44  45 52 20 48 45 52 47 45  |1)" WIEDER HERGE|
000002F0: 53 54 45 4C 4C 54 20 57  45 52 44 45 4E 20 3F 22  |STELLT WERDEN ?"|
00000300: 3A 99 22 11 8E CE CD 20  3A 20 CD CE 20 2C 20 52  |:.".... : .. , R|
00000310: 45 54 55 52 4E 20 3D 20  0E 4A 41 20 2C 20 D3 D0  |ETURN = .JA , ..|
00000320: C1 C3 C5 20 3D 20 D0 52  4F 47 52 41 4D 4D 20 42  |... = .ROGRAMM B|
00000330: 45 45 4E 44 45 4E 22 00  8D 1F 0A 00 E0 2C 31 35  |EENDEN"......,15|
00000340: 2C 34 2C 22 20 20 20 20  20 20 20 20 20 20 20 20  |,4,"            |
00000350: 20 20 20 20 22 2C 31 3A  E0 2C 31 35 2C 34 2C 57  |    ",1:.,15,4,W|
00000360: 24 28 45 29 2C 31 3A 97  32 30 38 2C 30 3A A1 F9  |$(E),1:.208,0:..|
00000370: 41 24 3A 8B 41 24 B2 22  91 22 A7 45 B2 45 AB 31  |A$:.A$.".".E.E.1|
00000380: 3A 8B 45 B3 31 A7 45 B2  31 3A 89 31 30 00 AC 1F  |:.E.1.E.1:.10...|
00000390: 0B 00 8B 41 24 B2 22 11  22 A7 45 B2 45 AA 31 3A  |...A$.".".E.E.1:|
000003A0: 8B 45 B1 5A A7 45 B2 5A  3A 89 31 30 00 C6 1F 0C  |.E.Z.E.Z:.10....|
000003B0: 00 8B 41 24 B2 22 20 22  A7 E0 2C 30 2C 37 2C 22  |..A$." "..,0,7,"|
000003C0: 0C 22 3A 89 33 30 00 DB  1F 0D 00 8B 41 24 B2 C7  |.":.30......A$..|
000003D0: 28 31 33 29 A7 31 34 3A  D5 31 30 00 11 20 0E 00  |(13).14:.10.. ..|
000003E0: E0 2C 30 2C 37 3A 56 24  B2 22 20 22 3A 8B 57 28  |.,0,7:V$." ":.W(|
000003F0: 45 2C 31 39 29 B1 31 A7  56 24 B2 22 35 22 3A D5  |E,19).1.V$."5":.|
00000400: 8B 57 28 45 2C 32 38 29  B2 30 A7 56 24 B2 22 31  |.W(E,28).0.V$."1|
00000410: 22 00 8D 20 0F 00 99 22  11 D4 59 50 20 20 20 20  |".. ..."..YP    |
00000420: 20 20 20 3A 20 12 31 92  20 C4 C5 CC 20 2C 20 12  |   : .1. ... , .|
00000430: 32 92 20 D3 C5 D1 20 2C  20 12 33 92 20 D0 D2 C7  |2. ... , .3. ...|
00000440: 20 2C 20 12 34 92 20 D5  D3 D2 20 2C 20 12 35 92  | , .4. ... , .5.|
00000450: 20 D2 C5 CC 22 3A 99 22  11 D7 45 4C 43 48 45 52  | ...":."..ELCHER|
00000460: 20 3F 20 3A 20 22 56 24  22 9D 22 3B 3A A1 F9 41  | ? : "V$".";:..A|
00000470: 24 3A 41 B2 C6 28 41 24  29 AB 34 39 3A 8B 41 B3  |$:A..(A$).49:.A.|
00000480: 30 B0 41 B1 34 A7 31 34  3A D5 99 41 24 00 D7 20  |0.A.4.14:..A$.. |
00000490: 10 00 99 22 11 D3 43 48  55 45 54 5A 45 4E 20 3A  |..."..CHUETZEN :|
000004A0: 20 28 4A 2F 4E 29 9D 9D  9D 9D 9D 22 3B 3A A1 F9  | (J/N).....";:..|
000004B0: 4D 24 3A 8B 4D 24 B2 22  4A 22 A7 99 22 CA 41 20  |M$:.M$."J"..".A |
000004C0: 20 20 22 3A 53 43 B2 31  3A D5 99 22 CE 45 49 4E  |  ":SC.1:..".EIN|
000004D0: 20 22 3A 53 43 B2 30 00  35 21 11 00 99 22 11 C2  | ":SC.0.5!..."..|
000004E0: 49 54 54 45 20 45 54 57  41 53 20 C7 45 44 55 4C  |ITTE ETWAS .EDUL|
000004F0: 44 20 21 22 3A 57 28 45  2C 30 29 B2 41 AA 53 43  |D !":W(E,0).A.SC|
00000500: AC 36 34 AA 31 32 38 3A  53 4C B2 57 28 45 2C 30  |.64.128:SL.W(E,0|
00000510: 29 AB 53 43 AC 36 34 3A  54 B2 57 28 45 2C 33 30  |).SC.64:T.W(E,30|
00000520: 29 3A 53 B2 57 28 45 2C  33 31 29 3A 42 B2 57 28  |):S.W(E,31):B.W(|
00000530: 45 2C 33 32 29 00 79 21  12 00 42 B2 42 AB 31 3A  |E,32).y!..B.B.1:|
00000540: 8D 32 36 3A 41 24 B2 C7  28 57 28 45 2C 30 29 29  |.26:A$..(W(E,0))|
00000550: 3A 8D 32 38 3A 42 4C B2  57 28 45 2C 32 38 29 AA  |:.28:BL.W(E,28).|
00000560: 57 28 45 2C 32 39 29 AC  32 35 36 3A 8B 42 4C B2  |W(E,29).256:.BL.|
00000570: 30 A7 54 B2 30 3A 89 32  34 00 E6 21 13 00 58 B2  |0.T.0:.24..!..X.|
00000580: 31 3A 41 24 B2 22 22 3A  8B 41 B2 34 A7 54 B2 57  |1:A$."":.A.4.T.W|
00000590: 28 45 2C 31 39 29 3A 53  B2 57 28 45 2C 32 30 29  |(E,19):S.W(E,20)|
000005A0: 3A 81 58 B2 31 A4 42 4C  3A 42 B2 30 3A 8D 32 36  |:.X.1.BL:B.0:.26|
000005B0: 3A A1 23 35 2C 42 24 3A  98 31 35 2C 22 42 2D 41  |:.#5,B$:.15,"B-A|
000005C0: 22 3B 30 3B 54 3B 53 3A  54 B2 C6 28 41 24 29 3A  |";0;T;S:T..(A$):|
000005D0: 53 B2 C6 28 42 24 29 3A  58 B2 58 AA 31 3A 8B 58  |S..(B$):X.X.1:.X|
000005E0: B1 42 4C A7 32 35 00 F6  21 14 00 8B C6 28 41 24  |.BL.25..!....(A$|
000005F0: 29 B3 B1 30 A7 82 00 34  22 15 00 54 B2 57 28 45  |)..0...4"..T.W(E|
00000600: 2C 31 29 3A 53 B2 57 28  45 2C 32 29 3A 81 59 B2  |,1):S.W(E,2):.Y.|
00000610: 58 A4 42 4C 3A 42 B2 30  3A 8D 32 36 3A A1 23 35  |X.BL:B.0:.26:.#5|
00000620: 2C 42 24 3A 8B C6 28 41  24 29 B2 30 AF 59 B3 42  |,B$:..(A$).0.Y.B|
00000630: 4C A7 32 35 00 5A 22 16  00 98 31 35 2C 22 42 2D  |L.25.Z"...15,"B-|
00000640: 41 22 3B 30 3B 54 3B 53  3A 54 B2 C6 28 41 24 29  |A";0;T;S:T..(A$)|
00000650: 3A 53 B2 C6 28 42 24 29  3A 82 00 72 22 17 00 8B  |:S..(B$):..r"...|
00000660: 44 53 B1 30 A7 99 22 11  0C 22 44 53 24 3A 89 20  |DS.0..".."DS$:. |
00000670: 32 39 00 AB 22 18 00 8B  54 B2 30 A7 99 22 91 C6  |29.."...T.0.."..|
00000680: 45 52 54 49 47 2E 20 20  20 20 20 20 20 20 20 20  |ERTIG.          |
00000690: 20 20 20 22 3A 99 22 11  C4 41 53 20 57 41 52 27  |   ":."..AS WAR'|
000006A0: 53 20 21 21 21 0C 22 3A  89 33 30 00 DD 22 19 00  |S !!!.":.30.."..|
000006B0: 99 22 11 C4 41 54 45 49  20 57 55 52 44 45 20 42  |."..ATEI WURDE B|
000006C0: 45 52 45 49 54 53 20 55  45 42 45 52 53 43 48 52  |EREITS UEBERSCHR|
000006D0: 49 45 42 45 4E 20 21 0C  22 3A 89 32 39 00 F2 22  |IEBEN !.":.29.."|
000006E0: 1A 00 98 31 35 2C 22 55  31 22 3B 35 3B 30 3B 54  |...15,"U1";5;0;T|
000006F0: 3B 53 00 0D 23 1B 00 98  31 35 2C 22 42 2D 50 22  |;S..#...15,"B-P"|
00000700: 3B 35 3B 42 3A A1 23 35  2C 41 24 3A 8E 00 2B 23  |;5;B:.#5,A$:..+#|
00000710: 1C 00 98 35 2C 41 24 3B  3A 98 31 35 2C 22 55 32  |...5,A$;:.15,"U2|
00000720: 22 3B 35 3B 30 3B 54 3B  53 3A 8E 00 6B 23 1D 00  |";5;0;T;S:..k#..|
00000730: 54 B2 57 28 45 2C 33 30  29 3A 53 B2 57 28 45 2C  |T.W(E,30):S.W(E,|
00000740: 33 31 29 3A 42 B2 57 28  45 2C 33 32 29 AB 31 3A  |31):B.W(E,32).1:|
00000750: 8D 32 36 3A 41 24 B2 C7  28 53 4C 29 3A 8D 32 38  |.26:A$..(SL):.28|
00000760: 3A F2 28 57 24 28 45 29  29 3A F3 00 7B 23 1E 00  |:.(W$(E)):..{#..|
00000770: FE 0F 3A 97 38 30 38 2C  30 3A 80 00 00 00        |..:.808,0:....  |

..P....808,107:.5:.6,1:.%:.W(144,32),W$(
144):."......".21)"UNSCRATCH-BASIC   (C)
BY ANDREAS MEIER":T.18:S.0:B.144.I....".
BITTE EINE (FORMATIERTE) DISKETTE EINLEG
EN. >TASTE<":..A$:.15,8,15:.5,8,5,"#":.2
6......F(A$).0..".ICH SAGTE EINE (FORMAT
IERTE) DISKETTE EINLEGEN !.":.30......I.
2.23:.#5,B$:A$.A$.B$:.:.".DISKETTE : ."G
(34)J(A$,1,16)G(34)J(A$,18,6)".         
       ":S.1:Z.0:.".ICH LESE..".....B.0:
.26:B.2:TT.F(A$):.#5,A$:SS.F(A$).0....26
:.F(A$).0.Z.Z.1:.I.0.29:W(Z,I).F(A$):.#5
,A$:.:W(Z,30).T:W(Z,31).S:W(Z,32).B:.I.3
.18:.W(Z,I)..160.W$(Z).W$(Z).G(W(Z,I)):.
.X....F(W$(Z)).0.W$(Z)."":Z.Z.1:.Z.1.Z.0
.D...B.B.32:.B.255.6:UT.TT:S.SS:.TT.0.5:
U.DS$:..2:E.1:.Z.0..".KEINE GELOESCHTE(N
) DATEI(N) VORHANDEN !.":.30.7...."...SO
LL DIE DATEI ".31)" WIEDER HERGESTELLT W
ERDEN ?":."..NM : MN , RETURN = .JA , SP
ACE = PROGRAMM BEENDEN"......,15,4,"    
            ",1:.,15,4,W$(E),1:.208,0:..
A$:.A$.".".E.E.1:.E.1.E.1:.10......A$.".
".E.E.1:.E.Z.E.Z:.10.F....A$." "..,0,7,"
.":.30......A$.G(13).14:U10.. ...,0,7:V$
." ":.W(E,19).1.V$."5":U.W(E,28).0.V$."1
".. ...".TYP       : .1. DEL , .2. SEQ ,
 .3. PRG , .4. USR , .5. REL":.".WELCHER
 ? : "V$".";:..A$:A.F(A$).49:.A.0.A.4.14
:U.A$.W ...".SCHUETZEN : (J/N).....";:..
M$:.M$."J".."JA   ":SC.1:U."NEIN ":SC.0.
5!...".BITTE ETWAS GEDULD !":W(E,0).A.SC
.64.128:SL.W(E,0).SC.64:T.W(E,30):S.W(E,
31):B.W(E,32).Y!..B.B.1:.26:A$.G(W(E,0))
:.28:BL.W(E,28).W(E,29).256:.BL.0.T.0:.2
4..!..X.1:A$."":.A.4.T.W(E,19):S.W(E,20)
:.X.1.BL:B.0:.26:.#5,B$:.15,"B-A";0;T;S:
T.F(A$):S.F(B$):X.X.1:.X.BL.25..!...F(A$
)..0...4"..T.W(E,1):S.W(E,2):.Y.X.BL:B.0
:.26:.#5,B$:.F(A$).0.Y.BL.25.Z"...15,"B-
A";0;T;S:T.F(A$):S.F(B$):..R"...DS.0..".
."DS$:. 29.."...T.0..".FERTIG.          
   ":.".DAS WAR'S !!!.":.30.."...".DATEI
 WURDE BEREITS UEBERSCHRIEBEN !.":.29.."
...15,"U1";5;0;T;S..#...15,"B-P";5;B:.#5
,A$:..+#...5,A$;:.15,"U2";5;0;T;S:..K#..
T.W(E,30):S.W(E,31):B.W(E,32).1:.26:A$.G
(SL):.28:.(W$(E)):..{#....:.808,0:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL