image of READY prompt

Wang2200.org

Listing of file='ISS.013U' on disk='vmedia/701-2423D.wvd.zip'

# Sector 213, program filename = 'ISS.013U'
0010 REM  ISS.013U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0070 DIM G$(2,14)8,E$(16)16
0120 %   THIS MUST BE STATEMENT 120
0140 S1$="ISS.217SISS.200SISS.254S"
   : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 160
0160 IF F9$=" "THEN 250
0180 PRINT AT(1,0,S0);"MOUNT INPUT PLATTER"
   : GOSUB '254
0200 LIMITS T#1,N$,A1,A1,A1,A2
   : ERRORGOTO 180
0210 IF A2<>2THEN 180
0250 IF STR(M$,1,3)="NEW"THEN GOSUB '217(N$,1,S2,-2,4,"ISS 4.0 REF"," ",0)
   : ELSE GOSUB '217(N$,1,S2,-2,4,"ISS"," ",0)
   : IF STR(M$,5,3)="OLD"THEN 370
   : FOR I=1TO E1/14
   : DATA SAVE DC #1,STR(F2$(),I*112-111,112),STR(F3$(),I*112-111,112),STR(F4$
     (),I*14-13,14)
   : NEXT I
   : GOSUB '219(N$,1,S2," ",0)
   : GOTO 490
0370 FOR I=1TO E1/14
   : FOR J=1TO 14
   : G$(1,J)=F2$((I-1)*14+J)
   : G$(2,J)=F3$((I-1)*14+J)
   : NEXT J
   : DATA SAVE DC #1,G$()
   : NEXT I
   : GOSUB '219(N$,1,S2," ",0)
0490 LIMITS T#1,N$,I,J,I
   : DATA LOAD BA T#1,(J)E$()
   : IF STR(M$,5,3)="NEW"THEN E$(2)="ISS 4.0 REF"
   : ELSE E$(2)="ISS"
   : DATA SAVE BA T#1,(J)E$()
   : PRINT AT(0,0,45)
0590 GOSUB '200("N","Y",1,0,"DO YOU WANT TO PRINT THE REFERENCE FILE ?   (Y/N)
     ",2)
   : IF Q6$="N"THEN GOSUB '31
   : IF Q6$="Y"THEN 670
   : GOSUB '255
   : GOTO 590
0670 PRINT HEX(03)
   : GOSUB '44
   : IF P$="P"THEN 760
0710 LOAD DC T#0,"ISS.014U"
   : ERRORGOTO 720
0720 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 710
0760 PRINT HEX(010A07);"PRINTER REQUIRED"
   : GOSUB '254
   : GOSUB '31
   : PRINT HEX(07010A);"MOUNT INPUT PLATTER"
   : GOSUB '254
   : GOTO 200
0880 DEFFN'44
   : P$="   000005"
   : MAT SEARCHP$,=S$(1)TO P$
   : IF STR(P$,1,2)=HEX(0000)THEN P$=" "
   : ELSE P$="P"
   : RETURN
0960 DEFFN'31
   : PRINT HEX(03)
   : GOSUB '219(N$,1,S2," ",0)
   : COM CLEAR N$
1000 LOAD DC T#0,"ISS.100M"
   : ERRORGOTO 1010
1010 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 1000