home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
47
/
newlog.2
< prev
next >
Wrap
Text File
|
1985-09-28
|
896b
|
26 lines
10 REM NEWLOG VER 790704
20 ERRSET 200,E1,E2
30 N=0
40 INPUT"Name of new log file ? ",C$\IFC$=""THEN40
50 INPUT"Which drive do you want it on ? ",D \ D$=STR$(D)
60 IF D<0 OR D>4 THEN 50
70 INPUT"About how many entries do you want in it ? ",B
80 B= INT((B/4)+(B*.15))+1
90 CREATE C$+","+D$,B
100 CREATE "*"+C$+","+D$,2
110 OPEN #1,"*"+C$+","+D$
120 WRITE#1,N
130 CLOSE#1
140 FOR I=1 TO4
150 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 190
160 NEXT
170 PRINT"put a system disc on any drive, hit the 'RETURN'"
180 INPUT" ",A$ \ GOTO 140
190 CHAIN "SYSTEM,"+STR$(I)
200 ERRSET 200,E1,E2
210 IF E2=15 THEN 140
220 IF E1<>150 THEN 250 ELSE IF I>4 THEN 170 ELSE 160
250 IF E2<>7 THEN 270 ELSE PRINT"FILE ERROR" \ GOTO 140
270 IFE2<>8 THEN 280 ELSE PRINT"HARD DISC ERROR"\GOTO 140
280 PRINT"ERROR ",E2," AT LINE ",E1\GOTO 140