1000 REM WORK TOOL INSTRUCTION
1010 :
1020 REM 1987 BY R. BAIER
1030 REM ZULETZT GEAENDERT AM 03-01-88
1040 :
1050 :
1060 REM VORBEREITUNGEN
1070 :
1080 PRINT"[147]"CHR$(14)CHR$(8): V=53248
1090 POKE V+32,0: POKE V+33,0: POKE V+17,27: POKE V+24,23
1100 FO$="[198][207][210][205][193][212]:    ": FU$="[198][213][206][203][212][201][207][206]:  ": PA$="[208][193][210][193][205][197][212][197][210]: ": BE$="[194][197][201][211][208][201][197][204]:  "
1110 :
1120 GOTO 1240: REM ERKLAERUNGEN
1130 :
1140 REM UNTERPROGRAMME
1150 :
1160 POKE V+17,11: PRINT"[147] [215][207][210][203][160][212][207][207][204]             1987 BY [210]. [194]AIER ": RETURN
1170 POKE 211,32: POKE 214,22: SYS 58732: PRINT" [210][197][212][213][210][206] ": POKE V+17,27
1180 GET A$: IF A$<>CHR$(13) THEN 1180
1190 RETURN
1200 :
1210 :
1220 REM ERKLAERUNGEN ALLGEMEIN
1230 :
1240 GOSUB 1160: REM BILDSCHIRM
1250 PRINT"[215][207][210][203][160][212][207][207][204]:": PRINT"[163][163][163][163][163][163][163][163][163][163]"
1260 PRINT"[194]EFEHLSERWEITERUNG UM  ZWOELF [194]EFEHLE,"
1270 PRINT"BZW. [198]UNKTIONEN."
1280 PRINT"[196]IESE [194]EFEHLE SIND NICHT DAZU GEDACHT,"
1290 PRINT"INNERHALB VON [208]ROGRAMMEN EINGESETZT ZU"
1300 PRINT"WERDEN.  [211]IE SOLLEN "CHR$(34)"NUR"CHR$(34)" DAS [208]ROGRAM-"
1310 PRINT"MIEREN IN [194][193][211][201][195] ERLEICHTERN.": GOSUB 1170
1320 :
1330 GOSUB 1160: REM BILDSCHIRM
1340 PRINT"[215][207][210][203][160][212][207][207][204]:": PRINT"[163][163][163][163][163][163][163][163][163][163]"
1350 PRINT"[196]AS  [208]ROGRAMM BELEGT DEN [211]PEICHERPLATZ"
1360 PRINT"VON $[195]8[198]5 BIS $[195][198][198][198] (51445 BIS 53247)."
1370 PRINT"[196]ER [194][193][211][201][195]-[194]EREICH BLEIBT VOLL ERHALTEN"
1380 PRINT"UND FUER  [205]ASCHINENROUTINEN STEHT NOCH"
1390 PRINT"[208]LATZ VON  $[195]000 BIS  $[195]8[198]4 (49152 BIS"
1400 PRINT"51444) ZUR [214]ERFUEGUNG.": GOSUB 1170
1410 :
1420 GOSUB 1160: REM BILDSCHIRM
1430 PRINT"[215][207][210][203][160][212][207][207][204]:": PRINT"[163][163][163][163][163][163][163][163][163][163]"
1440 PRINT"[196]AS [208]ROGRAMM BEFINDET SICH ALS ABSOLUTES"
1450 PRINT"[198]ILE "CHR$(34)"[215].[212][207][207][204].[207]"CHR$(34)" AUF DER [196]ISKETTE."
1460 PRINT"[197]BENFALLS AUF [196]ISKETTE BEFINDET SICH EIN"
1470 PRINT"[204]ADEPROGRAMM MIT [206]AMEN "CHR$(34)"[215][207][210][203][160][212][207][207][204]"CHR$(34)" , DAS"
1480 PRINT"ABSOLUT (,8,1) GELADEN WERDEN MUSS,  UND"
1490 PRINT"DAS DIE  [197]RWEITERUNG  SELBSTAENDIG STAR-"
1500 PRINT"TET."
1510 GOSUB 1170: REM TASTATURABFRAGE
1520 :
1530 GOSUB 1160: REM BILDSCHIRM
1540 PRINT"[215][207][210][203][160][212][207][207][204]:": PRINT"[163][163][163][163][163][163][163][163][163][163]"
1550 PRINT"[196]IE  [197]RWEITERUNG UMFASST DIE FOLGEN-"
1560 PRINT"DEN [194]EFEHLE:"
1570 PRINT"![204][201][211][212], ![195][205][196] , ![210][197][193][196] , ![204][207][193][196] , ![211][193][214][197],"
1580 PRINT"![206][197][215] , ![207][204][196] , ![193][211][193][214][197], ![193][204][207][193][196], ![198][201][206][196],"
1590 PRINT"SOWIE EINE [198]UNKTION  ZUR  [214]ERWENDUNG "
1600 PRINT"HEXADEZIMALER [218]IFFERN UND DIE [210]EALI-"
1610 PRINT"SIERUNG EINER [197][211][195][193][208][197]-[212]ASTE."
1620 GOSUB 1170: REM TASTATURABFRAGE
1630 :
1640 REM DIR
1650 :
1660 GOSUB 1160: REM BILDSCHIRM
1670 PRINT""FO$"![204][201][211][212]"
1680 PRINT""FU$"LISTET DAS [201]NHALTSVERZEICHNIS"
1690 PRINTSPC(11)"EINER [196]ISKETTE OHNE [208]ROGRAMM-"
1700 PRINTSPC(11)"VERLUST."
1710 PRINT""PA$"KEINE"
1720 GOSUB 1170: REM TASTATURABFRAGE
1730 :
1740 REM DISK
1750 :
1760 GOSUB 1160: REM BILDSCHIRM
1770 PRINT""FO$"![195][205][196] "CHR$(34)"[194][197][198][197][200][204]"CHR$(34)
1780 PRINT""FU$"SENDET ALLE [198]LOPPY-[203]OMMANDOS."
1790 PRINTPA$"[194][197][198][197][200][204] - [194]EFEHLSSTRING"
1800 PRINT""BE$"![195][205][196] "CHR$(34)"[206]0:[212][197][211][212],99"CHR$(34)
1810 PRINTSPC(11)"[198]ORMATIERT EINE [196]ISKETTE NEU."
1820 GOSUB 1170: REM TASTATURABFRAGE
1830 :
1840 REM REPORT
1850 :
1860 GOSUB 1160: REM BILDSCHIRM
1870 PRINT""FO$"![210][197][193][196]"
1880 PRINT""FU$"[204]IEST DEN [198]EHLERKANAL DES"
1890 PRINTSPC(11)"[196]ISKETTENLAUFWERKS AUS."
1900 PRINT""PA$"KEINE"
1910 GOSUB 1170: REM TASTATURABFRAGE
1920 :
1930 REM MERGE
1940 :
1950 GOSUB 1160: REM BILDSCHIRM
1960 PRINT""FO$"![204][207][193][196] "CHR$(34)"[206][193][205][197]"CHR$(34)" [,GA]"
1970 PRINT""FU$"[204]AEDT EIN [208]ROGRAMM UND VER-"
1980 PRINTSPC(11)"BINDET ES MIT  DEM IM [211]PEI-"
1990 PRINTSPC(11)"CHER BEFINDLICHEN."
2000 PRINT""PA$"[206][193][205][197] - [208]ROGRAMMNAME"
2010 PRINTSPC(11)"GA   - [199]ERAETEADRESSE"
2020 PRINT"[193][195][200][212][213][206][199]:   [196]IE NEUEN [218]EILENNUMMERN MUES-"
2030 PRINTSPC(11)"SEN GROESSER SEIN ALS DIE AL-"
2040 PRINTSPC(11)"TEN."
2050 GOSUB 1170: REM TASTATURABFRAGE
2060 :
2070 REM PICK
2080 :
2090 GOSUB 1160: REM BILDSCHIRM
2100 PRINT""FO$"![211][193][214][197] Z1,Z2,"CHR$(34)"[206][193][205][197]"CHR$(34)" [,GA]"
2110 PRINT""FU$"[211]PEICHERT DIE [218]EILEN VON Z1"
2120 PRINTSPC(11)"BIS Z2 (EINSCHLIESSLICH)."
2130 PRINT""PA$"[206][193][205][197] - [208]ROGRAMMNAME"
2140 PRINTSPC(11)"GA   - [199]ERAETEADRESSE"
2150 PRINTSPC(11)"Z1   - ERSTE [218]EILE"
2160 PRINTSPC(11)"Z2   - LETZTE [218]EILE"
2170 GOSUB 1170: REM TASTATURABFRAGE
2180 :
2190 REM RENUMBER
2200 :
2210 GOSUB 1160: REM BILDSCHIRM
2220 PRINT""FO$"![206][197][215] Z1,SW"
2230 PRINT""FU$"[206]UMMERIERT DIE [218]EILENNUMMERN"
2240 PRINTSPC(11)"EINES [208]ROGRAMMS UM."
2250 PRINT""PA$"Z1 - [211]TARTZEILE"
2260 PRINTSPC(11)"SW - [211]CHRITTWEITE"
2270 GOSUB 1170: REM TASTATURABFRAGE
2280 :
2290 REM OLD
2300 :
2310 GOSUB 1160: REM BILDSCHIRM
2320 PRINT""FO$"![207][204][196]"
2330 PRINT""FU$"[200]OLT EIN DURCH [206][197][215] ODER [210][197][211][197][212]"
2340 PRINTSPC(11)"VERSTECKTES  [208]ROGRAMM  WIEDER"
2350 PRINTSPC(11)"ZURUECK."
2360 PRINT""PA$"KEINE"
2370 GOSUB 1170: REM TASTATURABFRAGE
2380 :
2390 REM ALOAD
2400 :
2410 GOSUB 1160: REM BILDSCHIRM
2420 PRINT""FO$"![193][204][207][193][196] AD1,"CHR$(34)"[206][193][205][197]"CHR$(34)" [,GA]"
2430 PRINT""FU$"[204]AEDT EIN ABSOLUTES [198]ILE AN"
2440 PRINTSPC(11)"DIE [193]DRESSE AD1."
2450 PRINT""PA$"[206][193][205][197] - [208]ROGRAMMNAME"
2460 PRINTSPC(11)"GA   - [199]ERAETEADRESSE"
2470 PRINTSPC(11)"AD1  - [211]TARTADRESSE"
2480 PRINT""BE$"![193][204][207][193][196] 51445,"CHR$(34)"[215].[212][207][207][204].[207]"CHR$(34)",8"
2490 PRINTSPC(11)"[204]AEDT [215][207][210][203][160][212][207][207][204] ABSOLUT."
2500 GOSUB 1170: REM TASTATURABFRAGE
2510 :
2520 REM ASAVE
2530 :
2540 GOSUB 1160: REM BILDSCHIRM
2550 PRINT""FO$"![193][211][193][214][197] AD1,AD2,"CHR$(34)"[206][193][205][197]"CHR$(34)" [,GA]"
2560 PRINT""FU$"[211]PEICHERT DEN [194]EREICH ZWI-"
2570 PRINTSPC(11)"SCHEN AD1 UND AD2 ABSOLUT."
2580 PRINT""PA$"[206][193][205][197] - [208]ROGRAMMNAME"
2590 PRINTSPC(11)"GA   - [199]ERAETEADRESSE"
2600 PRINTSPC(11)"AD1  - [211]TARTADRESSE"
2610 PRINTSPC(11)"AD2  - [197]NDADRESSE"
2620 PRINT""BE$"![193][211][193][214][197] 1024,2023,"CHR$(34)"[211][195][210][197][197][206]"CHR$(34)",8"
2630 PRINTSPC(11)"[211]PEICHERT DEN [194]ILDSCHIRM."
2640 GOSUB 1170: REM TASTATURABFRAGE
2650 :
2660 REM FIND
2670 :
2680 GOSUB 1160: REM BILDSCHIRM
2690 PRINT""FO$"![198][201][206][196] "CHR$(34)"[211][212][210][201][206][199]"CHR$(34)
2700 PRINT""FU$"[204]ISTET ALLE [208]ROGRAMMZEILEN"
2710 PRINTSPC(11)"MIT [201]NHALT "CHR$(34)"[211][212][210][201][206][199]"CHR$(34)"."
2720 PRINT""PA$"[211][212][210][201][206][199] - [211]UCHBEGRIFF"
2730 PRINT""BE$"![198][201][206][196] "CHR$(34)"[199][207][212][207] 1270"CHR$(34)
2740 PRINTSPC(11)"[204]ISTET ALLE [218]EILEN, IN DENEN"
2750 PRINTSPC(11)"DER [194]EFEHL [199][207][212][207] 1270 STEHT."
2760 GOSUB 1170: REM TASTATURABFRAGE
2770 :
2780 REM HEXDEZ
2790 :
2800 GOSUB 1160: REM BILDSCHIRM
2810 PRINT""FO$"$ HEX"
2820 PRINT""FU$"[215]ANDELT EINE HEXADEZIMALE"
2830 PRINTSPC(11)"IN EINE DEZIMALE [218]AHL UM."
2840 PRINT""PA$"HEX - HEXADEZIMALE [218]AHL"
2850 PRINT""BE$"[208][207][203][197] $[196]000,0"
2860 PRINTSPC(11)"[208][207][203][197]T EINE 0 NACH 53248."
2870 GOSUB 1170: REM TASTATURABFRAGE
2880 :
2890 REM ESCAPE
2900 :
2910 GOSUB 1160: REM BILDSCHIRM
2920 PRINT"[212][193][211][212][197]:     [195][207][205][205][207][196][207][210][197]/_
2930 [153]""FU$"PEEKRINGT DEN LENOMPUTER ZURUECK"
2940 [153][166]11)"IN DEN VALINSCHALTZUSTAND."
2950 [153]"ATNLENLEFT$(null)(null)(null)CHR$:   PEEKEI VERSEHENTLICHEM STR$RUECKEN:"
2960 [153][166]11)"(null)(null)(null) 51445 UND !(null)(null)STR$."
2970 [141] 1170: [143] TASTATURABFRAGE
2980 :
2990 [137] 1080