10 GOTO1000
90 :
91 :
92 :
97 REM *******************
98 REM * HEADER AUSGEBEN *
99 REM *******************
100 PRINT"[147]                 [213]N[196]ELETE               ";
110 PRINT" [215]RITTEN AND (C) BY [213]LI [194]ASTERS IN 1992 [153]"
120 RETURN
187 :
188 :
189 :
197 REM **********************
198 REM * DIRECTORY AUSLESEN *
199 REM **********************
200 PRINT"          [199]ELESENE [198]ILES:"
205 OPEN1,8,15,"I":OPEN2,8,2,"#"
220 PRINT#1,"U1 2 0 18 0"
230 GOSUB600:TR=A
240 GOSUB600:SE=A
245 :
250 DN$="":ID$=""
260 PRINT#1,"B-P 2 143"
270 FORI=0TO15:GET#2,A$:DN$=DN$+A$:NEXT
280 PRINT#1,"B-P 2 162"
290 FORI=1TO5:GET#2,A$:ID$=ID$+A$:NEXT
295 :
299 Q=0
300 PRINT#1,"U1 2 0";STR$(TR);STR$(SE)
305 A=INT(Q/8):DT(A)=TR:DS(A)=SE
310 GOSUB600:TR=A
320 GOSUB600:SE=A
330 FORJ=1TO8
335 PRINT"[145]"Q
340 GOSUB600:TY(Q)=A
350 GOSUB600:FT(Q)=A
360 GOSUB600:FS(Q)=A
370 X$=""
380 FORI=1TO16:GET#2,A$:X$=X$+A$:NEXT
390 NA$(Q)=X$
400 FORI=1TO9:GET#2,A$:NEXT
410 GOSUB600:BL(Q)=A
420 GOSUB600:BL(Q)=BL(Q)+A*256
425 GET#2,A$:GET#2,A$
430 Q=Q+1
440 NEXT
450 IFTR<>0THEN300
460 :
470 CLOSE1:CLOSE2
480 Q=Q-1
500 IFNA$(Q)=""THENQ=Q-1:GOTO500
510 RETURN
520 :
521 :
522 :
597 REM **************
598 REM * BYTE LESEN *
599 REM **************
600 GET#2,A$
610 IFA$=""THEN A=0:RETURN
620 A=ASC(A$):RETURN
780 :
781 :
782 :
997 REM *****************
998 REM * HAUPTPROGRAMM *
999 REM *****************
1000 DIM TY(144),FT(144),FS(144),BL(144),NA$(144),DT(18),DS(18),LI(144)
1005 TT$(0)="[196][197][204]":TT$(1)="[211][197][209]":TT$(2)="[208][210][199]":TT$(3)="[213][211][210]":TT$(4)="[210][197][204]"
1010 POKE53280,11:POKE53281,11:GOSUB100
1020 PRINT"[153][194]EISPIELPROGRAMM ZUM [198]LOPPY-[203]URS [212]EIL 6.";
1030 PRINT"[205]IT IHM KOENNEN [211]IE VERSEHENTLICH"
1040 PRINT"DURCH '[211][195][210][193][212][195][200]' GELOSCHTE [196]ATEIEN WIE-"
1045 PRINT"DERHERSTELLEN."
1050 PRINT"[218]USAETZLICH BIETET SICH DIE [205]OEGLICH-"
1060 PRINT"KEIT, EIN [198]ILE VOR DEM [204]OESCHEN ZU"
1070 PRINT"SCHUETZEN."
1074 PRINT"[150]  [194]ITTE [196]ISKETTE EINLEGEN... [[212]ASTE]"
1075 GETA$:IFA$=""THEN1075
1080 GOSUB100:PRINT"[153]     [196]IRECTORY WIRD EINGELESEN...[150]"
1090 GOSUB200
1095 :
1100 Z=0:GOSUB100
1105 FORI=0TOQ
1110 IF(TY(I)AND7)=0THENLI(Z)=I:Z=Z+1
1120 NEXT
1130 :
1140 IFZ>0THEN1180
1150 PRINT"[153]  [203]EINE [196][197][204]-[198]ILES GEFUNDEN! [[212]ASTE]"
1160 GETA$:IFA$=""THEN1160
1170 RUN
1175 :
1180 PRINT"[153][199]EFUNDENE [197]INTRAEGE:";Z;"[150]"
1190 FORI=0TO(Z-1)
1200 PRINTI")",NA$(LI(I))
1210 NEXT
1220 INPUT"[153][215]ELCHER [197]INTRAG ";N
1230 IF(N>=Z)OR(N<0)THEN1220
1235 :
1240 GOSUB100:PRINT"[153][218]U RETTEN: [150]";NA$(LI(N))
1250 PRINT"[153]0 - [196][197][204]"
1260 PRINT"1 - [211][197][209]"
1270 PRINT"2 - [208][210][199]"
1280 PRINT"3 - [213][211][210]"
1290 PRINT"4 - [210][197][204]"
1300 INPUT"[215]ELCHEN [198]ILETYP SOLL ICH ZUORDNEN ";T1
1310 IF(N<0)OR(N>4)THEN1300
1320 PRINT"[198]ILE AUCH SCHUETZEN ([202]/[206]) ?"
1330 GETA$:IFA$=""THEN1330
1340 IFA$="J"THENT1=T1+64
1350 T1=T1+128:TY(LI(N))=T1
1360 :
1370 GOSUB100:PRINT"[211]CHREIBE NEUEN [197]INTRAG..."
1380 BL=INT(LI(N)/8):EI=LI(N)-BL*8
1390 TR=DT(BL):SE=DS(BL)
1400 OPEN1,8,15,"I":OPEN2,8,2,"#"
1410 PRINT#1,"U1 2 0";TR;SE
1420 PO=2+EI*32
1430 PRINT#1,"B-P 2";PO
1440 PRINT#2,CHR$(T1);
1450 PRINT#1,"U2 2 0";TR;SE
1460 :
1465 Z=0
1470 PRINT"[194]ELEGE [194]LOCKS NEU... "
1480 TR=FT(LI(N)):SE=FS(LI(N))
1490 PRINT#1,"B-A 0";TR;SE
1500 PRINT#1,"U1 2 0";TR;SE
1505 Z=Z+1
1510 GOSUB600:TR=A
1520 GOSUB600:SE=A
1530 IFTR<>0THEN1490
1540 CLOSE1:CLOSE2
1550 PRINTZ;"[194]LOCKS GEFUNDEN."
1560 PRINT"[150][215]EITERE [198]ILES SUCHEN ([202]/[206]) ?"
1565 GETA$:IFA$=""THEN1565
1570 IFA$="N"THENRUN
1580 GOTO1100