0 CLR
10 REM COPYRIGHT 1991 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
40 GOSUB720
50 GOSUB870
60 INPUT "DEVICE NUMBER8[157][157][157]";DR:IF DR<8 OR DR>11 THEN 60
70 PRINT"[147]"
80 OPEN15,DR,15:OPEN5,DR,5,"#":OPEN4,DR,4,"#":GOSUB220:GOTO270
90 INPUT "TRACK,SECTOR NUMBER          [157][157][157][157][157][157][157][157][157][157]";TR,SE
100 PRINT "                                       "
110 IFTY$="A"AND(TR<1ORTR>80ORSE<0ORSE>39)THENRETURN
120 IFTY$<>"B"THEN170
130 IF(TR<1ORTR>70ORSE<0ORSE>20)THENRETURN
140 IF((TR>17ANDTR<25)OR(TR>52ANDTR<60))ANDSE>18THENRETURN
150 IF((TR>24ANDTR<31)OR(TR>59ANDTR<66))ANDSE>17THENRETURN
160 IF((TR>30ANDTR<36)OR(TR>65ANDTR<71))ANDSE>16THENRETURN
170 IFTY$<>"C"THEN220
180 IFTR<1ORTR>35ORSE<0ORSE>20THENRETURN
190 IFTR>17ANDTR<25ANDSE>18THENRETURN
200 IFTR>24ANDTR<31ANDSE>17THENRETURN
210 IFTR>30ANDSE>16THENRETURN
220 PRINT#15,"U1";5;0;TR;SE
230 SYS49152
240 BK(PO)=TR:BK(PO+1)=SE:PO=PO+2:IFPO>51THENPO=0
250 IFPO>LITHENLI=PO
260 RETURN
270 GOSUB850:PRINT""ME$:PRINT"TRACK      [157][157][157][157][157][157]"TR;
280 PRINT" SECTOR      [157][157][157][157][157][157]"SE"        "
290 GET C$:IFC$=""THEN 290
300 IFC$="J"THENGOSUB680
310 IFC$="E"THENGOSUB370
320 IFC$="N"THENGOSUB90
330 IFC$="B"THENGOSUB650
340 IFC$="Q"THEN690
350 IFC$="V"THENGOSUB990
360 GOTO270
370 CL=0
380 GOSUB1020
390 GOSUB590:GETIN$:IFIN$=""THEN390
400 IN=ASC(IN$):IFIN=23THEN630
410 IFIN=22THENGOSUB990:IN$="":GOTO390
420 IFINCOS13THENRETURN
430 IFIN=19THEN370
440 IFIN=10THENTR=PEEK(C1):SE=PEEK(C1+1):GOSUB110:POKE197,0:GOTO370
450 IFINCOS2THENGOSUB650:POKE208,0:GOTO370
460 IFIN=17ANDCL<215THENCL=CL+40:GOTO530
470 IFIN=29ANDCL<255THEN520
480 IFIN=145ANDCL>39THENCL=CL-40:GOTO530
490 IFIN=157ANDCL>0THENCL=CL-1:GOTO530
500 IFIN=18ORIN=146THEN530
510 IFIN<32OR(IN>127ANDIN<160)THEN390
520 CL=CL+1:IFCL>256THEN370
530 POKE781,(C1-1024)/40
540 C2=(C1-1024)
550 IFC2>39THENC2=C2-40:GOTO550
560 POKE782,C2
570 POKE783,PEEK(783)AND254:SYS65520
580 PRINTIN$;:GOTO390
590 C1=1024+CL:C2=PEEK(C1):POKE820,C2:SYS49198
600 POKEC1,PEEK(820):C3=PEEK(C1+1):C4=C2+C3*256
610 POKEC1,C2:POKE782,19:POKE781,7:POKE783,PEEK(783)AND254:SYS65520
620 PRINT"      [157][157][157][157][157][157]"C2"      [157][157][157][157][157][157]"C4:RETURN
621 PRINT"";
622 INPUT"WRITE THIS TO DISK <Y/N>                [157][157][157][157][157][157][157][157][157][157][157][157]"
623 IFWR$<>"Y"THEN200
630 PRINT"";
631 INPUT"WRITE SECTOR TO DISK <Y/N> N            [157][157][157][157][157][157][157][157][157][157][157][157][157]";WR$
632 PRINT"                                                 "
633 IFWR$<>"Y"THEN220
635 SYS49171
640 PRINT#15,"U2";4;0;TR;SE:RETURN
650 PO=PO-4:IFPO<0THENPO=LI:PRINT"NO PREVIOUS SECTOR":GOTO670
660 TR=BK(PO):SE=BK(PO+1)
670 GOSUB1030:PRINT"                    ":GOTO110
680 TR=PEEK(1024):SE=PEEK(1025):GOTO110
690 INPUT#15,A,B$,C,D:PRINTA;B$;C;D
700 CLOSE4:CLOSE5:CLOSE15:PRINT"[147]"
710 POKE808,237:END:REM ENABLE STOP KEY AND RUN/STOP-RESTORE
720 PO=0:C1=1024:DIM BK(51):PRINTCHR$(14)CHR$(8):POKE248,192:TR=1:SE=1
730 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(14)"[208]ERISCOPE 2.0":PRINT
740 BX$="[195]OPYRIGHT 1991 [195][207][205][208][213][212][197] [208]UB. [201]NTL. [204]TD.":GOSUB 9998
750 BX$="[193]LL [210]IGHTS [210]ESERVED":GOSUB 9998
760 RE$=CHR$(13):ME$="[158]J       JUMP TO NEXT LINK"+RE$+"Q       QUIT"+RE$
770 ME$=ME$+"E       EDIT"+RE$+"N       NEW SECTOR"+RE$
780 ME$=ME$+"B       BACK UP     "+RE$
785 ME$=ME$+"V       VALUE         "+RE$+"PRESS KEY"
790 EE$="[158]CTRL-J  JUMP TO NEXT LINK"+RE$+"[210]ETURN  EXIT           "+RE$
800 EE$=EE$+"CTRL-B  BACK UP   "+RE$+"CTRL-V  VALUE         "
805 EE$=EE$+RE$+"CTRL-W  WRITE SECTOR"
810 EE$=EE$+"            "+RE$+"             "+RE$+"PRESS KEY          "
820 CL$="                                        "
830 RESTORE:FORI=0TO54:READA:POKE49152+I,A:B=B+A
840 NEXT:IFB<>7120THENPRINT"[147]ERROR  IN DATA STATEMENTS":END
850 :
860 POKE808,234:RETURN:REM DISABLE STOP AND RUN/STOP-RESTORE
870 S1=0:S$="158115711541":TY$="ABC"
880 GOTO940
890 GETA$:IFA$=""THEN 890
900 IFA$="[145]"ORA$=""ORA$=CHR$(13)THEN920
910 GOTO870
920 IFA$=CHR$(13)THENTY$=MID$(TY$,S1+1,1):RETURN
930 S1=S1+(A$="[145]")-(A$=""):IF(S1<0ORS1>2)THENS1=-2*(S1<0):IFS1>2THENS1=0
940 PRINT"CURSOR TO":PRINT"HIGHLIGHT":PRINT"DRIVE TYPE":PRINT
950 FORI=0TO2:GOSUB970:NEXT
960 GOTO890
970 IFS1=ITHENPRINT"";
980 FORJ=0TO3:PRINTMID$(S$,I*4+J+1,1);:NEXT:PRINT:RETURN
990 INPUT"ENTER VALUE TO INSERT";A$
1000 A=INT(VAL(A$)):IFA>-1ANDA<256THENPOKEC1,A
1005 PRINT"                          ":RETURN
1010 GOTO990
1020 PRINT""EE$:PRINT"TRACK"TR"[157]  SECTOR"SE"[157]  ":RETURN
1030 FORI=0TO1000:NEXT:RETURN
1040 DATA162,005,032,198,255
1050 DATA160,000,032,207,255
1060 DATA153,000,004,200,208
1070 DATA247,076,204,255,162
1080 DATA004,032,201,255,160
1090 DATA000,185,001,004,032
1100 DATA210,255,200,192,255
1110 DATA144,245,173,000,004
1120 DATA032,210,255,076,204
1130 DATA255,173,052,003,073
1140 DATA128,141,052,003,096
9998 FOR TX=1 TO 20-LEN(BX$)/2:PRINTCHR$(32);:NEXT:PRINTBX$:RETURN