image of READY prompt

Wang2200.org

Listing of file='IDS2PUSC' on disk='vmedia/701-2725B.wvd.zip'

# Sector 413, program filename = 'IDS2PUSC'
1000 REM "IDS2PUSC" - REPLACES DAMAGED SECURITY FILE - BEGUN 12/28/81 - TSCHET
     TER
1010 COM R7$(1)80,R2$6,R4$3,R3$(10)9,R8$1,R0,E(8),E0(8),E3$8,E4$6,E0$8,F6$1,F2
     $8,F5$8,E9$(9)8,E2$(250)9,E3$(249)8,E0$(249)1,A,B,D,Q,F,F0,F9$2,R,C,H,W,U
     ,F7$8,P,L,E$87,T,Z,E4$(16),N,E6$1,M,E8$(15)1,E8$16,F0$64,E8,E9,E,G,O,S,V,
     I
1020 COM E9$8,F8$48,F6$(64)1,J,K,X,E7$8,F3$3,J,X,K,E1$8,E2$8,F6$1,Y,F0(6),C2$3
     ,D3$2,D2$10,F2$(256)1,C4$4,E7$(4)36
   : COM Y,E$(2075)1,E1$(2)56,F1$(2)21,E6$(500)1,F$(2250)1
   : COM C5$3
   : DIM D1$2,D4$8,D5$4,D6$8
   : E8=2075
   : E9=2250
   : D6$="IDS2fs"
1050 PRINT HEX(0306020402000E);AT(0,16);"IDEAS RELEASE TWO - REPAIR DAMAGED SE
     CURITY FILE";HEX(0F)
1060 PRINT AT(2,1);
   : LINPUT "Enter the disk address where the IDEAS2 system software resides"?
     -C5$
   : GOSUB 1120
   : IF F1<0THEN 1060
   : R3$()="IDS2PF11 IDS2PUSD"
   : E9$(1)="IDS2f005"
   : SELECT #0<C5$>,#2<C5$>
   : F6$(11)="N"
   : GOSUB 1080
   : R0=16*(N-1)+#PART
   : LOAD T#2,"IDS2P003"1000,
1080 GOSUB 1090
   : CONVERT NTO STR(D6$,7,2),(##)
   : LIMITS T#2,D6$,A,B,C,D
   : MAT REDIM E3$(9)83
   : DATA LOAD DA T#2,(A)E3$()
   : MAT SEARCHSTR(E3$(),45*#PART-17,45),=C5$TO F9$STEP 3
   : IF F9$>HEX(0000)THEN RETURN
   : STR(E3$(),45*#PART+25,3)=C5$
   : IF A>0THEN DATA SAVE DA T#2,(A)E3$()
   : RETURN
1090 LIMITS T#2,"IDS2f001",A,B,C,D
   : DATA LOAD DA T#2,(A)F0,F0()
   : FOR J=1TO F0
   : IF #ID=F0(J)THEN 1100
   : NEXT J
   : STOP "ERROR IN CPU#"
   : N=1
   : RETURN
1100 N=J
   : J=F0
   : NEXT J
   : RETURN
1120 F1=0
   : MAT SEARCH"310320330B10B20B30350360370B50B60B70D10D11D12D13D14D15D50D51D5
     2D53D54D55D20D21D22D23D24D25D60D61D62D63D64D65D30D31D32D33D34D35D70D71D72
     D73D74D75",=C5$TO D1$STEP 3
   : PRINT AT(23,0,80);HEX(0F06);
1130 IF D1$<>HEX(0000)THEN 1140
   : PRINT AT(23,0);HEX(07);C5$;" is not a valid disk address supported by IDE
     AS. Enter new device address.";
   : GOTO 1240
1140 SELECT #6<C5$>
   : $OPEN 1160,#6
   : GOTO 1170
1160 $CLOSE#6
   : PRINT AT(23,0,80);HEX(07);"Device ";C5$;" is not currently available.  Pl
     ease check status and/or address.";
   : GOTO 1240
1170 $CLOSE#6
   : RETURN
1180 ON ERRORD4$,D5$GOTO 1190
1190 IF D4$<>"P48"THEN 1200
   : PRINT AT(23,0,80);HEX(07);C5$;" is not currently in the master device tab
     le of your CPU. Please try again.";
   : GOTO 1230
1200 IF STR(D4$,2,2)<"90"OR STR(D4$,2,2)>"98"THEN 1210
   : PRINT AT(23,0,80);"Disk error";D4$;" on device ";C5$;". Make sure that de
     vice is ready.";HEX(0107);
   : GOTO 1230
1210 PRINT AT(23,0,80);"Unanticipated error # ";D4$;" at line # ";D5$;".  No r
     ecovery has been programmed.";HEX(0107);
   : STOP "ERROR !"
   : END
1230 F,F1=F-1
   : GOTO 1060
1240 F,F1=F-1
   : RETURN