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