10 REM   ****************************
20 REM   ****************************
30 REM   **                        **
40 REM   ** JOHANN AUER            **
50 REM   ** HERMANN-HILLER-STR. 54 **
60 REM   ** 8263 BURGHAUSEN        **
70 REM   **                        **
80 REM   ****************************
90 REM   ****************************
100 :
110 :
120 :
130 REM *******************************
140 REM *******FILE-ORGANISATION*******
150 REM *******************************
160 :
170 GOSUB280:REM ***INITIALISIERUNG****
180 :
190 GOSUB460:REM ********MENUE*********
200 :
210 ONAGOTO800,990,1380,1710,2160,2900,3460
220 :
230 REM *******************************
240 REM *******FILE-ORGANISATION*******
250 REM *******************************
260 :
270 :
280 REM ********INITIALISIERUNG********
290 :
300 DIMFT$(3):DIMA$(7):A$(6)="[161][157][161][146] [158]":A$(7)="[146] [144][161][157][145][161]"
310 RF=53280:HF=RF+1:A$="":NU$="00000000.......":EB=-1:N3=0:RESTORE
320 DI$="D"+CHR$(105)+CHR$(115)+CHR$(107)+CHR$(101)+CHR$(116)+CHR$(116)
330 DI$=DI$+CHR$(101)+CHR$(110)+CHR$(110)+CHR$(97)+CHR$(109)++CHR$(101)+":"
340 FORI=1TO40:READQ:A$=A$+CHR$(Q):NEXT
350 A$(0)=LEFT$(A$,9):A$(1)=MID$(A$,10,4):A$(2)=MID$(A$,14,10)
360 A$(3)=MID$(A$,24,5):A$(4)=MID$(A$,29,7):A$(5)=RIGHT$(A$,5)
370 DATA70,105,108,101,110,97,109,101,58,84,121,112,58,70,105
380 DATA108,101,108,123,110,103,101,58,83,112,117,114,58,83,101
390 DATA107,116,111,114,58,66,121,116,101,58
400 FT$(0)="REL":FT$(1)="USR":FT$(2)="PRG":FT$(3)="SEQ"
410 LZ$="--- --- --- --- --- --- ---          "
420 PRINTCHR$(8);:POKE788,52
430 RETURN
440 :
450 :
460 REM *************MENUE*************
470 :
480 POKERF,0:POKEHF,11:PRINTCHR$(14)"[147]"TAB(11);
490 PRINT"[159][198][201][204][197]-[207][210][199][193][206][201][211][193][212][201][207][206]":PRINTTAB(11)"[144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
500 PRINT"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
510 PRINTA$(6)"[199]ANZES [198]ILE [144].................... [158]1"A$(7)
520 PRINTA$(6)"[197]INZELNE [194]LOECKE [144]............... [158]2"A$(7)
530 PRINTA$(6)"[194]YTEREIHEN [144]..................... [158]3"A$(7)
540 PRINTA$(6)"[194]LOCKBELEGUNG VON [198]ILES [144]........ [158]4"A$(7)
550 PRINTA$(6)"[196]IREKTORY [144]...................... [158]5"A$(7)
560 PRINTA$(6)"[194][193][205] [144]............................ [158]6"A$(7)
570 PRINTA$(6)"[197][206][196][197] [144]........................... [158]7"A$(7)
580 PRINT"[161][157][146][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][145][157][161]"
590 PRINT"   [159][201]HRE [215]AHL?[158] ";
600 GETEI$:IFEI$<>""THEN620
610 PRINT" [157]";:FORT=1TO150:NEXT:PRINT"[175][157]";:FORT=1TO150:NEXT:GOTO600
620 A=VAL(EI$)::IFA<1ORA>7THEN600
630 PRINTEI$:FORT=1TO1000:NEXT
640 IFA=7ORSP>0THENRETURN
650 PRINT"[145]   [158][193]USGABE AUF [144][197][208][211][207][206][158]-[196]RUCKER [144][210][216]-80[158]"
660 PRINT"   MIT [144][196][193][212][193]-[194][197][195][203][197][210][158] [201]NTERFACE!":FORT=1TO2500:NEXT
670 PRINT"[145][145]   [144][196]RUCKER EINSCHALTEN UND [208]APIER    "
680 PRINT"   POSITIONIEREN!!!            "
690 PRINT"   [158][198]ERTIG [144].................... [158][198]1"
700 GOSUB5180
710 OPEN1,4,1:POKE768,61
720 PRINT#1,CHR$(7);:CLOSE1
730 POKE768,139
740 IFST<>-128THEN760
750 GOTO700
760 OPEN4,4,1:GOSUB3960
770 RETURN
780 :
790 :
800 REM**********GANZES FILE***********
810 :
820 PRINT"[147]           [144][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
830 PRINT"           >>>[199]ANZES [198]ILE[144]<<<"
840 PRINT"           [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
850 GOSUB5230
860 AB=0:N=0:BN=1:GOTO4770
870 GOSUB4050
880 AN=0:EN=255
890 BP=0:GOSUB3830:GOSUB3870
900 IFS1=0THENN=1:EN=S2
910 GOSUB4390:PRINT#4:PRINT#4:GOSUB4910
920 IFN=1THENN=0:GOTO940
930 SP=S1:SE=S2:BN=BN+1:GOSUB4100:GOTO890
940 GOSUB3930:PRINT#4:PRINT#4
950 IFAB=1THENGOSUB5060
960 BN=0:GOTO190
970 :
980 :
990 REM********EINZELNE BLOECKE********
1000 :
1010 PRINT"[147]         [144][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1020 PRINT"         >>>[197]INZELNE [194]LOECKE[144]<<<"        "
1030 [153]"         FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
1040 [141]5230
1050 [153]" STOPVALRIGHT$(null)CHR$ATNPEEKVAL:":[153]" OPEN(null)PUR/(null)EKTOR STOP........... OPEN1"
1060 [153]" ASCILENAME/PEEKLOCKNR. STOP..... OPEN2"
1070 [133]" STOP>>> SYS";E$
1080 E[178][181]([197](E$)):[139]E[179]1[176]E[177]2[167]1100
1090 [145]E[137]1110,1190
1100 [153]"ON          ONON":[137]1070
1110 [133]" STOP(null)PUR/(null)EKTOR: SYS";SP$,SE$
1120 SP[178][181]([197](SP$)):SE[178][181]([197](SE$)):I[178]SP:[141]3390
1130 [139](SP[178][177]1[175]SP[179][178]35)[175](SE[178][177]0[175]SE[179][178]MSE)[167]1160
1140 [153]"ON";:[129]T[178]1[164]38:[153]" ";:[129]T1[178]1[164]5:[130]T1:[130]T
1150 [153]"ONON":[137]1110
1160 [141]3780:BP[178]0:[141]3810:BN[178]0
1170 [139]A[178]3[167]1460
1180 N2[178]1:[137]1220
1190 N2[178]0:[137]4770
1200 [137]4970
1210 SP[178]S1:SE[178]S2
1220 [141]3830:[141]3870:AN[178]0:EN[178]255:[139]S1[178]0[167]EN[178]S2
1230 [139]N2[178]1[167][141]4100:[137]1250
1240 [141]4050
1250 N2[178]0:[141]4390:[152]4:[152]4:[152]4
1260 [141]5060
1270 [153]" STOP(null)EITERER PEEKLOCK   SYSMID$/(null)?";:[141]5110
1280 [139]A$[178]"J"[167]1300
1290 [141]3930:BN[178]0:[137]190
1300 [139]E[178]1[167]1330
1310 [153]" STOPCHR$LEICHES ASCILE    SYSMID$/(null)?";:[141]5110
1320 [139]A$[178]"J"[167]1340
1330 N2[178]0:[141]3930:[137]990
1340 N2[178]1:S1[178]E1:S2[178]E2
1350 [153]"LOAD";:[137]1200
1360 :
1370 :
1380 [143]***********BYTEREIHEN**********
1390 :
1400 [153]"LOAD            STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
1410 [153]"            >>>PEEKYTEREIHENSTOP<<<"
1420 [153]"            FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
1430 [141]5230
1440 N3[178]0:[137]1050
1450 SP[178]S1:SE[178]S2:[141]3830
1460 [133]"STOPVALRSTES PEEKYTE:  SYS";EB
1470 [139]EB[179]0[176]EB[177]255[167][141]1510:[137]1460
1480 [133]"STOP(null)ETZTES PEEKYTE: SYS";LB
1490 [139]LB[179]0[176]LB[177]255[176]LB[179]EB[167][141]1510:[137]1480
1500 [137]1520
1510 [153]"ON";[163]14);"          ONON":[142]
1520 [139]N3[179][177]0[167][137]1670
1530 [139]E[178]1[167][141]4100:[137]1550
1540 [141]4050
1550 AN[178]EB:EN[178]LB:[141]4390
1560 [153]"LOAD";:[141]5060
1570 [153]"STOP(null)EITERE (null)EIHE    SYSMID$/(null)?";:[141]5110
1580 [139]A$[178]"J"[167]1600
1590 [141]3930:[152]4:[152]4:[152]4:EB[178][171]1:N3[178]0:[137]190
1600 [153]"STOPCHR$LEICHER PEEKLOCK   SYSMID$/(null)?";:[141]5110
1610 [139]A$[178]"J"[167]N3[178]1:[153]"";:[137]1460
1620 [152]4:[152]4
1630 [139]E[178]1[167]1660
1640 [153]"STOPCHR$LEICHES ASCILE    SYSMID$/(null)?";:[141]5110
1650 [139]A$[178]"J"[167]N3[178]2:S1[178]E1:S2[178]E2:[153]"";:[137]4970
1660 [141]3930:[152]4:[137]1380
1670 [139]N3[178]1[167]1550
1680 [141]4100:[137]1550
1690 :
1700 :
1710 [143]*********BLOCKBELEGUNG*********
1720 :
1730 [153]"LOAD          STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
1740 [153]"          >>>PEEKLOCKBELEGUNGSTOP<<<"
1750 [153]"          FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
1760 [141]5230:[137]4770
1770 [153]"ASC(null)(null)(null)ATN(null):  PEEKLOCKNUMMER":[153]" STOPUSRUSRUSRUSRUSRUSR   TANTANTANTANTANTANTANTANTANTANTAN"
1780 [153]"          (null)PUR/(null)EKTOR"
1790 [141]4050:[152]4:RE[178]10:RD[178]295:X1[178]39:X2[178]1
1800 AR[178][181](FL[173]10[170]0.95):[141]4300
1810 [129]I[178]1[164]AR:[152]4,"      ";
1820 [139]FL[173]10[178][181](FL[173]10)[167]1840
1830 [139]I[178]AR[167][141]2120
1840 J[178]0
1850 J[178]J[170]1:SU[178](I[171]1)[172]10[170]J:BN$[178][196](SU)
1860 L3[178][195](BN$)[171]1:BN$[178]" "[170][200](NU$,3[171]L3)[170][201](BN$,L3)[170]" "
1870 [152]4,BN$;
1880 [139]J[170]0.5[178][177]RE[167]1920
1890 [152]4,[199](27);"K";[199](5);[199](0);:A(3)[178]254
1900 [129]IJ[178]1[164]5:[152]4,[199](A(IJ));:[130]IJ
1910 [137]1850
1920 C$[178]"3":C3[178]20:[141]4030:[152]4
1930 [152]4,"      ";:[152]4,[199](27);"K";[199](X1);[199](X2);
1940 [129]IJ[178]1[164]RD:[152]4,[199](64);:[130]IJ:C3[178]8:[141]4030:[152]4
1950 C3[178]40:[141]4030:[152]4,"      ";
1960 J[178]0:SS[178]0
1970 J[178]J[170]1:SP$[178][196](S1):SE$[178][196](S2):[139]S1[178]0[167]SS$[178]" SSB ":SS[178]SS[170]1:[137]2000
1980 L4[178][195](SP$)[171]1:L5[178][195](SE$)[171]1
1990 SS$[178][200](NU$,2[171]L4)[170][201](SP$,L4)[170]"/"[170][200](NU$,2[171]L5)[170][201](SE$,L5)
2000 [152]4,SS$;
2010 [139]J[170]0.5[178][177]RE[167]2040
2020 [152]4,[199](27);"K";[199](5);[199](0);:A(3)[178]255
2030 [129]IJ[178]1[164]5:[152]4,[199](A(IJ));:[130]IJ:[139]S1[178]0[167]1970
2040 [139]S1[178]0[167]2060
2050 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[141]3870:[139]J[179]RE[167]1970
2060 [152]4:[130]I:[152]4:[141]4320:[141]3930
2070 [141]4220:[152]4,"GESAMTL"[199](91)"NGE:";:[141]4270
2080 [152]4,(FL[171]1[171]SS)[172]254[170]S2"BYTES":[152]4:[152]4:[152]4:[152]4
2090 [153]"";:[141]5060:[153]"STOP(null)EITERES ASCILE    SYSMID$/(null)?";:[141]5110
2100 [139]A$[178]"J"[167]1710
2110 [137]190
2120 RE[178]10[172](FL[173]10[171][181](FL[173]10)):RD[178][181](RE[172]29.5[170]0.5)
2130 X1[178]RD[171][181](RD[173]256)[172]256:X2[178][181](RD[173]256):[142]
2140 :
2150 :
2160 [143]***********DIREKTORY***********
2170 :
2180 [153]"LOAD            STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
2190 [153]"            >>>STR$IREKTORYSTOP<<<"
2200 [153]"            FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[141]5230:[141]5280
2210 [153]" STOPATNPEEK(null)(null)VAL(null)(null)(null)(null)CHR$VAL(null):":[153]" SYSPEEK(null).   STOP- OPENASCILELAENGE IN PEEKLOECKEN;"
2220 [153]" SYSPEEK(null)(null)VAL(null) STOP- OPENUNGEFAEHRE ASCILELAENGE IN                PEEKYTES ";
2230 [153]"(PEEK(null)*254);":[153]" SYS1.STR$PEEK. STOP- OPEN1. STR$ATENBLOCK DES ASCILES;"
2240 [153]" SYS(null)(null)(null)   STOP- OPENASCILETYP.":[153]" STOP(null)UR BEI RELATIVEN STR$ATEIEN:"
2250 [153]" SYS1.(null)(null)PEEK STOP- OPEN1.(null)IDE-(null)EKTOR-PEEKLOCK;"
2260 [153]" SYS(null)L    STOP- OPEN(null)ECORDLAENGE."
2270 [141]3780:[152]4,"     ";
2280 [141]4240:C$[178]"W":C3[178]1:[141]4030
2290 [152]4,"DIREKTORY":[152]4:C3[178]0:[141]4030:[141]4270
2300 [141]4300:[152]4,"      GN  AUFZ.-DICHTE     DOS   ";
2310 [152]4,"ANZAHL BL"[199](92)"CKE   SPUR  SEKT."
2320 [152]4,"      08  256 BYTES/SEKT.  V2.6  683 (664 FREI)  0018  01-18"
2330 [152]4
2340 [141]5320:[141]3930:[141]4320
2350 [152]4,"     ";:[141]4240:[152]4,DI$;:[141]4270:[152]4,DN$;
2360 [141]4240:[152]4,"ID:";:[141]4270
2370 [152]4,ID$:[152]4
2380 [152]4,"     NR.  FILENAME          BL.  BYTES";
2390 [152]4,"  1.DB.   TYP":[141]4340:[152]4,"     ";
2400 [129]I[178]1[164]46:[152]4,"-";:[130]I:[152]4
2410 ET$[178]"":I[178]0:FB[178]0:SP[178]18:SE[178]1:BP[178]0:[141]3810
2420 [141]3870:BP[178]2:[141]3840
2430 [129]J[178]1[164]8:I[178]I[170]1
2440 [129]J1[178]1[164]32:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
2450 ET$[178]ET$[170]A$:[130]J1:ET$[178][200](ET$,30)
2460 FT[178][198]([200](ET$,1)):F1[178]FT:[139]FT[178]0[167]I[178]I[171]1:[137]2650
2470 EN$[178][200](NU$,4[171][195]([196](I)))[170][201]([196](I),[195]([196](I))[171]1)
2480 [139]FT[179]128[167]OF$[178]"*"
2490 OF$[178]" "
2500 FT[178](F1[176]128)[175]135:FT$[178]OF$[170]FT$(132[171]FT)
2510 AS[178][198]([202](ET$,2,1)):SP$[178][200](NU$,3[171][195]([196](AS)))
2520 SP$[178]SP$[170][201]([196](AS),[195]([196](AS))[171]1)
2530 AS[178][198]([202](ET$,3,1)):SE$[178][200](NU$,3[171][195]([196](AS)))
2540 SE$[178]SE$[170][201]([196](AS),[195]([196](AS))[171]1)
2550 DB$[178]SP$[170]"/"[170]SE$
2560 F$[178][202](ET$,4,16)
2570 AS[178][198]([201](ET$,1))[172]256[170][198]([202](ET$,29,1)):FB[178]FB[170]AS
2580 LA$[178][200](NU$,4[171][195]([196](AS)))[170][201]([196](AS),[195]([196](AS))[171]1)
2590 AS[178](AS[172]256)[171](AS[172]2)[171]127
2600 BY$[178][200](NU$,6[171][195]([196](AS)))[170][201]([196](AS),[195]([196](AS))[171]1)
2610 [152]4,"     "EN$"  "F$"  "LA$;
2620 [152]4,"  "BY$"  "DB$"  "FT$;
2630 [139][201](FT$,3)[178]"REL"[167][141]2780
2640 [152]4
2650 ET$[178]"":[130]J
2660 [139]S1[178]0[167]2680
2670 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[137]2420
2680 FB[178]664[171]FB:[141]4360
2690 [152]4:[141]4300:[152]4,"      ";
2700 [152]4,"FREIE BL"[199](92)"CKE:"FB"  IN BYTES:"(FB[172]254);
2710 [152]4,"  FREIE EINTR"[199](91)"GE:"144[171]I:[152]4:[152]4:[152]4:[152]4
2720 [141]4320:[141]3930
2730 [141]5060
2740 [153]"STOP(null)EITERE STR$ISKETTE SYSMID$/(null)?";
2750 [141]5110
2760 [139]A$[178]"J"[167]2160
2770 [137]190
2780 AS[178][198]([202](ET$,20,1)):SP$[178][200](NU$,3[171][195]([196](AS)))
2790 SP$[178]SP$[170][201]([196](AS),[195]([196](AS))[171]1)
2800 AS[178][198]([202](ET$,21,1)):SE$[178][200](NU$,3[171][195]([196](AS)))
2810 SE$[178]SE$[170][201]([196](AS),[195]([196](AS))[171]1)
2820 DB$[178]" "[170]SP$[170]"/"[170]SE$
2830 AS[178][198]([202](ET$,22,1)):RL$[178][200](NU$,4[171][195]([196](AS)))
2840 RL$[178]" "[170]RL$[170][201]([196](AS),[195]([196](AS))[171]1)
2850 [141]4300:[152]4,"   1.SSB:";:[141]4320:[152]4,DB$;
2860 [141]4300:[152]4,"   R"[199](108)":";:[141]4320:[152]4,RL$;
2870 [142]
2880 :
2890 :
2900 [143]**************BAM**************
2910 :
2920 [153]"LOAD              STOPPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
2930 [153]"              >>>PEEK ATN (null)STOP<<<":[153]"              FREFREFREFREFREFREFREFREFREFREFRE"
2940 [153]"         SYS(STOPPEEKSYSLOCK STOPATNSYSVAILABLE STOP(null)SYSAP)"
2950 [153]" STOPASC(null)(null)(null)ATN(null): OPENHORIZONTAL STOP- OPEN(null)EKTOREN"
2960 [153]"         VERTIKAL   STOP- OPEN(null)PUREN"
2970 [153]"STOP(null)VALRIGHT$LENLEFT$VAL(null)PEEKVALSTR$VAL(null)(null)(null)(null)CHR$: OPEN'*'STOP=OPENPEEKLOCK BELEGT;"
2980 [153][163]19)"OPEN'-'STOP=OPENPEEKLOCK FREI;"
2990 [153][163]19)"OPEN'/'STOP=OPENPEEKLOCK NICHT VOR-":[153][163]23)"HANDEN."
3000 [141]5230:[141]5280
3010 T1$[178]"":L$[178]"":[141]3780:[141]5320:[152]4,"     ";
3020 [141]4240:C$[178]"W":C3[178]1:[141]4030
3030 [152]4,"BLOCKBELEGUNGSPLAN":[152]4:C3[178]0:[141]4030:[141]4270
3040 C$[178]"3":C3[178]24:[141]4030:[152]4,"     ";:[141]4240:[152]4,DI$;
3050 [141]4270:[152]4,DN$;:[141]4240:[152]4,"ID:";:[141]4270
3060 [152]4,ID$
3070 [152]4:[152]4,"     S"[199](101)[199](107)[199](116)[199](111)[199](114);
3080 [152]4,"                 1 1 1 1 1 1 1 1 1 1 2   FREIE"
3090 [152]4,"     "[199](112)"  0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0   ";
3100 [152]4,"BL"[199](92)"CKE":[152]4,"     "[199](117)
3110 GF[178]0:BP[178]4:[141]3840
3120 [129]I[178]1[164]35:[139]I[178]1[167]3380
3130 [141]3390:[139]I[179]10[167][152]4,"     "I;:[137]3150
3140 [152]4,"    "I;
3150 [129]J[178]1[164]4:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
3160 AC[178][198](A$):[139]J[178]1[167]FB[178]AC:GF[178]GF[170]FB:[137]3210
3170 T1[178]2[172](AC[173]2[171][181](AC[173]2)):T1$[178][201]([196](T1),1)
3180 L$[178]L$[170]T1$:AC[178][181](AC[173]2):[139]AC[178]0[167]3200
3190 [137]3170
3200 L$[178]L$[170][200](NU$,8[171]([195](L$)[171](J[171]2)[172]8)):[137]3220
3210 [139]I[178]18[167]GF[178]GF[171]FB
3220 [130]J
3230 [129]J[178]1[164]21:[139]J[179][178]MSE[167]3250
3240 [152]4,"/ ";:[137]3270
3250 [139][202](L$,J,1)[178]"0"[167][152]4,"* ";:[137]3270
3260 [152]4,"- ";
3270 [130]J:[139]FB[179]10[167][152]4,"  0"[201]([196](FB),1):[137]3290
3280 [152]4," "FB
3290 L$[178]"":[130]I
3300 [129]I[178]1[164]51:[152]4," ";:[130]I:[139]GF[177]99[167][152]4,"---":[137]3320
3310 [152]4," --"
3320 [129]I[178]1[164]54[171][195]([196](GF)):[152]4," ";:[130]I:[152]4,GF:GF[178]0
3330 [141]4360:[152]4:[152]4:[152]4
3340 [141]3930:[141]5060
3350 [153]"STOP(null)EITERE STR$ISKETTE SYSMID$/(null)?";:[141]5110
3360 [139]A$[178]"J"[167]2900
3370 [137]190
3380 MSE[178]21:[152]4,"     "[199](114)"1 ";:[137]3150
3390 [139]I[178][177]1[175]I[179][178]17[167]MSE[178]21:[137]3430
3400 [139]I[178][177]18[175]I[179][178]24[167]MSE[178]19:[137]3430
3410 [139]I[178][177]25[175]I[179][178]30[167]MSE[178]18:[137]3430
3420 [139]I[178][177]31[175]I[179][178]35[167]MSE[178]17
3430 [142]
3440 :
3450 :
3460 [143]*************ENDE**************
3470 :
3480 [153]"LOAD"[199](9);:[160]4:[151]HF,0
3490 [151]788,49:[156]:[137]5430
3500 :
3510 :
3520 [143]*******UP FILE VORHANDEN*******
3530 SP[178]18:SE[178]1:BP[178]0:P$[178]""
3540 [141]3780
3550 [141]3810:[141]3870
3560 BP[178]2:[141]3840
3570 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
3580 [139][198](A$)[178]0[167]3660
3590 [161]#3,A$,A$
3600 [129]I[178]1[164]16
3610 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
3620 [139]A$[178][199](160)[167]3640
3630 P$[178]P$[170]A$:[130]
3640 [153]"ON                  ":[153]"ON"P$
3650 [139]F$[178]P$[167]P$[178]"":[137]3700
3660 BP[178]BP[170]32:[139]BP[177]226[167]P$[178]"":[137]3680
3670 [141]3840:P$[178]"":[137]3570
3680 [139]S1[178]0[167][141]3930:[137]4840
3690 [141]3930:SP[178]S1:SE[178]S2:BP[178]0:[137]3550
3700 BP[178]BP[170]1:[141]3840
3710 [141]3870:SP[178]S1:SE[178]S2
3720 BP[178]BP[171]1:[141]3840:[141]3870:FT[178](S1[176]128)[175]135
3730 FT$[178]FT$(132[171]FT)
3740 BP[178]BP[170]28:[141]3840:[141]3870:FL[178]S1[170]256[172]S2
3750 FL$[178]"CA."[170][196](FL)[170]" BLOCKS":S1[178]SP:S2[178]SE
3760 [142]
3770 :
3780 [143]*****FLOPPY INITIALISIEREN*****
3790 [159]1,8,15,"I":[160]1:[142]
3800 :
3810 [143]************B-R/B-P************
3820 [159]2,8,15:[159]3,8,2,"#"
3830 [152]2,"U1 2 0 ";SP;SE
3840 [152]2,"B-P 2 ";BP
3850 [142]
3860 :
3870 [143]*********2 BYTES HOLEN*********
3880 [161]#3,A1$,A2$:[139]A1$[178]""[167]A1$[178][199](0)
3890 [139]A2$[178]""[167]A2$[178][199](0)
3900 S1[178][198](A1$):S2[178][198](A2$):ND[178]S1[172]S2
3910 [142]
3920 :
3930 [143]******KANAELE SCHLIESSEN*******
3940 [160]3:[160]2:[142]
3950 :
3960 [143]****DRUCKER INITIALISIEREN*****
3970 [152]4,[199](27);[199](64);
3980 [152]4,[199](27);[199](115);[199](1);
3990 [142]
4000 :
4010 [143]*******SCHRIFTART SENDEN*******
4020 [152]4,[199](C1);[199](C2);[199](C3);:[142]
4030 [152]4,[199](27);C$;[199](C3);:[142]
4040 :
4050 [143]*********KOPF DRUCKEN**********
4060 [141]4220:[152]4,A$(0);:[141]4270:[152]4,"   ";F$
4070 [141]4220:[152]4,A$(1);:[141]4270:[152]4,"        ";FT$
4080 [141]4220:[152]4,A$(2);:[141]4270:[152]4,"  ";FL$
4090 [139]A[178]4[167]4190
4100 [141]4220:[152]4,A$(3);:[141]4270:[152]4,SP;
4110 [139]SP[179]10[167][152]4," ";
4120 [152]4,"   ";:[141]4240:[152]4,A$(4);:[141]4270:[152]4,SE;
4130 [139]BN[177]0[167][152]4,"   ";:[137]4150
4140 [152]4," ":[137]4180
4150 [139]SE[179]10[167][152]4," ";
4160 [141]4240:[152]4,"B"[199](108)[199](111)[199](99)[199](107)":";
4170 [141]4270:[152]4,BN
4180 [141]4250:[152]4:[152]4,"     ";A$(5)
4190 [141]4280
4200 [142]
4210 :
4220 [143]*****SCHRIFTART AUSWAEHLEN*****
4230 [152]4,"     ";
4240 C$[178]"-":C3[178]1:[141]4030
4250 C$[178]"E":C3[178]0:[141]4030
4260 [142]
4270 C$[178]"-":[141]4030
4280 C$[178]"F":[141]4030
4290 [142]
4300 C$[178]"M":C3[178]0:[141]4030
4310 [142]
4320 C$[178]"P":C3[178]0:[141]4030
4330 [142]
4340 C$[178]"0":C3[178]0:[141]4030
4350 [142]
4360 C$[178]"2":C3[178]0:[141]4030
4370 [142]
4380 :
4390 [143]*******BYTES AUSDRUCKEN********
4400 [141]4340
4410 LZ[178]32[172](AN[173]8[171][181](AN[173]8)):L1$[178][200](LZ$,LZ):[139]EB[178][177]0[167]AN[178][181](EB[173]8)[172]8
4420 LZ[178]32[171]32[172]((EN[170]1)[173]8[171][181]((EN[170]1)[173]8)):[139]LZ[178]32[167]LZ[178]0
4430 L2$[178][200](LZ$,LZ)
4440 BP[178]AN:[141]3840
4450 [129]J[178]AN[164]EN[169]8:H$[178][196](J):L1[178][195](H$)
4460 H$[178]"      "[170][200](NU$,4[171]L1)[170][201](H$,L1[171]1)[170][199](62)[170]"   "
4470 [141]4300
4480 [152]4,H$;L1$;:L1$[178]"":I1$[178]""
4490 [129]I[178]0[164]7
4500 [161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
4510 [139]EB[178][177]0[175]J[170]I[179]EB[167]A$[178]".":[141]4730:[137]4560
4520 AS[178][198](A$):I$[178][196](AS):L2[178][195](I$)
4530 I$[178][200](NU$,4[171]L2)[170][201](I$,L2[171]1)[170]" ":I1$[178]I1$[170]I$
4540 [141]4650
4550 [139]J[170]I[178]EN[167]4570
4560 [130]I:I[178]I[171]1
4570 [139]J[170]I[178]EN[167]I1$[178]I1$[170]L2$:J[178]EN:L2$[178]""
4580 I1$[178]I1$[170]"  "
4590 [152]4,I1$;:[141]4320
4600 B$[178][200](B$,[195](B$))[170][201](NU$,8[171][195](B$))
4610 [152]4,B$:B$[178]""
4620 [130]J
4630 [141]4360:[152]4:[142]
4640 :
4650 [143]***OPERAT.IN ZEICHEN UMWAND.***
4660 [139]AS[179]32[176]AS[177]90[167]A$[178]".":[137]4750
4670 [139]AS[178]170[167]A$[178]"+":[137]4750
4680 [139]AS[178]171[167]A$[178]"-":[137]4750
4690 [139]AS[178]173[167]A$[178]"/":[137]4750
4700 [139]AS[178]172[167]A$[178]"*":[137]4750
4710 [139]AS[178]173[167]A$[178]"/":[137]4750
4720 [139]AS[178]177[167]A$[178]">":[137]4750
4730 [139]AS[178]178[167]A$[178]"=":[137]4750
4740 [139]AS[178]179[167]A$[178]"<"
4750 B$[178]B$[170]A$:[142]
4760 :
4770 [143]*******EINGABE FILENAME********
4780 [133]" STOPASCILENAME: SYS";F$
4790 [139][195](F$)[179][178]16[167]4820
4800 [153]"ON             ";
4810 [129]T[178]1[164][195](F$):[153]" ";:[130]T:[153]"ONON":[137]4780
4820 [141]3520:E1[178]S1:E2[178]S2
4830 [145]A[137]870,1200,1200,1770
4840 [153]" ASCRIGHT$(null)VALCLOSE(null)RIGHT$LENLEFT$(null)CLOSE(null)(null)(null)LEFT$ATN(null)STR$VAL(null)!"
4850 [153]" ASC1STOP=(null)EUE VALINGABE  ASC3STOP=(null)ENUE"
4860 [161]A$
4870 [139]A$[178][199](133)[167]210
4880 [139]A$[178][199](134)[167]190
4890 [137]4860
4900 :
4910 [143]******2 BLOCKS PRO SEITE*******
4920 AB[178]AB[170]1:[139]AB[178]2[167]4940
4930 [142]
4940 AB[178]0:[152]4,[199](12):[141]3960
4950 [142]
4960 :
4970 [143]******EINGABE BLOCKNUMMER******
4980 [153]"ASCILE BELEGT";FL" PEEKLOECKE!"
4990 [133]"STOPPEEKLOCKNUMMER:  SYS";BN:[139]BN[179]1[176]BN[177]FL[167][141]3930:[137]210
5000 N1[178]1
5010 [139]N1[178]BN[167]5040
5020 SP[178]S1:SE[178]S2:BP[178]0:[141]3830:[141]3870
5030 N1[178]N1[170]1:[137]5010
5040 [145]A[137]0,1210,1450
5050 :
5060 [143]******SEITENVORSCHUB J/N*******
5070 [153]"STOP(null)EITENVORSCHUB   SYSMID$/(null)?";:[141]5110
5080 [139]A$[178]"J"[167][141]4940
5090 [142]
5100 :
5110 [143]********TASTATURABFRAGE********
5120 [161]A$
5130 [139]A$[178]"J"[167][153]"CMDCMDCMDCMDOPENMID$":[137]5160
5140 [139]A$[178]"N"[167][153]"CMDCMDOPEN(null)":[137]5160
5150 [137]5120
5160 [129]T[178]1[164]1000:[130]T:[142]
5170 :
5180 [143]*********F1 - ABFRAGE**********
5190 [161]A$
5200 [139]A$[178][199](133)[167][142]
5210 [137]5190
5220 :
5230 [143]*******DISKETTE EINLEGEN*******
5240 [153]" SYS(null)U BEARBEITENDE STR$ISKETTE EINLEGEN!"
5250 [139]A[178]5[176]A[178]6[167][142]
5260 [129]T[178]1[164]1000:[130]T:[142]
5270 :
5280 [143]*******FERTIG .......F1********
5290 [153]" SYSASCERTIG STOP........................ SYSASC1"
5300 [141]5180:[142]
5310 :
5320 [143]****DISK.-NAME UND ID LESEN****
5330 SP[178]18:SE[178]0:BP[178]144:[141]3810
5340 D$[178]"":J[178]0
5350 [129]I[178]1[164]20:[161]#3,A$:[139]A$[178]""[167]A$[178][199](0)
5360 [139]J[177]0[167]5380
5370 [139]A$[178][199](160)[167]J[178]I[171]1:[137]5390
5380 D$[178]D$[170]A$
5390 [130]I
5400 DN$[178]" "[170][200](D$,J)[170]"  ":ID$[178]" "[170][201](D$,2)
5410 [142]
5420 :
5430 [128]