home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / directory-editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  292 lines
  1. 1000 REM" *** DI-DI-EDITOR V2.8 *** "
  2. 1010 REM DIETER TEMME,   -03.01.1985-
  3. 1020 REM FREIHERRENSTR. 15
  4. 1030 REM 5100 AACHEN
  5. 1040 REM TEL. 0241/13415
  6. 1050 REM ----------------------------
  7. 1060 FD=8:REM >> FLOPPY DEVICE <<
  8. 1070 FT$="DEL SEQ PRG USR REL":REM FILETYPEN
  9. 1080 LB=256:B2=128:SC=64:BT=7:C$=CHR$(13):DE$=CHR$(20):ZE$=CHR$(0):TW$=CHR$(2)
  10. 1090 BR$="UA 2 ":BW$="UB 2 ":TE$="U0":MR$="M-R":MW$="M-W"
  11. 1100 CH$="":CC$="[147]":CR$="":CL$="[157]":CD$="":CU$="[145]":RV$="":RO$="[146]"
  12. 1110 BE$=CHR$(7):PP=59468:LE=0:PRINTCH$CH$CC$CHR$(142)CHR$(8)"BITTE WARTEN!"
  13. 1120 D$=CH$:FORI=1TO25:D$=D$+CD$:S$=S$+"  ":Z$=Z$+CL$+CL$:FR=FRE(0):NEXT
  14. 1130 Z$=BE$+LEFT$(S$,36)+LEFT$(Z$,36):U$=CHR$(160):T$=U$
  15. 1140 OPEN1,FD,15,TE$
  16. 1150 GOSUB7000:BF$=CHR$(BF):DR$=CHR$(DR+48)
  17. 1160 GOSUB7500:T$=T$+LEFT$(S$,(WI-40)/2):T=LEN(T$)+1
  18. 1170 READR$:IFR$<>">S"GOTO1170
  19. 1180 DIMM$(18),B$(14):FORI=1TO18:READM$(I):NEXT:PRINTCC$;
  20. 1190 FORI=1TO9:PRINTT$M$(I):NEXT
  21. 1200 FORI=1TO11:PRINTT$M$(10):NEXT
  22. 1210 FORI=11TO15:PRINTT$M$(I):NEXT
  23. 1220 IFERTHENPRINTLEFT$(D$,24)TAB(T)RV$Z$ER$CH$CD$CD$CD$:IFER<3THENEND
  24. 1230 IFERTHENCLOSE1:OPEN1,FD,15:REM RE-INIT
  25. 1240 PRINTLEFT$(D$,6)TAB(T+11)DR$TAB(T+13)CT$TAB(T+23)F$
  26. 1250 BZ$=T$+M$(14):IFC9THENPOKEC9,128
  27. 2000 REM $$$ EINGABE $$$
  28. 2010 PR$=">":GOSUB8060:G$=K$:PR$="<"
  29. 2020 IFBZTHENLN=PEEK(C7):PRINTLEFT$(D$,24)BZ$:GOSUB8080:BZ=0
  30. 2030 IFG$="A"ORG$=" "THENGOSUB3000
  31. 2040 IFG$="L"THENGOSUB2800
  32. 2050 IFG$="X"THENG$="E":EX=1
  33. 2060 IFOP=0GOTO2220
  34. 2070 IFG$="B"THENGB=1:G$=C$:IFGZ=1THENGZ=0:GB=0:G$="E":EN=1
  35. 2080 IFG$="N"ORG$=CR$THENPRINTTAB(T+5);:IL=16:GOSUB8000:N$=IX$:PRINTCU$;
  36. 2090 IFG$="*"ORG$=":"THENIFFTTHENIFPT$>""THENIFCANDFT<>4THENGOSUB2500:PR=1
  37. 2100 IFG$="+"ORG$=";"ORG$="-"THENIFTY>1THENS=-(G$<>"-")*SC:PR=1
  38. 2110 IFG$="^"ORG$="@"THENIFZZ>0THENPRINTTAB(T)" "CU$:NG=NG+2:ZR=1:ZZ=ZZ-2:G$="_
  39. 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
  40. 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
  41. 2140 [139]GZ[178]1[167]GB[178]0:[139]ER[178]0[137]2000
  42. 2150 [139]EN[178]1[137]2250
  43. 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
  44. 2170 [139]G$[178]"E"[167]EN[178]1:[141]5000:[137]2250
  45. 2180 [139]PT$[178]""[137]2210
  46. 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
  47. 2200 [130]
  48. 2210 :
  49. 2220 [139]OP[178]1[137]2260
  50. 2230 [139]G$[178]"I"[167][141]4000:[145][171](ER[178]0)[141]5240:[139]ER[137]1220
  51. 2240 [139]G$[178]"F"[167][141]3500
  52. 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$
  53. 2260 [139]EN[167][141]6000
  54. 2270 [139]PR[178]1[167][141]5190:PR[178]0
  55. 2280 [139]EX[178]1[167]ER[178]2:ER$[178]">>> PROGRAMMENDE
  56. 2290 IFERGOTO1220
  57. 2300 GB=0:GOTO2000
  58. 2500 REM $$$ FILE SCHLIESSEN $$$
  59. 2510 PRINT#1,MR$CHR$(K+1)BF$TW$:GET#1,H$,I$:IFH$=""ORFT=4THENRETURN
  60. 2520 PRINTTAB(T)"*"CU$:OPEN3,FD,3,"#1":BG$=CHR$(BF+1):BK=0
  61. 2530 RT=ASC(H$):RS=ASC(I$+ZE$):PRINT#1,"UA"3;DR$RT;RS:BK=BK+1
  62. 2540 PRINT#1,MR$CHR$(3)BG$TW$:GET#1,H$,I$:IFH$<CHR$(AT)ANDH$>""GOTO2530
  63. 2550 PRINT#1,MW$CHR$(K+28)BG$TW$CHR$((BK-32768)AND(LB-1))CHR$(BK/LB)
  64. 2560 IFH$>""THENPRINT#1,MW$ZE$BG$TW$ZE$ZE$:PRINT#1,"UB"3;DR$RT;RS
  65. 2570 VA=1:C=0:OC=C:CLOSE3:FR=FRE(0):RETURN
  66. 2800 REM $$$ LETTER ON/OFF $$$
  67. 2810 IFRIGHT$(CT$,3)="001"THENPOKEPP,(PEEK(PP)AND253)OR(2-LE)
  68. 2820 IFRIGHT$(CT$,3)<>"001"THENPRINTCHR$(14-128*(LE>0));
  69. 2830 LE=2-LE:RETURN
  70. 3000 REM $$$ ANLEITUNG $$$
  71. 3010 LN=PEEK(C7):PRINTLEFT$(D$,7):OPEN3,3:FORI=0TO14:INPUT#3,B$(I):PRINTCL$
  72. 3020 NEXT:PRINTLEFT$(D$,7)T$M$(16):FORI=0TO14:PRINTT$M$(17):NEXT:PRINTT$M$(18)
  73. 3030 IFAN=1THENRESTORE:PRINTLEFT$(D$,8)TAB(T)RV$Z$TAB(T+12)"BITTE WARTEN
  74. 3040 [135]R$:[139]R$[179][177]">A"[137]3040
  75. 3050 [153][200](D$,7):[129]I[178]0[164]4:[135]B$:[153][163]T)Z$B$:[130]
  76. 3060 [153][200](D$,12):[129]I[178]0[164]9:[135]B$:[153][163]T)Z$B$:[130]:[141]8060
  77. 3070 [135]B$:[139]B$[179][177]"*"[137]3060
  78. 3080 [153][200](D$,7)T$M$(7):[129]I[178]0[164]14:[153]B$(I):[130]
  79. 3090 [153]T$M$(13):[141]8080
  80. 3100 AN[178]1:[151]C0,0:[129]I[178]0[164]14:B$(I)[178]"":[130]:FR[178][184](0):[160]3:[142]
  81. 3500 [143] $$$ DISK-KOMMANDO $$$
  82. 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
  83. 3520 [139][200](IX$,1)[179][177]"U"[167][152]1,IX$:[137]8050
  84. 3530 [142]
  85. 4000 [143] $$$ START $$$
  86. 4010 BR$[178][200](BR$,5)[170]DR$[170]",":BW$[178][200](BW$,5)[170]DR$[170]","
  87. 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)
  88. 4030 [153][200](D$,24)[163]T)RV$Z$"      BITTE DISKETTE EINLEGEN":[141]8060
  89. 4040 [152]1,"I"[170]DR$:VA[178]0:X1[178]10:X2[178]20:[141]8050:[139]ER[167][142]
  90. 4050 [153]CU$BZ$:[159]2,FD,2,"#0":[152]1,BR$TT;TS:[141]8050:[139]ER[167][142]
  91. 4060 [152]1,MR$TW$BF$[199](1):[161]#1,DO$:[139]DO$[179][177]DM$[137]4200
  92. 4070 [152]1,MR$[199](NB)BF$[199](16):[141]8030:[153][200](D$,8)[163]T[170]6);
  93. 4080 [141]8070:[153]C$CU$[163]T[170]6);:IL[178]16:[141]8000:N$[178]IX$
  94. 4090 [152]1,MR$[199](NB[170]18)BF$[199](5[170](TY[178]1)):[141]8030:[153]CU$[163]T[170]30);
  95. 4100 [141]8070:[153]C$CU$[163]T[170]30);:IL[178]5[170](TY[178]1):[141]8000:[153]
  96. 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
  97. 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
  98. 4130 IL[178]16:[137]8080
  99. 4200 ER[178]3:ER$[178]">>> FALSCHES DISK-FORMAT":[142]
  100. 5000 [143] $$$ NAECHSTER EINTRAG $$$
  101. 5010 [139]EN[178]1[137]5080
  102. 5020 [153][163]T)" ":[152]1,MW$[199](K[170]3)BF$[199](16)N$:[139]ZR[167][153]CU$CU$;:ZR[178]0
  103. 5030 [152]1,MW$[199](K)BF$[199](1)[199](S[176](B2[171]C)[176]FT)
  104. 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)
  105. 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
  106. 5060 [139]ZZ[179]7[167][152]1,MR$[199](ZZ[172]32[170]39)BF$[199](1):[161]#1,NF$
  107. 5070 [139](NT[177]0[176](I[179]7[175]NF$[177]""))[167][141]8040
  108. 5080 [139]EN[178]1[167]ZZ[178]7
  109. 5090 ZZ[178]ZZ[170]1:[139]ZZ[177]7[137]5220
  110. 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]
  111. 5110 N$[178]I$:[152]1,MR$[199](K)BF$[199](1):[161]#1,I$:FT[178][198](I$[170]ZE$)
  112. 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
  113. 5130 [153][163]T[170]5);:[139]NG[178]0[167]I$[178]N$:[141]8070
  114. 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$)
  115. 5150 [139]NG[178]0[167][139]FT[179][177]0[167]ZB[178]ZB[170]BK
  116. 5160 [153]C$CU$[163]T)">"[201]([196](1000[170]BK),3);:[139]NG[167]NG[178]NG[171]1
  117. 5170 [152]1,MR$[199](K[170]1)BF$TW$:[161]#1,PT$,K$:[153][163]T[170]31);
  118. 5180 [153][201]([196](100[170][198](PT$[170]ZE$)),2)CR$[201]([196](100[170][198](K$[170]ZE$)),2);
  119. 5190 [153]C$CU$[163]T[170]25)" ";:[139]C[167][139]FT[167][153]CL$"*";
  120. 5200 [153][202](FT$,FT[172]4[170]1,3)" ";:[139]S[177]0[175]TY[177]1[167][153]CL$"<";
  121. 5210 [153]C$CU$;:FR[178][184](0):[142]
  122. 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
  123. 5230 [139]EN[178]1[167][142]
  124. 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
  125. 5250 [137]5100
  126. 6000 [143] $$$ ENDE $$$
  127. 6010 [153][200](D$,24);:[139]VA[178]0[137]6040
  128. 6020 [153][163]T)Z$"     UEBERPRUEFE BLOCKBELEGUNG"CU$:[152]1,"V"DR$:[141]8050
  129. 6030 [139]ER[167][142]
  130. 6040 [153]BZ$C$CU$CU$CU$[163]T[170]17)[201]([196](1000[170]ZB),3);
  131. 6050 [153][163]T[170]27)[201]([196](1000[170]FB[171]ZB),3)CR$CR$;
  132. 6060 [160]2:[159]2,FD,0,"$"[170]DR$[170]":"[170]ZE$:[161]#2,B$,B$,B$,B$,B$,B$
  133. 6070 [161]#2,B$:[139]B$[177]""[137]6070
  134. 6080 [161]#2,B$,B$,K$,L$
  135. 6090 [153][201]([196](1000[170][198](K$[170]ZE$)[170]LB[172][198](L$[170]ZE$)),3)
  136. 6100 [160]2:OP[178]0:EN[178]0:FR[178][184](0):[142]
  137. 7000 [143] $$$ FLOPPY-TYP $$$
  138. 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)
  139. 7002 [161]#1,I$:F%(I)[178][198](I$[170]ZE$):[130]:ER[178]0:TY[178]0:[152]1,TE$
  140. 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
  141. 7004 [130]:[135]F$:[139]F$[179][177]"***"[167][135]DR,BF,TY:[139]J[137]7003
  142. 7005 [139]F$[178]"***"[167]ER[178]1:ER$[178]">>> FLOPPY-TYP UNBEKANNT":[142]
  143. 7006 [135]R$:[139]R$[179][177]">T"[137]7006
  144. 7007 [135]J,FB,DM$,TT,TS,TD,SD,NB,AT,DT:[139]J[179][177]TY[137]7007
  145. 7099 [139]TY[177]1[167][142]
  146. 7100 [135]R$:[139]R$[179][177]">M"[137]7100
  147. 7101 MR$[178]"UC:":DM$[178][199](1):I$[178][199](19)[170][199](1):[135]J
  148. 7102 [129]I[178]0[164]J:[135]J:[152]1,MW$[199](I)I$[199](J):[130]:[142]
  149. 7200 [143] +++ DATA: FLOPPY-TYPEN +++
  150. 7201 [131] 2,65535,16618,16556:[143] FPEEKS
  151. 7202 [143]  F%0,F%1,F%2,"NAME      DOS",DR,BF,TY
  152. 7203 [131] 226,-99,-99,"2040/3040V1.0",1,017,1
  153. 7204 [131] 213,-99,-99,"4040     V2.1",1,017,2
  154. 7205 [131] 242,-99,-99,"8050     V2.5",1,017,3
  155. 7206 [131] 254,-99,-99,"1541/2031V2.6",0,003,2
  156. 7207 [131] 198,000,-99,"4040     V2.7",1,017,2
  157. 7208 [131] 198,001,001,"8050     V2.7",1,017,3
  158. 7209 [131] 198,001,002,"8250     V2.7",1,017,4
  159. 7298 [131] -99,-99,-99,"***"
  160. 7299 [131]">T":[143] ERKENNUNG
  161. 7300 [143] +++ DATA: TYPEN-AUSWAHL +++
  162. 7301 [143] TYP,BLKS,DOS,NAME ,DIREC,NBY,AT,DT,DOS
  163. 7302 [131] 1 , 670,-1-,18,00,18,01,144,37, 4
  164. 7303 [131] 2 , 664,"A",18,00,18,01,144,37, 5
  165. 7304 [131] 3 ,2052,"C",39,00,39,01,  6,78, 5
  166. 7305 [131] 4 ,4133,"C",39,00,39,01,  6,78, 5
  167. 7399 [131]">M":[143] ERKENNUNG
  168. 7400 [143] +++ DATA: 2040/3040 M-R +++
  169. 7401 [131] 37,104,104,160,0,177,3,141,180,66,141,224,16,177,3,153,180,67,200,196
  170. 7402 [131] 5,144,246,169,13,153,180,67,200,32,153,231,169,181,133,93,76,7,253
  171. 7500 [143] $$$ COMPUTER-TYP $$$
  172. 7501 [135]R$:[139]R$[179][177]">C"[137]7501
  173. 7502 [135]N:[134]C%(N):[129]I[178]0[164]N:[135]X:C%(I)[178][194](X):[130]
  174. 7503 J[178]0:[129]I[178]0[164]N:[135]X:[139]X[179][177]C%(I)[167]J[178]1
  175. 7504 [130]:[135]CT$:[139]CT$[178]"***"[167][153]CD$"?UNBEKANNTER COMPUTER";:[128]
  176. 7505 [135]WI,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9:[139]J[137]7503
  177. 7520 [139]CT$[178]"C=64"[167][151]53280,0:[151]53281,0:[143] BORDER&GROUND=SCHWARZ
  178. 7521 [139][201](CT$,3)[178]"001"[167][151]PP,12:[143] GROSS/GRAPHIK
  179. 7522 [139][201](CT$,3)[179][177]"001"[167][153][199](158);:[143] CURSOR=GELB
  180. 7598 [142]
  181. 7599 [131]">C":[143] ERKENNUNG
  182. 7600 [143] +++ DATA: COMPUTER-TYPEN +++
  183. 7601 [131] 0,58453:[143] CPEEKS
  184. 7602 [143]  C%0,NAME      , WI, C0, C1, C2, C3, C4, C5, C6, C7, C8, C9
  185. 7603 [131] 136,"CBM 2001", 40,525,532,533,224,226,234,242,245,251,0
  186. 7604 [131] 152,"CBM 3001", 40,158,167,168,196,198,205,213,216,220,0
  187. 7605 [131] 032,"CBM 4001", 40,158,167,168,196,198,205,213,216,220,0
  188. 7606 [131] 032,"CBM 8001", 80,158,167,168,196,198,205,213,216,220,228
  189. 7607 [131] 189,"C=64"    , 40,198,204,205,209,211,212,213,214,216,650
  190. 7608 [131] -99,"***"
  191. 8000 [143] $$$ INPUT ROUTINE $$$
  192. 8001 [143] IL=MAX. LAENGE,IX$=EING. STRING
  193. 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
  194. 8003 IP[178][194](IY[171]IX[170][185](0)):[151]C8,0:[151]C5,0:[151]C2,1:[151]C1,0
  195. 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
  196. 8005 [139]([198](IY$[170]ZE$)[175]127)[179]32[137]8008
  197. 8006 [139][185](0)[177]IX[137]8003
  198. 8007 [153]IY$;:[137]8003
  199. 8008 [139]IY$[178][199](148)[167][139][194](IY)[178]32[137]8006
  200. 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$
  201. 8010 [139]IY$[178]C$[137]8017
  202. 8011 [139]IY$[178]RV$[176]IY$[178]RO$[137]8007
  203. 8012 [139]IY$[178]CR$[137]8006
  204. 8013 [139]IY$[178]CC$[167][129]IZ[178]IY[171]IL[170]1[164]IY:[151]IZ,32:[130]:IY$[178]CH$
  205. 8014 [139]IY$[178]CH$[167][151]C4,IX[171]IL[170]1:[137]8003
  206. 8015 [139]IY$[179][177]DE$[175]IY$[179][177]CL$[137]8003
  207. 8016 [145]([185](0)[177]IX[171]IL[170]1)[170]2[137]8007,8003
  208. 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
  209. 8018 [129]IZ[178]IY[164]IY[171]IL[170]1[169][171]1:IY[178][165]AS([194](IZ))
  210. 8019 [139]IX[176](IY[175]127)[171]32[167]IX$[178][199](IY)[170]IX$:IX[178]255
  211. 8020 [130]
  212. 8021 [139]IJ[178]0[167][139][195](IX$)[179]IL[167]IX$[178]IX$[170]U$:[137]8021
  213. 8022 [151]C6,WI[171]1:[153]:[160]4:[142]
  214. 8030 [143] $$$ INGET $$$
  215. 8031 I$[178]"":[161]#1,H$:[139]H$[167][132]1,I$
  216. 8032 I$[178]H$[170]I$:[142]
  217. 8040 [143] $$$ SCROLL UP $$$
  218. 8041 SR[178]0:[139][194](C7)[179]X2[167][142]
  219. 8042 [153][200](D$,X1[170]1);:[159]3,3
  220. 8043 [132]3,X$:[153]CL$
  221. 8044 [153]CU$CU$X$CD$
  222. 8045 [139][194](C7)[179]X2[137]8043
  223. 8046 [153]CU$T$M$(10)CU$
  224. 8047 [160]3:SR[178]1:[142]
  225. 8050 [143] $$$ DISK-FEHLER? $$$
  226. 8051 [132]1,ER,ER$,TR,BL:[139]ER[178]0[167][142]
  227. 8052 ER$[178]"***"[170][196](ER)[170]":"[170]ER$[170]" "
  228. 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)
  229. 8054 BZ[178]1:OP[178]0:ER[178]4:[142]
  230. 8060 [143] $$$ TASTE $$$
  231. 8061 L2[178]LN:LN[178][194](C7):PO[178][185](0):[153][200](D$,6)[163]T[170]5)PR$" "CL$;
  232. 8062 [151]C1,0:[151]C0,[171]([194](C0)[177]0):[146]C0,15:[161]K$:[151]C1,1
  233. 8063 K$[178][199]([198](K$[170]ZE$)[175]127):[151][194](C3)[170][194](C3[170]1)[172]LB[170][185](0),141
  234. 8064 [139]K$[179][177]C$[167][151]C8,1:[153]K$
  235. 8065 [141]8080:[153][163]PO);:LN[178]L2:[142]
  236. 8070 [143] $$$ PRINT MIT STEUERZEICHEN $$$
  237. 8071 [151]C8,[195](I$):[129]IZ[178]1[164][195](I$):IX[178][198]([202](I$,IZ))
  238. 8072 [139](IX[175]127)[179][177]13[167][153][202](I$,IZ,1);:[137]8074
  239. 8073 [153]" ";:[151][194](C3)[170][194](C3[170]1)[172]LB[170][185](0)[171]1,13[171](IX[175]128)[172]64
  240. 8074 [130]:[142]
  241. 8080 [143] $$$ IN DIE RICHTIGE ZEILE $$$
  242. 8081 [153][200](D$,LN[170]1);:[142]
  243. 8999 [131]">S":[143] ERKENNUNG
  244. 9000 [143] +++ DATA: SCHIRMBILD +++
  245. 9001 [131]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTAN^
  246. 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]
  247. 9003 [131]"(null)(null) (null)(null)TANTAN(null) (null)(null)TANTAN-TAN (null) (null)(null) (null) (null) (null)-=EXPWAIT(null)  BY   (null)
  248. 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]
  249. 9005 [131]"/TANTANTANTAN=TANTAN=TANTANTANTAN=TANTANTANTANTANTANTANTANTAN=TANTANTANTANTAN>TANTANTANTANTANTANTAN<
  250. 9006 DATA" V2.8[221]> [221]DR# [221]         [221]             [221]
  251. 9007 [131]"ORTANTANTANTAN>TANTAN>TANTANTANTAN>TANTANTANTANTANTANTANTANTAN>TANTAN=TANTANTANTANTANTANTANTANTANTAN<
  252. 9008 DATA"[221]NAME=                    [221]ID=       [221]
  253. 9009 [131]"-TANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=>TANTANTANTAN=TANTAN=TANTAN<
  254. 9010 DATA"[221]    [221]                   [221]     [221]  [221]  [221]
  255. 9011 [131]"-TANTAN=TAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTAN>TANTANTANTANTAN>TANTAN>TANTAN<
  256. 9012 DATA"[221]V-[221]BLKS BENUTZT=    [221]FREI=     (   )[221]
  257. 9013 [131]"-TANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  258. 9014 DATA"[221]A/L/X,I/F/01,N/D/SPUR/*/+-/_/B/^/V/E[221]
  259. 9015 [131]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  260. 9100 REM +++ DATA: RAHMEN (ANL) +++
  261. 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]
  262. 9102 [131]"(null)                                    (null)
  263. 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]
  264. 9499 [131]">A":[143] ERKENNUNG
  265. 9500 [143] +++ DATA: ANLEITUNG +++
  266. 9501 [131]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  267. 9502 DATA"[221]      DISK-DIRECTORY-EDITOR       [221]
  268. 9503 [131]"(null)    K U R Z A N L E I T U N G     (null)
  269. 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]
  270. 9505 [131]"
  271. 9506 DATA"<A/SPC>   AUSGABE DIESER ANLEITUNG
  272. 9507 [131]"<L>       GROSS- ODER KLEINSCHRIFT
  273. 9508 DATA"<I>       START DES EDITORS
  274. 9509 [131]"<F>       EINGABE FLOPPY-KOMMANDO
  275. 9510 DATA"<0/1>     LAUFWERKS-NUMMER FESTLEGEN
  276. 9511 [131]"           (FALLS DOPPEL-LAUFWERK)
  277. 9512 DATA"<N/RIGHT> NEUEN NAMEN EINGEBEN
  278. 9513 [131]"<S/P/U/R> FILETYP NEU FESTLEGEN
  279. 9514 DATA"<D>       FILE LOESCHEN
  280. 9515 [131],+
  281. 9516 [131]"<*>       OFFENES FILE SCHLIESSEN
  282. 9517 DATA"<+/->     FILESCHUTZ SETZEN/AUFHEBEN
  283. 9518 [131]"<_/=/RET> EINTRAG WEITERGEHEN
  284. 9519 DATA"<B>       BLOCK WEITERGEHEN
  285. 9520 [131]"<^/@>     EINTRAG ZURUECKGEHEN
  286. 9521 DATA"<V>       SPAETER 'VALIDATE'
  287. 9522 [131]"<E>       AUSSTIEG AUS EDITOR
  288. 9523 DATA"<X>       BEENDEN DES PROGRAMMS
  289. 9524 [131],,*
  290. 10000 [159]3,8,0,"$:$$
  291. 10001 GET#3,A$:PRINTASC(A$+CHR$(0))A$:GOTO10001
  292.