Listing of file='IDS2MOVE' on disk='vmedia/701-2715B.wvd.zip'
# Sector 19, program filename = 'IDS2MOVE' 1000 REM "IDS2MOVE" - INSTALLATION - MOD 1 - BEGUN 11/16/81 - TSCHETTER 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$2,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 : E8=2075 : E9=2250 1050 PRINT HEX(0306020402000E);AT(0,25);"IDEAS RELEASE TWO INSTALLATION";HEX(0 F);AT(2,0);BOX(4,72) 1060 PRINT AT(2,1); : LINPUT "Enter the disk address where the (new) IDEAS2 software now reside s"?-C5$ : GOSUB 1090 : IF F1<0THEN 1060 : R3$()="IDS2PUI1" : SELECT #0<C5$>,#2<C5$> : LOAD T#2,"IDS2P003"1000, 1090 F1=0 : MAT SEARCH"310320330B10B20B30350360370B50B60B70D10D11D12D13D14D15D50D51D5 2D53D54D55D20D21D22D23D24D25D60D61D62D63D64D65D30D31D32D33D34D35D70D71D72 D73D74D75",=C5$TO D1$STEP 3 : PRINT AT(23,0,80);HEX(0F06); 1100 IF D1$<>HEX(0000)THEN 1110 : PRINT AT(23,0);HEX(07);C5$;" is not a valid disk address supported by IDE AS. Enter new device address."; : GOTO 1210 1110 SELECT #6<C5$> : $OPEN 1130,#6 : GOTO 1140 1130 $CLOSE#6 : PRINT AT(23,0,80);HEX(07);"Device ";C5$;" is not currently available. Pl ease check status and/or address."; : GOTO 1210 1140 $CLOSE#6 : RETURN 1150 ON ERRORD4$,D5$GOTO 1160 1160 IF D4$<>"P48"THEN 1170 : PRINT AT(23,0,80);HEX(07);C5$;" is not currently in the master device tab le of your CPU. Please try again."; : GOTO 1200 1170 IF STR(D4$,2,2)<"90"OR STR(D4$,2,2)>"98"THEN 1180 : PRINT AT(23,0,80);"Disk error";D4$;" on device ";C5$;". Make sure that de vice is ready.";HEX(0107); : GOTO 1200 1180 PRINT AT(23,0,80);"Unanticipated error # ";D4$;" at line # ";D5$;". No r ecovery has been programmed.";HEX(0107); : STOP "ERROR !" : END 1200 F,F1=F-1 : GOTO 1060 1210 F,F1=F-1 : RETURN