image of READY prompt

Wang2200.org

Listing of file='609ESPLN' on disk='vmedia/731-0067F-disk1.wvd.zip'

# Sector 1238, program filename = '609ESPLN'
0010 REM '609ESPLN' Print a line of text with no highliting ------------------
     ---
2503 DEFFN'61
   : PRINT HEX(06);B5$(1);AT(C1,0);
   : IF LEN(D1$())>=FNP(1)THEN PRINT STR(D1$(),FNP(1),MIN(LEN(STR(D1$()))-FNP(
     1)+1,80));HEX(020400000E);
   : ELSE PRINT HEX(020400000E);
   : IF LEN(STR(D1$()))<FNP(1)+79THEN PRINT TAB(80);
   : RETURN