1000 REM" *** DI-DI-EDITOR V2.8 *** " 1010 REM DIETER TEMME, -03.01.1985- 1020 REM FREIHERRENSTR. 15 1030 REM 5100 AACHEN 1040 REM TEL. 0241/13415 1050 REM ---------------------------- 1060 FD=8:REM >> FLOPPY DEVICE << 1070 FT$="DEL SEQ PRG USR REL":REM FILETYPEN 1080 LB=256:B2=128:SC=64:BT=7:C$=CHR$(13):DE$=CHR$(20):ZE$=CHR$(0):TW$=CHR$(2) 1090 BR$="UA 2 ":BW$="UB 2 ":TE$="U0":MR$="M-R":MW$="M-W" 1100 CH$="":CC$="[147]":CR$="":CL$="[157]":CD$="":CU$="[145]":RV$="":RO$="[146]" 1110 BE$=CHR$(7):PP=59468:LE=0:PRINTCH$CH$CC$CHR$(142)CHR$(8)"BITTE WARTEN!" 1120 D$=CH$:FORI=1TO25:D$=D$+CD$:S$=S$+" ":Z$=Z$+CL$+CL$:FR=FRE(0):NEXT 1130 Z$=BE$+LEFT$(S$,36)+LEFT$(Z$,36):U$=CHR$(160):T$=U$ 1140 OPEN1,FD,15,TE$ 1150 GOSUB7000:BF$=CHR$(BF):DR$=CHR$(DR+48) 1160 GOSUB7500:T$=T$+LEFT$(S$,(WI-40)/2):T=LEN(T$)+1 1170 READR$:IFR$<>">S"GOTO1170 1180 DIMM$(18),B$(14):FORI=1TO18:READM$(I):NEXT:PRINTCC$; 1190 FORI=1TO9:PRINTT$M$(I):NEXT 1200 FORI=1TO11:PRINTT$M$(10):NEXT 1210 FORI=11TO15:PRINTT$M$(I):NEXT 1220 IFERTHENPRINTLEFT$(D$,24)TAB(T)RV$Z$ER$CH$CD$CD$CD$:IFER<3THENEND 1230 IFERTHENCLOSE1:OPEN1,FD,15:REM RE-INIT 1240 PRINTLEFT$(D$,6)TAB(T+11)DR$TAB(T+13)CT$TAB(T+23)F$ 1250 BZ$=T$+M$(14):IFC9THENPOKEC9,128 2000 REM $$$ EINGABE $$$ 2010 PR$=">":GOSUB8060:G$=K$:PR$="<" 2020 IFBZTHENLN=PEEK(C7):PRINTLEFT$(D$,24)BZ$:GOSUB8080:BZ=0 2030 IFG$="A"ORG$=" "THENGOSUB3000 2040 IFG$="L"THENGOSUB2800 2050 IFG$="X"THENG$="E":EX=1 2060 IFOP=0GOTO2220 2070 IFG$="B"THENGB=1:G$=C$:IFGZ=1THENGZ=0:GB=0:G$="E":EN=1 2080 IFG$="N"ORG$=CR$THENPRINTTAB(T+5);:IL=16:GOSUB8000:N$=IX$:PRINTCU$; 2090 IFG$="*"ORG$=":"THENIFFTTHENIFPT$>""THENIFCANDFT<>4THENGOSUB2500:PR=1 2100 IFG$="+"ORG$=";"ORG$="-"THENIFTY>1THENS=-(G$<>"-")*SC:PR=1 2110 IFG$="^"ORG$="@"THENIFZZ>0THENPRINTTAB(T)" "CU$:NG=NG+2:ZR=1:ZZ=ZZ-2:G$="_ 2120 [139]G$[178]"_"[176]G$[178]C$[176]G$[178]"="[167][139](EN[176]ER)[178]0[167][141]5000:[139]GB[167][139]ZZ[179]7[137]2120 2130 [139]EN[178]1[175]GB[178]1[167]GZ[178]1:PT$[178]" ":[153]CU$[163]T)">"CU$:[139]ZZ[167]ZZ[178]ZZ[171]1:EN[178]0 2140 [139]GZ[178]1[167]GB[178]0:[139]ER[178]0[137]2000 2150 [139]EN[178]1[137]2250 2160 [139]G$[178]"V"[167]LN[178][194](C7):VA[178]1:VO[178]1:[153][200](D$,22)[163]T[170]1)"+":[141]8080 2170 [139]G$[178]"E"[167]EN[178]1:[141]5000:[137]2250 2180 [139]PT$[178]""[137]2210 2190 [129]I[178]0[164]DT[171]1:[139]G$[178][202](FT$,I[172]4[170]1,1)[167]FT[178]I:I[178]DT:C[178]OC:PR[178]1:[139]FT[178]0[167]C[178]B2 2200 [130] 2210 : 2220 [139]OP[178]1[137]2260 2230 [139]G$[178]"I"[167][141]4000:[145][171](ER[178]0)[141]5240:[139]ER[137]1220 2240 [139]G$[178]"F"[167][141]3500 2250 [139]G$[178]"0"[176]G$[178]"1"[167][139][197](G$)[179][178]DR[167]DR$[178]G$:[153][200](D$,6)[163]T[170]11)G$ 2260 [139]EN[167][141]6000 2270 [139]PR[178]1[167][141]5190:PR[178]0 2280 [139]EX[178]1[167]ER[178]2:ER$[178]">>> PROGRAMMENDE 2290 IFERGOTO1220 2300 GB=0:GOTO2000 2500 REM $$$ FILE SCHLIESSEN $$$ 2510 PRINT#1,MR$CHR$(K+1)BF$TW$:GET#1,H$,I$:IFH$=""ORFT=4THENRETURN 2520 PRINTTAB(T)"*"CU$:OPEN3,FD,3,"#1":BG$=CHR$(BF+1):BK=0 2530 RT=ASC(H$):RS=ASC(I$+ZE$):PRINT#1,"UA"3;DR$RT;RS:BK=BK+1 2540 PRINT#1,MR$CHR$(3)BG$TW$:GET#1,H$,I$:IFH$""GOTO2530 2550 PRINT#1,MW$CHR$(K+28)BG$TW$CHR$((BK-32768)AND(LB-1))CHR$(BK/LB) 2560 IFH$>""THENPRINT#1,MW$ZE$BG$TW$ZE$ZE$:PRINT#1,"UB"3;DR$RT;RS 2570 VA=1:C=0:OC=C:CLOSE3:FR=FRE(0):RETURN 2800 REM $$$ LETTER ON/OFF $$$ 2810 IFRIGHT$(CT$,3)="001"THENPOKEPP,(PEEK(PP)AND253)OR(2-LE) 2820 IFRIGHT$(CT$,3)<>"001"THENPRINTCHR$(14-128*(LE>0)); 2830 LE=2-LE:RETURN 3000 REM $$$ ANLEITUNG $$$ 3010 LN=PEEK(C7):PRINTLEFT$(D$,7):OPEN3,3:FORI=0TO14:INPUT#3,B$(I):PRINTCL$ 3020 NEXT:PRINTLEFT$(D$,7)T$M$(16):FORI=0TO14:PRINTT$M$(17):NEXT:PRINTT$M$(18) 3030 IFAN=1THENRESTORE:PRINTLEFT$(D$,8)TAB(T)RV$Z$TAB(T+12)"BITTE WARTEN 3040 [135]R$:[139]R$[179][177]">A"[137]3040 3050 [153][200](D$,7):[129]I[178]0[164]4:[135]B$:[153][163]T)Z$B$:[130] 3060 [153][200](D$,12):[129]I[178]0[164]9:[135]B$:[153][163]T)Z$B$:[130]:[141]8060 3070 [135]B$:[139]B$[179][177]"*"[137]3060 3080 [153][200](D$,7)T$M$(7):[129]I[178]0[164]14:[153]B$(I):[130] 3090 [153]T$M$(13):[141]8080 3100 AN[178]1:[151]C0,0:[129]I[178]0[164]14:B$(I)[178]"":[130]:FR[178][184](0):[160]3:[142] 3500 [143] $$$ DISK-KOMMANDO $$$ 3510 [153][200](D$,24)T$M$(17)CU$C$[163]T)"@";:IL[178]35:IJ[178]1:[141]8000:IJ[178]0:BZ[178]1 3520 [139][200](IX$,1)[179][177]"U"[167][152]1,IX$:[137]8050 3530 [142] 4000 [143] $$$ START $$$ 4010 BR$[178][200](BR$,5)[170]DR$[170]",":BW$[178][200](BW$,5)[170]DR$[170]"," 4020 [153][200](D$,8)T$M$(8)CD$:[129]I[178]1[164]11:[153]T$M$(10):[130]:[153]CD$T$M$(12) 4030 [153][200](D$,24)[163]T)RV$Z$" BITTE DISKETTE EINLEGEN":[141]8060 4040 [152]1,"I"[170]DR$:VA[178]0:X1[178]10:X2[178]20:[141]8050:[139]ER[167][142] 4050 [153]CU$BZ$:[159]2,FD,2,"#0":[152]1,BR$TT;TS:[141]8050:[139]ER[167][142] 4060 [152]1,MR$TW$BF$[199](1):[161]#1,DO$:[139]DO$[179][177]DM$[137]4200 4070 [152]1,MR$[199](NB)BF$[199](16):[141]8030:[153][200](D$,8)[163]T[170]6); 4080 [141]8070:[153]C$CU$[163]T[170]6);:IL[178]16:[141]8000:N$[178]IX$ 4090 [152]1,MR$[199](NB[170]18)BF$[199](5[170](TY[178]1)):[141]8030:[153]CU$[163]T[170]30); 4100 [141]8070:[153]C$CU$[163]T[170]30);:IL[178]5[170](TY[178]1):[141]8000:[153] 4110 [152]1,MW$[199](NB)BF$[199](23[170](TY[178]1))N$"--"IX$:[152]1,BW$TT;TS:ZZ[178]0:OP[178]1 4120 ZB[178]0:VA[178]0:VO[178]0:LN[178][194](C7):[153][200](D$,22)[163]T[170]1)"-":ZT[178]TD:ZS[178]SD 4130 IL[178]16:[137]8080 4200 ER[178]3:ER$[178]">>> FALSCHES DISK-FORMAT":[142] 5000 [143] $$$ NAECHSTER EINTRAG $$$ 5010 [139]EN[178]1[137]5080 5020 [153][163]T)" ":[152]1,MW$[199](K[170]3)BF$[199](16)N$:[139]ZR[167][153]CU$CU$;:ZR[178]0 5030 [152]1,MW$[199](K)BF$[199](1)[199](S[176](B2[171]C)[176]FT) 5040 [139](OF[178]0[175]FT[177]0)[176](OF[177]0[175]FT[178]0)[167]VA[178]1:LN[178][194](C7) 5050 [139]VO[178]0[175]VA[178]1[167]LN[178][194](C7):[153][200](D$,22)[163]T[170]1)"+":[141]8080:VO[178]1 5060 [139]ZZ[179]7[167][152]1,MR$[199](ZZ[172]32[170]39)BF$[199](1):[161]#1,NF$ 5070 [139](NT[177]0[176](I[179]7[175]NF$[177]""))[167][141]8040 5080 [139]EN[178]1[167]ZZ[178]7 5090 ZZ[178]ZZ[170]1:[139]ZZ[177]7[137]5220 5100 K[178]ZZ[172]32[170]2:[152]1,MR$[199](K[170]3)BF$[199](16):[141]8030:[139]H$[178]""[167]EN[178]1:[142] 5110 N$[178]I$:[152]1,MR$[199](K)BF$[199](1):[161]#1,I$:FT[178][198](I$[170]ZE$) 5120 S[178]SC[175]FT:C[178]B2[171](B2[175]FT):FT[178](BT)[175]FT:OF[178]FT:OC[178]C:[139]FT[178]0[167]OC[178]0 5130 [153][163]T[170]5);:[139]NG[178]0[167]I$[178]N$:[141]8070 5140 [152]1,MR$[199](K[170]28)BF$TW$:[161]#1,K$,L$:BK[178][198](K$[170]ZE$)[170]LB[172][198](L$[170]ZE$) 5150 [139]NG[178]0[167][139]FT[179][177]0[167]ZB[178]ZB[170]BK 5160 [153]C$CU$[163]T)">"[201]([196](1000[170]BK),3);:[139]NG[167]NG[178]NG[171]1 5170 [152]1,MR$[199](K[170]1)BF$TW$:[161]#1,PT$,K$:[153][163]T[170]31); 5180 [153][201]([196](100[170][198](PT$[170]ZE$)),2)CR$[201]([196](100[170][198](K$[170]ZE$)),2); 5190 [153]C$CU$[163]T[170]25)" ";:[139]C[167][139]FT[167][153]CL$"*"; 5200 [153][202](FT$,FT[172]4[170]1,3)" ";:[139]S[177]0[175]TY[177]1[167][153]CL$"<"; 5210 [153]C$CU$;:FR[178][184](0):[142] 5220 [152]1,BW$ZT;ZS:[139]EN[178]0[167]ZS[178][198](BL$[170]ZE$):ZT[178]NT:[139]ZT[178]0[167]EN[178]1 5230 [139]EN[178]1[167][142] 5240 [152]1,BR$ZT;ZS:[152]1,MR$ZE$BF$TW$:[161]#1,TR$,BL$:NT[178][198](TR$[170]ZE$):ZZ[178]0 5250 [137]5100 6000 [143] $$$ ENDE $$$ 6010 [153][200](D$,24);:[139]VA[178]0[137]6040 6020 [153][163]T)Z$" UEBERPRUEFE BLOCKBELEGUNG"CU$:[152]1,"V"DR$:[141]8050 6030 [139]ER[167][142] 6040 [153]BZ$C$CU$CU$CU$[163]T[170]17)[201]([196](1000[170]ZB),3); 6050 [153][163]T[170]27)[201]([196](1000[170]FB[171]ZB),3)CR$CR$; 6060 [160]2:[159]2,FD,0,"$"[170]DR$[170]":"[170]ZE$:[161]#2,B$,B$,B$,B$,B$,B$ 6070 [161]#2,B$:[139]B$[177]""[137]6070 6080 [161]#2,B$,B$,K$,L$ 6090 [153][201]([196](1000[170][198](K$[170]ZE$)[170]LB[172][198](L$[170]ZE$)),3) 6100 [160]2:OP[178]0:EN[178]0:FR[178][184](0):[142] 7000 [143] $$$ FLOPPY-TYP $$$ 7001 [135]N:[134]F%(N):[129]I[178]0[164]N:[135]X:[152]1,MR$[199]((X[171]32768)[175]255)[199](X[173]256) 7002 [161]#1,I$:F%(I)[178][198](I$[170]ZE$):[130]:ER[178]0:TY[178]0:[152]1,TE$ 7003 J[178]0:[129]I[178]0[164]N:[135]X:[139]X[177][171]1[167][139]X[179][177]F%(I)[167]J[178]1 7004 [130]:[135]F$:[139]F$[179][177]"***"[167][135]DR,BF,TY:[139]J[137]7003 7005 [139]F$[178]"***"[167]ER[178]1:ER$[178]">>> FLOPPY-TYP UNBEKANNT":[142] 7006 [135]R$:[139]R$[179][177]">T"[137]7006 7007 [135]J,FB,DM$,TT,TS,TD,SD,NB,AT,DT:[139]J[179][177]TY[137]7007 7099 [139]TY[177]1[167][142] 7100 [135]R$:[139]R$[179][177]">M"[137]7100 7101 MR$[178]"UC:":DM$[178][199](1):I$[178][199](19)[170][199](1):[135]J 7102 [129]I[178]0[164]J:[135]J:[152]1,MW$[199](I)I$[199](J):[130]:[142] 7200 [143] +++ DATA: FLOPPY-TYPEN +++ 7201 [131] 2,65535,16618,16556:[143] FPEEKS 7202 [143] F%0,F%1,F%2,"NAME DOS",DR,BF,TY 7203 [131] 226,-99,-99,"2040/3040V1.0",1,017,1 7204 [131] 213,-99,-99,"4040 V2.1",1,017,2 7205 [131] 242,-99,-99,"8050 V2.5",1,017,3 7206 [131] 254,-99,-99,"1541/2031V2.6",0,003,2 7207 [131] 198,000,-99,"4040 V2.7",1,017,2 7208 [131] 198,001,001,"8050 V2.7",1,017,3 7209 [131] 198,001,002,"8250 V2.7",1,017,4 7298 [131] -99,-99,-99,"***" 7299 [131]">T":[143] ERKENNUNG 7300 [143] +++ DATA: TYPEN-AUSWAHL +++ 7301 [143] TYP,BLKS,DOS,NAME ,DIREC,NBY,AT,DT,DOS 7302 [131] 1 , 670,-1-,18,00,18,01,144,37, 4 7303 [131] 2 , 664,"A",18,00,18,01,144,37, 5 7304 [131] 3 ,2052,"C",39,00,39,01, 6,78, 5 7305 [131] 4 ,4133,"C",39,00,39,01, 6,78, 5 7399 [131]">M":[143] ERKENNUNG 7400 [143] +++ DATA: 2040/3040 M-R +++ 7401 [131] 37,104,104,160,0,177,3,141,180,66,141,224,16,177,3,153,180,67,200,196 7402 [131] 5,144,246,169,13,153,180,67,200,32,153,231,169,181,133,93,76,7,253 7500 [143] $$$ COMPUTER-TYP $$$ 7501 [135]R$:[139]R$[179][177]">C"[137]7501 7502 [135]N:[134]C%(N):[129]I[178]0[164]N:[135]X:C%(I)[178][194](X):[130] 7503 J[178]0:[129]I[178]0[164]N:[135]X:[139]X[179][177]C%(I)[167]J[178]1 7504 [130]:[135]CT$:[139]CT$[178]"***"[167][153]CD$"?UNBEKANNTER COMPUTER";:[128] 7505 [135]WI,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9:[139]J[137]7503 7520 [139]CT$[178]"C=64"[167][151]53280,0:[151]53281,0:[143] BORDER&GROUND=SCHWARZ 7521 [139][201](CT$,3)[178]"001"[167][151]PP,12:[143] GROSS/GRAPHIK 7522 [139][201](CT$,3)[179][177]"001"[167][153][199](158);:[143] CURSOR=GELB 7598 [142] 7599 [131]">C":[143] ERKENNUNG 7600 [143] +++ DATA: COMPUTER-TYPEN +++ 7601 [131] 0,58453:[143] CPEEKS 7602 [143] C%0,NAME , WI, C0, C1, C2, C3, C4, C5, C6, C7, C8, C9 7603 [131] 136,"CBM 2001", 40,525,532,533,224,226,234,242,245,251,0 7604 [131] 152,"CBM 3001", 40,158,167,168,196,198,205,213,216,220,0 7605 [131] 032,"CBM 4001", 40,158,167,168,196,198,205,213,216,220,0 7606 [131] 032,"CBM 8001", 80,158,167,168,196,198,205,213,216,220,228 7607 [131] 189,"C=64" , 40,198,204,205,209,211,212,213,214,216,650 7608 [131] -99,"***" 8000 [143] $$$ INPUT ROUTINE $$$ 8001 [143] IL=MAX. LAENGE,IX$=EING. STRING 8002 IX[178][185](0)[170]IL[171]1:IY[178][194](C3)[170][194](C3[170]1)[172]LB[170]IX:[159]4,0:[151]C6,IX[170]1 8003 IP[178][194](IY[171]IX[170][185](0)):[151]C8,0:[151]C5,0:[151]C2,1:[151]C1,0 8004 [146]C0,15:[161]IY$:[151]C1,1:[151]IY[171]IX[170][185](0),IP:[139][194](IY)[178]96[167][151]IY,32 8005 [139]([198](IY$[170]ZE$)[175]127)[179]32[137]8008 8006 [139][185](0)[177]IX[137]8003 8007 [153]IY$;:[137]8003 8008 [139]IY$[178][199](148)[167][139][194](IY)[178]32[137]8006 8009 [139]IY$[178][199](141)[167][129]IZ[178]IY[171]IX[170][185](0)[164]IY:[151]IZ,32:[130]:IY$[178]C$ 8010 [139]IY$[178]C$[137]8017 8011 [139]IY$[178]RV$[176]IY$[178]RO$[137]8007 8012 [139]IY$[178]CR$[137]8006 8013 [139]IY$[178]CC$[167][129]IZ[178]IY[171]IL[170]1[164]IY:[151]IZ,32:[130]:IY$[178]CH$ 8014 [139]IY$[178]CH$[167][151]C4,IX[171]IL[170]1:[137]8003 8015 [139]IY$[179][177]DE$[175]IY$[179][177]CL$[137]8003 8016 [145]([185](0)[177]IX[171]IL[170]1)[170]2[137]8007,8003 8017 [150][165]AS(X)[178](X[175]63)[176]((X[175]64)[172]2)[176](((X[175]160)[178]0)[172][171]64):IX$[178]"":IX[178]0 8018 [129]IZ[178]IY[164]IY[171]IL[170]1[169][171]1:IY[178][165]AS([194](IZ)) 8019 [139]IX[176](IY[175]127)[171]32[167]IX$[178][199](IY)[170]IX$:IX[178]255 8020 [130] 8021 [139]IJ[178]0[167][139][195](IX$)[179]IL[167]IX$[178]IX$[170]U$:[137]8021 8022 [151]C6,WI[171]1:[153]:[160]4:[142] 8030 [143] $$$ INGET $$$ 8031 I$[178]"":[161]#1,H$:[139]H$[167][132]1,I$ 8032 I$[178]H$[170]I$:[142] 8040 [143] $$$ SCROLL UP $$$ 8041 SR[178]0:[139][194](C7)[179]X2[167][142] 8042 [153][200](D$,X1[170]1);:[159]3,3 8043 [132]3,X$:[153]CL$ 8044 [153]CU$CU$X$CD$ 8045 [139][194](C7)[179]X2[137]8043 8046 [153]CU$T$M$(10)CU$ 8047 [160]3:SR[178]1:[142] 8050 [143] $$$ DISK-FEHLER? $$$ 8051 [132]1,ER,ER$,TR,BL:[139]ER[178]0[167][142] 8052 ER$[178]"***"[170][196](ER)[170]":"[170]ER$[170]" " 8053 [139]TR[176]BL[167]ER$[178]ER$[170]"IN "[170][201]([196](100[170]TR),2)[170]","[170][201]([196](100[170]BL),2) 8054 BZ[178]1:OP[178]0:ER[178]4:[142] 8060 [143] $$$ TASTE $$$ 8061 L2[178]LN:LN[178][194](C7):PO[178][185](0):[153][200](D$,6)[163]T[170]5)PR$" "CL$; 8062 [151]C1,0:[151]C0,[171]([194](C0)[177]0):[146]C0,15:[161]K$:[151]C1,1 8063 K$[178][199]([198](K$[170]ZE$)[175]127):[151][194](C3)[170][194](C3[170]1)[172]LB[170][185](0),141 8064 [139]K$[179][177]C$[167][151]C8,1:[153]K$ 8065 [141]8080:[153][163]PO);:LN[178]L2:[142] 8070 [143] $$$ PRINT MIT STEUERZEICHEN $$$ 8071 [151]C8,[195](I$):[129]IZ[178]1[164][195](I$):IX[178][198]([202](I$,IZ)) 8072 [139](IX[175]127)[179][177]13[167][153][202](I$,IZ,1);:[137]8074 8073 [153]" ";:[151][194](C3)[170][194](C3[170]1)[172]LB[170][185](0)[171]1,13[171](IX[175]128)[172]64 8074 [130]:[142] 8080 [143] $$$ IN DIE RICHTIGE ZEILE $$$ 8081 [153][200](D$,LN[170]1);:[142] 8999 [131]">S":[143] ERKENNUNG 9000 [143] +++ DATA: SCHIRMBILD +++ 9001 [131]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTAN^ 9002 DATA"[221][178][192][174][178] [178][192][174][178] [176][192][174][178][192][174][178][176][178][174][176][192][174][178][192][174][146][221](C)1984[221] 9003 [131]"(null)(null) (null)(null)TANTAN(null) (null)(null)TANTAN-TAN (null) (null)(null) (null) (null) (null)-=EXPWAIT(null) BY (null) 9004 DATA"[221][173][192][189][177] [173][192][189][177] [173][192][189][173][192][189][177] [177] [173][192][189][177][173][189][146][221]D.TEMME[221] 9005 [131]"/TANTANTANTAN=TANTAN=TANTANTANTAN=TANTANTANTANTANTANTANTANTAN=TANTANTANTANTAN>TANTANTANTANTANTANTAN< 9006 DATA" V2.8[221]> [221]DR# [221] [221] [221] 9007 [131]"ORTANTANTANTAN>TANTAN>TANTANTANTAN>TANTANTANTANTANTANTANTANTAN>TANTAN=TANTANTANTANTANTANTANTANTANTAN< 9008 DATA"[221]NAME= [221]ID= [221] 9009 [131]"-TANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=>TANTANTANTAN=TANTAN=TANTAN< 9010 DATA"[221] [221] [221] [221] [221] [221] 9011 [131]"-TANTAN=TAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTAN>TANTANTANTANTAN>TANTAN>TANTAN< 9012 DATA"[221]V-[221]BLKS BENUTZT= [221]FREI= ( )[221] 9013 [131]"-TANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN< 9014 DATA"[221]A/L/X,I/F/01,N/D/SPUR/*/+-/_/B/^/V/E[221] 9015 [131]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP 9100 REM +++ DATA: RAHMEN (ANL) +++ 9101 DATA"[176][192][192][192][192][177][192][192][177][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][179] 9102 [131]"(null) (null) 9103 DATA"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179] 9499 [131]">A":[143] ERKENNUNG 9500 [143] +++ DATA: ANLEITUNG +++ 9501 [131]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ 9502 DATA"[221] DISK-DIRECTORY-EDITOR [221] 9503 [131]"(null) K U R Z A N L E I T U N G (null) 9504 DATA"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 9505 [131]" 9506 DATA" AUSGABE DIESER ANLEITUNG 9507 [131]" GROSS- ODER KLEINSCHRIFT 9508 DATA" START DES EDITORS 9509 [131]" EINGABE FLOPPY-KOMMANDO 9510 DATA"<0/1> LAUFWERKS-NUMMER FESTLEGEN 9511 [131]" (FALLS DOPPEL-LAUFWERK) 9512 DATA" NEUEN NAMEN EINGEBEN 9513 [131]" FILETYP NEU FESTLEGEN 9514 DATA" FILE LOESCHEN 9515 [131],+ 9516 [131]"<*> OFFENES FILE SCHLIESSEN 9517 DATA"<+/-> FILESCHUTZ SETZEN/AUFHEBEN 9518 [131]"<_/=/RET> EINTRAG WEITERGEHEN 9519 DATA" BLOCK WEITERGEHEN 9520 [131]"<^/@> EINTRAG ZURUECKGEHEN 9521 DATA" SPAETER 'VALIDATE' 9522 [131]" AUSSTIEG AUS EDITOR 9523 DATA" BEENDEN DES PROGRAMMS 9524 [131],,* 10000 [159]3,8,0,"$:$$ 10001 GET#3,A$:PRINTASC(A$+CHR$(0))A$:GOTO10001