image of READY prompt

Wang2200.org

Listing of file='IPL' on disk='vmedia/701-2048D.wvd.zip'

# Sector 629, 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