image of READY prompt

Wang2200.org

Listing of file='PSUB.DAT' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1301, program filename = 'PSUB.DAT'
5502 DEFFN'205(I9,I9$)
5504 RESTORE LINE5528
   : I9(5)=INT(LEN(STR(R9$()))/8)
   : R9=0
   : R9$()=" "
   : FOR I=1TO I9
5508 READ I8$
   : IF I8$="END"THEN 5522
   : READ I9(4)
   : READ I9$()
   : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3
   : IF STR(I$,1,2)=HEX(0000)THEN 5508
   : FOR I1=0TO I9(4)-1
   : MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8
   : IF STR(I$,1,2)<>HEX(0000)THEN 5520
   : IF R9=I9(5)THEN 5524
   : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8)
   : R9=R9+1
5520 NEXT I1
   : NEXT I
   : R9$=HEX(00)
   : RETURN
5522 R9$=HEX(01)
   : RETURN
5524 R9$=HEX(02)
   : RETURN
5528 DATA "204",1,"PSUBS159"
   : DATA "162",1,"QSUBS02"
   : DATA "163",1,"QSUBS00","164",1,"QSUBS00"
   : DATA "200",4,"PSUBSALLPSUBS00 PSUBS000PSUB195"
   : DATA "201",5,"PSUBSALLPSUBS00 PSUBS000PSUB196 PSUB1960"
   : DATA "202",4,"PSUBSALLPSUBS00 PSUBS000PSUB197"
5538 DATA "203",5,"PSUBSALLPSUBS00 PSUBS000PSUB198 PSUB1960"
   : DATA "END"