image of READY prompt

Wang2200.org

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

# Sector 1686, program filename = '709PLPT'
1750 REM %^'709PLPT'-LINE PRINTER OUTPUT 11/03/88 KKB
1752 $TRAN(C6$(),HEX(008B))R
   : AND (C6$(),7F)
   : D5=D5-1
   : IF C6$()<>" "THEN 1795
   : IF C4<>4AND C4<>5AND C4<>7THEN 1795
   : IF C4=5AND T5(5)=2THEN 1795
   : RETURN
1795 $IF OFF /005,1800
   : PRINT HEX(06);AT(5,5);STR(C6$(),,73);
1800 IF D7+LEN(C6$())>159THEN 1460
   : IF D7=0THEN 1810
   : FOR D=1TO D7
   : SELECT PRINT <@H9$>
   : PRINT " ";
   : SELECT PRINT <@H8$>
   : NEXT D
1810 SELECT PRINT <@H9$>
   : PRINT STR(C6$(),1,(LEN(C6$())));
   : SELECT PRINT <@H8$>
   : IF T5(5)=1THEN ON C4GOTO 1830,1835,1840,1830,1830,1835,1830
   : IF T5(5)=2THEN ON C4GOTO 1835,1845,1850,1830,1830,1840,1830
1830 D5=D5+1
   : GOTO 1855
1835 SELECT PRINT <@H9$>
   : PRINT HEX(0D);
   : SELECT PRINT <@H8$>
   : D5=D5+2
   : GOTO 1855
1840 SELECT PRINT <@H9$>
   : PRINT HEX(0D0D);
   : SELECT PRINT <@H8$>
   : D5=D5+3
   : GOTO 1855
1845 SELECT PRINT <@H9$>
   : PRINT HEX(0D0D0D);
   : SELECT PRINT <@H8$>
   : D5=D5+4
   : GOTO 1855
1850 SELECT PRINT <@H9$>
   : PRINT HEX(0D0D0D0D);
   : SELECT PRINT <@H8$>
   : D5=D5+6
   : GOTO 1855
1855 RETURN