image of READY prompt

Wang2200.org

Listing of file='KFAM417U' on disk='vmedia/701-2427C.wvd.zip'

# Sector 671, program filename = 'KFAM417U'
0010 REM  KFAM417U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0120 %THIS MUST BE LINE 120
0130 LOAD T"ISS.254S"10,0BEG 140
0140 IF F9$=" "THEN 210
0160 PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES"
   : GOSUB '254
   : DATA LOAD BA T#1,(0)R9$()
   : ERRORGOTO 160
0190 DATA LOAD BA T#2,(0)R9$()
   : ERRORGOTO 160
0210 $UNPACK(F=STR(H1$,11))T$(2)<12>TO V6$,V3$,Q3$
   : Y=E2-A2-1
   : Z=VAL(V6$)
   : X=INT(Y/Z)
   : Y=Z*(X-1)
   : Q3$=BIN(Y,2)
   : Y=E1-A1-2
   : V3$=BIN(Y,2)
   : $PACK(F=STR(H1$,11))T$(2)<12>FROMV6$,V3$,Q3$
   : DATA SAVE DA T$#1,(V0$)0,T$()
   : LOAD T"KFAM997U"