00000000: 01 04 32 04 E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..2....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 00 63 04 FC 03 8F 2A 2A 20 55 4E 54 4F 4B |**.c....** UNTOK|
00000040: 45 4E 49 5A 45 20 20 20 20 20 20 20 20 20 20 20 |ENIZE |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 2A 2A 00 94 04 10 04 8F 2A 2A 20 20 20 20 20 | **......** |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 2A 2A 00 C5 04 24 04 8F 2A 2A 20 57 41 4E | **...$..** WAN|
000000A0: 44 45 4C 54 20 42 41 53 49 43 2D 54 4F 4B 45 4E |DELT BASIC-TOKEN|
000000B0: 53 20 4E 41 43 48 20 41 53 43 49 49 20 20 20 20 |S NACH ASCII |
000000C0: 20 20 20 2A 2A 00 F6 04 38 04 8F 2A 2A 20 20 20 | **...8..** |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 2A 2A 00 27 05 4C 04 8F 2A 2A 20 28 | **.'.L..** (|
00000100: 43 29 20 47 4D 42 53 4F 46 54 20 20 20 20 20 20 |C) GMBSOFT |
00000110: 28 4D 41 59 20 31 39 38 33 29 20 20 20 20 20 20 |(MAY 1983) |
00000120: 20 20 20 20 20 2A 2A 00 58 05 60 04 8F 2A 2A 20 | **.X.`..** |
00000130: 4B 41 49 53 45 52 20 46 52 49 45 44 52 49 43 48 |KAISER FRIEDRICH|
00000140: 20 52 49 4E 47 20 35 35 20 20 20 20 20 20 20 20 | RING 55 |
00000150: 20 20 20 20 20 20 2A 2A 00 89 05 74 04 8F 2A 2A | **...t..**|
00000160: 20 36 32 30 30 20 57 49 45 53 42 41 44 45 4E 20 | 6200 WIESBADEN |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 2A 2A 00 BA 05 88 04 8F 2A | **......*|
00000190: 2A 20 54 45 4C 2E 3A 20 30 36 31 32 31 2F 38 34 |* TEL.: 06121/84|
000001A0: 32 36 38 36 20 20 20 20 20 20 20 20 20 20 20 20 |2686 |
000001B0: 20 20 20 20 20 20 20 20 2A 2A 00 EB 05 9C 04 8F | **......|
000001C0: 2A 2A 20 50 47 4D 20 42 59 20 20 41 2E 51 55 49 |** PGM BY A.QUI|
000001D0: 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NT |
000001E0: 20 20 20 20 20 20 20 20 20 2A 2A 00 1C 06 B0 04 | **.....|
000001F0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 06 C4 |************.B..|
00000220: 04 9C 20 3A 20 86 20 43 24 28 32 35 35 29 3A 43 |.. : . C$(255):C|
00000230: 52 24 B2 C7 28 31 33 29 3A 43 24 28 30 29 B2 43 |R$..(13):C$(0).C|
00000240: 52 24 00 73 06 D8 04 81 20 49 B2 31 20 A4 20 33 |R$.s.... I.1 . 3|
00000250: 31 3A 43 24 28 49 29 B2 22 20 27 22 AA C4 28 49 |1:C$(I)." '"..(I|
00000260: 29 AA 22 27 20 22 3A 82 3A 43 24 28 31 33 29 B2 |)."' ":.:C$(13).|
00000270: 43 52 24 00 91 06 EC 04 81 20 49 B2 33 32 20 A4 |CR$...... I.32 .|
00000280: 20 31 32 37 3A 43 24 28 49 29 B2 C7 28 49 29 3A | 127:C$(I)..(I):|
00000290: 82 00 AD 06 00 05 81 20 49 B2 31 32 38 20 A4 20 |....... I.128 . |
000002A0: 32 30 33 3A 87 20 43 24 28 49 29 3A 82 00 E7 06 |203:. C$(I):....|
000002B0: 14 05 81 20 49 B2 32 30 34 20 A4 20 32 35 34 3A |... I.204 . 254:|
000002C0: 43 24 28 49 29 B2 22 20 27 22 AA C4 28 49 29 AA |C$(I)." '"..(I).|
000002D0: 22 27 20 22 3A 82 3A 43 24 28 32 35 35 29 B2 22 |"' ":.:C$(255)."|
000002E0: 20 27 50 49 27 20 22 00 1B 07 28 05 85 22 4E 41 | 'PI' "...(.."NA|
000002F0: 4D 45 20 44 45 53 20 46 49 4C 45 53 20 20 20 20 |ME DES FILES |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 4E 24 | ";N$|
00000310: 20 3A 20 9F 31 35 2C 38 2C 31 35 00 39 07 3C 05 | : .15,8,15.9.<.|
00000320: 9F 31 2C 38 2C 35 2C 4E 24 AA 22 2C 53 2C 52 22 |.1,8,5,N$.",S,R"|
00000330: 20 3A 20 8D 20 31 39 36 30 00 5B 07 50 05 9F 32 | : . 1960.[.P..2|
00000340: 2C 38 2C 36 2C 22 40 22 AA 4E 24 AA 22 2C 53 2C |,8,6,"@".N$.",S,|
00000350: 57 22 20 3A 20 8D 20 31 39 36 30 00 76 07 64 05 |W" : . 1960.v.d.|
00000360: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 |.#1,A$:.A$."".A$|
00000370: B2 43 24 28 30 29 00 89 07 78 05 8B 20 41 24 B2 |.C$(0)...x.. A$.|
00000380: 43 52 24 20 A7 20 50 B2 30 00 9A 07 8C 05 41 B2 |CR$ . P.0.....A.|
00000390: C6 28 41 24 29 3A 5A B2 53 54 00 B0 07 A0 05 91 |.(A$):Z.ST......|
000003A0: 20 50 AA 31 20 8D 20 31 37 36 30 2C 31 35 34 30 | P.1 . 1760,1540|
000003B0: 00 BB 07 B4 05 98 32 2C 41 24 3B 00 DA 07 C8 05 |......2,A$;.....|
000003C0: 8B 41 B2 33 34 B0 41 B2 39 38 A7 50 B2 50 AA 31 |.A.34.A.98.P.P.1|
000003D0: 3A 8B 50 B1 B2 32 A7 50 B2 30 00 E8 07 DC 05 8B |:.P..2.P.0......|
000003E0: 5A B2 30 A7 31 33 38 30 00 FF 07 F0 05 99 22 11 |Z.0.1380......".|
000003F0: 11 45 4E 44 45 2E 22 3A A0 31 3A A0 32 3A 80 00 |.ENDE.":.1:.2:..|
00000400: 19 08 04 06 8B 41 24 B2 22 91 22 A7 41 24 B2 22 |.....A$.".".A$."|
00000410: 20 27 55 50 27 20 22 3A 8E 00 35 08 18 06 8B 41 | 'UP' ":..5....A|
00000420: 24 B2 22 11 22 A7 41 24 B2 22 20 27 44 4F 57 4E |$.".".A$." 'DOWN|
00000430: 27 20 22 3A 8E 00 51 08 2C 06 8B 41 24 B2 22 9D |' ":..Q.,..A$.".|
00000440: 22 A7 41 24 B2 22 20 27 4C 45 46 54 27 20 22 3A |".A$." 'LEFT' ":|
00000450: 8E 00 6E 08 40 06 8B 41 24 B2 22 1D 22 A7 41 24 |..n.@..A$.".".A$|
00000460: B2 22 20 27 52 49 47 48 54 27 20 22 3A 8E 00 8A |." 'RIGHT' ":...|
00000470: 08 54 06 8B 41 24 B2 22 13 22 A7 41 24 B2 22 20 |.T..A$.".".A$." |
00000480: 27 48 4F 4D 45 27 20 22 3A 8E 00 A7 08 68 06 8B |'HOME' ":....h..|
00000490: 41 24 B2 22 93 22 A7 41 24 B2 22 20 27 43 4C 45 |A$.".".A$." 'CLE|
000004A0: 41 52 27 20 22 3A 8E 00 C2 08 7C 06 8B 20 41 B2 |AR' ":....|.. A.|
000004B0: 32 30 20 A7 41 24 B2 22 20 27 44 45 4C 27 20 22 |20 .A$." 'DEL' "|
000004C0: 3A 8E 00 DF 08 90 06 8B 20 41 B2 31 34 38 20 A7 |:....... A.148 .|
000004D0: 41 24 B2 22 20 27 49 4E 53 54 27 20 22 3A 8E 00 |A$." 'INST' ":..|
000004E0: FA 08 A4 06 8B 41 24 B2 22 12 22 A7 41 24 B2 22 |.....A$.".".A$."|
000004F0: 20 27 52 56 53 27 20 22 3A 8E 00 19 09 B8 06 8B | 'RVS' ":.......|
00000500: 41 24 B2 22 92 22 A7 41 24 B2 22 20 27 4F 46 46 |A$.".".A$." 'OFF|
00000510: 20 52 56 53 27 20 22 3A 8E 00 51 09 CC 06 8E 20 | RVS' ":..Q.... |
00000520: 3A 20 8F 20 4D 41 59 42 45 2C 20 52 45 50 4C 41 |: . MAYBE, REPLA|
00000530: 43 45 20 42 59 20 41 24 3D 43 48 52 24 28 41 20 |CE BY A$=CHR$(A |
00000540: 41 4E 44 20 31 32 37 29 20 3A 20 52 45 54 55 52 |AND 127) : RETUR|
00000550: 4E 00 5E 09 E0 06 41 24 B2 43 24 28 41 29 00 64 |N.^...A$.C$(A).d|
00000560: 09 F4 06 8E 00 96 09 08 07 83 20 45 4E 44 2C 46 |.......... END,F|
00000570: 4F 52 2C 4E 45 58 54 2C 44 41 54 41 2C 49 4E 50 |OR,NEXT,DATA,INP|
00000580: 55 54 23 2C 49 4E 50 55 54 2C 44 49 4D 2C 52 45 |UT#,INPUT,DIM,RE|
00000590: 41 44 2C 4C 45 54 00 C6 09 1C 07 83 20 47 4F 54 |AD,LET...... GOT|
000005A0: 4F 2C 52 55 4E 2C 49 46 2C 52 45 53 54 4F 52 45 |O,RUN,IF,RESTORE|
000005B0: 2C 47 4F 53 55 42 2C 52 45 54 55 52 4E 2C 52 45 |,GOSUB,RETURN,RE|
000005C0: 4D 2C 53 54 4F 50 00 F5 09 30 07 83 20 4F 4E 2C |M,STOP...0.. ON,|
000005D0: 57 41 49 54 2C 4C 4F 41 44 2C 53 41 56 45 2C 56 |WAIT,LOAD,SAVE,V|
000005E0: 45 52 49 46 59 2C 44 45 46 2C 50 4F 4B 45 2C 50 |ERIFY,DEF,POKE,P|
000005F0: 52 49 4E 54 23 00 26 0A 44 07 83 20 50 52 49 4E |RINT#.&.D.. PRIN|
00000600: 54 2C 43 4F 4E 54 2C 4C 49 53 54 2C 43 4C 52 2C |T,CONT,LIST,CLR,|
00000610: 43 4D 44 2C 53 59 53 2C 4F 50 45 4E 2C 43 4C 4F |CMD,SYS,OPEN,CLO|
00000620: 53 45 2C 47 45 54 00 58 0A 58 07 83 20 4E 45 57 |SE,GET.X.X.. NEW|
00000630: 2C 54 41 42 28 2C 54 4F 2C 46 4E 2C 53 50 43 28 |,TAB(,TO,FN,SPC(|
00000640: 2C 54 48 45 4E 2C 4E 4F 54 2C 53 54 45 50 2C 2B |,THEN,NOT,STEP,+|
00000650: 2C 2D 2C 2A 2C 2F 2C 5E 00 87 0A 6C 07 83 20 41 |,-,*,/,^...l.. A|
00000660: 4E 44 2C 4F 52 2C 3E 2C 3D 2C 3C 2C 53 47 4E 2C |ND,OR,>,=,<,SGN,|
00000670: 49 4E 54 2C 41 42 53 2C 55 53 52 2C 46 52 45 2C |INT,ABS,USR,FRE,|
00000680: 50 4F 53 2C 53 51 52 00 B7 0A 80 07 83 20 52 4E |POS,SQR...... RN|
00000690: 44 2C 4C 4F 47 2C 45 58 50 2C 43 4F 53 2C 53 49 |D,LOG,EXP,COS,SI|
000006A0: 4E 2C 54 41 4E 2C 41 54 4E 2C 50 45 45 4B 2C 4C |N,TAN,ATN,PEEK,L|
000006B0: 45 4E 2C 53 54 52 24 00 DF 0A 94 07 83 20 56 41 |EN,STR$...... VA|
000006C0: 4C 2C 41 53 43 2C 43 48 52 24 2C 4C 45 46 54 24 |L,ASC,CHR$,LEFT$|
000006D0: 2C 52 49 47 48 54 24 2C 4D 49 44 24 2C 47 4F 00 |,RIGHT$,MID$,GO.|
000006E0: 04 0B A8 07 84 31 35 2C 41 24 2C 42 24 2C 43 24 |.....15,A$,B$,C$|
000006F0: 2C 44 24 20 3A 20 8B 20 C5 28 41 24 29 B3 32 30 |,D$ : . .(A$).20|
00000700: 20 A7 20 8E 00 3D 0B BC 07 99 22 11 12 46 45 48 | . ..=...."..FEH|
00000710: 4C 45 52 20 44 45 52 20 46 4C 4F 50 50 59 20 3A |LER DER FLOPPY :|
00000720: 20 22 3B 41 24 3B 22 20 2C 22 3B 42 24 3B 22 2C | ";A$;" ,";B$;",|
00000730: 22 3B 43 24 3B 22 2C 22 3B 44 24 3A 80 00 00 00 |";C$;",";D$:....|
00000740: 55 |U |
..2....*********************************
**********.C....** UNTOKENIZE
**......**
**.E.$..** WAN
DELT BASIC-TOKENS NACH ASCII **...
8..**
**.'.L..** (C) GMBSOFT (MAY 198
3) **.X.`..** KAISER FRIEDRICH
RING 55 **...T..** 6200 WI
ESBADEN **......*
* TEL.: 06121/842686
**......** PGM BY A.QUINT
**......***********************
********************.B.D.. : . C$(255):C
R$.G(13):C$(0).CR$.S.X.. I.1 . 31:C$(I).
" '".D(I)."' ":.:C$(13).CR$...... I.32 .
127:C$(I).G(I):....... I.128 . 203:. C$
(I):....... I.204 . 254:C$(I)." '".D(I).
"' ":.:C$(255)." 'PI' "...(.."NAME DES F
ILES ";N$ : .15,8,15.9.<.
.1,8,5,N$.",S,R" : . 1960.[.P..2,8,6,"@"
.N$.",S,W" : . 1960.V.D..#1,A$:.A$."".A$
.C$(0)...X.. A$.CR$ . P.0.....A.F(A$):Z.
ST... .. P.1 . 1760,1540......2,A$;.Z.H.
.A.34.A.98.P.P.1:.P..2.P.0......Z.0.1380
......"..ENDE.": 1: 2:.......A$.".".A$."
'UP' ":..5....A$.".".A$." 'DOWN' ":..Q.
,..A$.".".A$." 'LEFT' ":..N.@..A$.".".A$
." 'RIGHT' ":....T..A$.".".A$." 'HOME' "
:....H..A$.".".A$." 'CLEAR' ":..B.|.. A.
20 .A$." 'DEL' ":....... A.148 .A$." 'IN
ST' ":.......A$.".".A$." 'RVS' ":.......
A$.".".A$." 'OFF RVS' ":..Q.L.. : . MAYB
E, REPLACE BY A$=CHR$(A AND 127) : RETUR
N.^...A$.C$(A).D.......... END,FOR,NEXT,
DATA,INPUT#,INPUT,DIM,READ,LET.F.... GOT
O,RUN,IF,RESTORE,GOSUB,RETURN,REM,STOP..
.0.. ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,P
RINT#.&.D.. PRINT,CONT,LIST,CLR,CMD,SYS,
OPEN,CLOSE,GET.X.X.. NEW,TAB(,TO,FN,SPC(
,THEN,NOT,STEP,+,-,*,/,^...L.. AND,OR,>,
=,<,SGN,INT,ABS,USR,FRE,POS,SQR...... RN
D,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$.
..... VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO.
.....15,A$,B$,C$,D$ : . E(A$).20 . ..=..
.."..FEHLER DER FLOPPY : ";A$;" ,";B$;",
";C$;",";D$:....U
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL