image of READY prompt

Wang2200.org

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

# Sector 258, program filename = 'LPID1OPN'
0090 COM B2,B4,B5,B6,B7,B8,C3,C4,C5,C6,C7,C8,D3,D4,D5,D6,D7,B2$16,B4$(1)45,B5$
     (2)60,B6$(10)1,B7$(5)64,B8$(128)2,C3$(1)2,C4$64,C4$(1)64,C6$8,C7$(9)1,C8$
     39,D3$(1)3,D4$(64,2)8,D5$8,D6$1,E3$34
4010 DEFFN'70
   : DIM A9$2
   : E3$=HEX(3000310132023303340435053606370738083909200A2C0C2D0D2E0E240F)
   : SELECT #10<L9$(1)>
   : STR(B4$(1),,8)=L0$(1)
   : STR(B4$(1),9,2)=HEX(010A)
   : A9$=STR(L9$(1),2,1)&"0"
   : HEXPACKSTR(B4$(1),11,1)FROMA9$
   : D6=1
   : LIMITS T#10,L0$(1),A,B,B,B
   : DATA LOAD DA T#10,(A,STR(B4$(1),44,2))STR(B4$(1),12,32)
   : RETURN
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPID1OPN";HEX(22);
9100 DEFFN'1"SAVE T () ";HEX(22);"LPID1OPN";HEX(22);