image of READY prompt

Wang2200.org

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