image of READY prompt

Wang2200.org

Listing of file='ISS.240S' on disk='vmedia/701-2424C.wvd.zip'

# Sector sector 220, program filename = 'ISS.240S'
0010 REM  ISS.240S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0081 DIM W$(3)8,Q6$64,W$8,W3$3,R2$1,Q6$64,Q4(3),Q5(3),U1,Q1,Q4,Q5,W,W1
7855 DEFFN'247(Q6$)
   : SELECT PRINT 005,CO 005
   : PRINT HEX(010A);Q6$;" VOL.";Q5(W);"OF FILE ";W$(W);" - UNIT";W,TAB(80)
   : GOSUB '254
   : RETURN
7890 DEFFN'241(W,W3$)
   : DATA SAVE DC #W,W3$,W$(W),Q1,Q4(W),Q5(W)
   : DATA SAVE DC $#W,END
   : GOSUB '227(W,W$(W),0)
   : DATA SAVE DC CLOSE#W
   : GOSUB '247("REMOVE DISK CONTAINING")
   : IF W3$="EOF"THEN RETURN
   : Q5(W)=Q5(W)+1
7955 DEFFN'240(W,W$(W),Q4(W),Q5(W))
   : GOSUB '247("MOUNT DISK TO CONTAIN")
   : PRINT AT(3,0);TAB(80);AT(3,0)
   : GOSUB '228(W,W$(W),5)
   : ON VAL(R2$)-47GOTO 8125,8150
   : LIMITS T#W,W$(W),R2,R3,R4
   : IF R3-R2<5THEN 8150
   : IF R2$="3"THEN 8105
   : DATA LOAD DC OPEN T#W,W$(W)
   : DATA LOAD DC #W,W3$,W$,W1,Q4,Q5
   : DBACKSPACE #W,1S
8060 DEFFNA(U1)=U1-1E3*INT(U1/1E3)+INT(365.25*INT(U1/1E3))
   : IF Q4+FNA(W1)-FNA(Q1)<=0THEN 8125
   : PRINT AT(3,0);"RETENTION CYCLE NOT EXPIRED"
   : GOSUB '254
   : IF Q6$="X"THEN 8125
   : GOTO 7955
8105 DATA SAVE DC OPEN T#W,W$(W),W$(W)
8125 W3$="HDR"
   : DATA SAVE DC #W,W3$,W$(W),Q1,Q4(W),Q5(W)
   : RETURN
8150 PRINT AT(3,0);"INSUFFICIENT SPACE"
   : GOSUB '254
   : GOTO 7955