Listing of file='IPL' on disk='vmedia/701-2049C.wvd.zip'
# Sector 528, program filename = 'IPL' 0010 REM IPL,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0060 COM D$(1)6 : DIM Q1$8,B$(4)64 : READ B$(1) : DATA "ISS RELEASE 2.1 - 11/08/76" : PRINT HEX(030A0A0A0A0A0A);TAB((64-LEN(B$(1)))/2);B$(1) : $GIO/001(0210030012228600,A$) 0140 DATA LOAD DC OPEN T#0,"MEMORY" : DATA LOAD DC S,Q1$,Q1,S1 : DATA SAVE DC CLOSEALL : IF S=0THEN 380 : PRINT HEX(03);"MEMORY SIZE (IN K) =";S : IF S<>4*INT(S/4)THEN 380 : IF S<8THEN 380 : BIN(STR(D$(1),6))=S/4 : B$(1)=" C$(024,8),L$(1)2,X$(1)2,N1:" 0260 STR(B$(1),1,5)=HEX(20FF0200A6) : STR(B$(1),33)=HEX(A1BF5423302C2249504C443130304D220D0000FE) : CONVERT (S/4)*32-8TO STR(B$(1),9,3),(###) : LIMITS T#0,"IPLD000K",X,Y,Z : DATA SAVE BA T#0,(X+1,Z)B$() : DATA LOAD BA T#0,(Y,Z)B$() 0330 STR(B$(1),2,2)=HEX(0003) : DATA SAVE BA T#0,(Y,Z)B$() : LOAD DC T#0,"IPLD000K" 0380 PRINT HEX(030A);"ENTER MEMORY SIZE IN K. (I.E. 8, 12, 16, . . . 32)" : INPUT S : IF INT(S/4)<>S/4THEN 380 : IF S<8THEN 380 : IF S>32THEN 380 : DATA LOAD DC OPEN T#0,"MEMORY" : DATA SAVE DC S,Q1$,Q1,S1 : GOTO 140