home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
pc-hamd3
/
log.2
< prev
next >
Wrap
Text File
|
1985-09-28
|
768b
|
19 lines
10 ERRSET 9060,E1,E2
20 PRINT CHR$(12),CHR$(26),CHR$(27)\REM CLRS
30 PRINT"G3ZCZ AMATEUR RADIO PACKAGE VERSION 2.0"
40 PRINT
60 PRINT"(C) Copyright G3ZCZ/Snow Micro Systems Inc. 1979"
70 PRINT
9000 FOR I=1 TO 4
9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
9020 NEXT \ GOTO 9040
9030 CHAIN "SYSTEM,"+STR$(I)
9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
9050 INPUT" ",A$ \ GOTO 9000
9060 ERRSET 9060,E1,E2
9070 IF E2=15THEN9000
9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000
9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9000
9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000