image of READY prompt

Wang2200.org

Listing of file='LPFKBLOB' on disk='vmedia/701-2721C.wvd.zip'

# Sector 238, program filename = 'LPFKBLOB'
0100 REM % FAKE BLOB ROUTINE
0410 COM G3$(G3)G6
   : COM L3$(L3)L6
   : COM G$(1848)1
   : LOAD T"LPCTLID1"2000,3000BEG 600
0600 GOSUB '109(L0$(1))
   : IF F$<>" "THEN GOTO 900
   : LOAD T"PKDICST"
0900 L0$=BIN(14)
   : STR(L0$,2)=L0$(1)
   : LOAD T"LPERROR"
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPFKBLOB";HEX(22)
9100 DEFFN'1"SAVE T()  ";HEX(22);"LPFKBLOB";HEX(22)