home *** CD-ROM | disk | FTP | other *** search
- 10 REM * DISK SCAN
- 20 REM * V1.0, 5/86, BUMMY
- 30 CLR
- 40 C$=CHR$(13):O$=CHR$(0):SP$="":T$=CHR$(16)
- 50 HY$=" -----------------------------------"
- 100 PRINT"ôINPUT DISK TO BE SCANNED AND PRESS RETURN TO BEGIN OR SPACE";
- 110 PRINT" TO ABORT...":POKE198,0
- 120 GETE$:IFE$<>" "ANDE$<>C$THEN120
- 130 IFE$=C$THEN150
- 140 GOTO9900
- 150 INPUT"STARTING TRACK 1¥¥¥";T1
- 152 IFT1=0THEN9900
- 155 INPUT"ENDING TRACK 35¥¥¥¥";EE
- 157 IFEE=0THEN9900
- 158 IFT1>EETHEN10
- 160 OPEN1,8,15,"I0":INPUT#1,EN,EM$,ET,ES:IFEN<20THEN180
- 170 PRINT"ôDISK ERRORÆ"EN,EM$:GOTO9900
- 180 PRINT#1,"M-W"CHR$(106)CHR$(0)CHR$(1)CHR$(133)
- 190 PRINT"ô ░└└└└└└└└└└└└└└└└└«"C$"20▌"TAB(20)"▌"C$"19▌";
- 192 PRINTTAB(20)"¡└└└└└└«"C$"18▌"TAB(27)"¡└└└└└«"
- 200 PRINT"17▌"TAB(33)"¡└└└└«":FORF=16TO0STEP-1:Q$=RIGHT$(STR$(F),2):PRINTQ$"▌";
- 210 PRINTTAB(38)"▌":NEXTF:PRINT" ¡└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└╜"
- 212 PRINTTAB(12)"1"TAB(22)"2"TAB(32)"3"
- 214 PRINTTAB(3);:FORF=1TO35:Q$=RIGHT$(STR$(F),1):PRINTQ$;:NEXT:PRINT""C$
- 216 PRINTTAB(29)"ANALYZING";
- 220 OPEN2,8,2,"#":PRINT#1,"U1:2 0 18 0":FORF=1TO178:GET#2,Q$:Q$=Q$+O$
- 230 BM$=BM$+LEFT$(Q$,1):NEXT:NA$=MID$(BM$,145,16):ID$=MID$(BM$,163,2)
- 240 DT$=MID$(BM$,166,2):Q=.:FORF=1TO16:IFASC(MID$(NA$,F,1))=160THENQ=F-1:F=16
- 250 NEXT:IFQ<>.THENNA$=LEFT$(NA$,Q)
- 260 BF=.:FORF=5TO141STEP4:IFF<>73THENBF=BF+ASC(MID$(BM$,F,1))
- 270 NEXT
- 280 DIMA$(35):PRINT""TAB(22)NA$C$TAB(21)MID$(STR$(BF),2)" FREE ID="ID
- 300 FORT=T1TOEE:Y=T+2:X=22:S1=20+((T>17)+(T>24)+(T>30)):IFS1<20THENS1=S1-1
- 310 FORS=0TOS1:PRINT#1,"U1:2 0 "T;S:INPUT#1,EN,EM$:GET#2,A$,B$,D$
- 320 IFEN<20THEN350
- 330 IFEN>29THENPRINT"ôDISK ERRORÆ "EN;EM$:GOTO9900
- 340 X$=RIGHT$(STR$(EN),1):GOTO380
- 350 A$=A$+O$:B$=B$+O$:D$=D$+O$:A=ASC(A$):B=ASC(B$):D=ASC(D$)
- 360 IFA=75ANDB=1ANDD=1THENX$=" ":GOTO380
- 370 X$="+"
- 380 X=X-1:GOSUB1000:PRINT""X$"Æ";:A$(T)=A$(T)+X$:NEXTS,T:CLOSE2:CLOSE1
- 390 X=2:Y=28:GOSUB1000:PRINT"HARDCOPY? ";:POKE204,0:POKE198,0
- 400 GETE$:IFE$<>"Y"ANDE$<>"N"THEN400
- 410 WAIT207,1,1:POKE204,1:IFE$="N"THEN10
- 420 OPEN4,4:PRINT#4,"NAME = "NA$C$" ID = "ID$C$" DOS