image of READY prompt

Wang2200.org

Listing of file='609PCRT' on disk='vmedia/701-2738G.wvd.zip'

# Sector 34, program filename = '609PCRT'
1750 REM %^ '609PCRT' - PRINT TO CRT
1755 IF C6$()<>" "THEN 1760
   : IF C4<>4AND C4<>5AND C4<>7THEN 1760
   : IF C4=5AND T5(5)=2THEN 1760
   : GOTO 1790
1760 $TRAN(C6$(),HEX(0920008B))R
   : PRINT HEX(06);AT(MOD(D5+1,22),0);STR(C6$(),1,80);
   : J8=D6
   : IF T5(5)=1THEN ON C4GOTO 1795,1800,1805,1790,1795,1800,1795
   : IF T5(5)=2THEN ON C4GOTO 1800,1810,1815,1790,1795,1805,1795
1790 D6=D6-1
   : GOTO 1820
1795 D6=D6
   : GOTO 1820
1800 D6=D6+1
   : GOTO 1820
1805 D6=D6+2
   : GOTO 1820
1810 D6=D6+3
   : GOTO 1820
1815 D6=D6+5
   : GOTO 1820
1820 D5=D5+D6-J8
   : IF 22-D6>2THEN RETURN
   : D5,D6=0
   : GOSUB 1375
   : PRINT HEX(03)
   : RETURN