image of READY prompt

Wang2200.org

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

# Sector 46, program filename = '609PIMAG'
1750 REM %^ '609PIMAG' - CRT DISPLAY (PAGE IMAGE)
1760 IF MOD(D5,C(8))<>0THEN 1765
   : IF D5>1THEN GOSUB 1860
   : IF T5(2)=1THEN PRINT AT(0,0);BOX(INT(C(8)/3)+1,MAX(43,C9/2+1))
   : IF T5(2)=2THEN PRINT AT(0,0);BOX(INT(C(8)/3)+1,MAX(52,C9/2+1))
   : IF T5(2)=3THEN PRINT AT(0,0);BOX(INT(C(8)/3)+1,MAX(64,C9/2+1))
   : C8$()=ALL(C0)
   : GOTO 1770
1765 IF B2=INT(MOD(D5,C(8))/3)THEN 1775
   : PRINT HEX(0202020F);AT(B2,0);C8$();HEX(0202000F06);
   : C8$()=ALL(C0)
1770 B2=INT(MOD(D5,C(8))/3)
1775 IF C6$()<>" "THEN 1780
   : IF C4<>4AND C4<>5AND C4<>7THEN 1780
   : IF C4=5AND T5(5)=2THEN 1780
   : GOTO 1825
1780 D6=MOD(D5,3)+1
   : IF D7+LEN(C6$())>159THEN 1460
   : FOR A=D7+1TO D7+LEN(C6$())STEP 2
   : IF C6$(A-D7)<>" "THEN OR (C8$(A*.5+1),C0$(D6,2))
   : IF C6$(A-D7+1)<>" "THEN OR (C8$(A*.5+2),C0$(D6,1))
   : NEXT A
   : IF T5(5)=1THEN ON C4GOTO 1830,1835,1840,1825,1830,1835,1830
   : IF T5(5)=2THEN ON C4GOTO 1835,1845,1850,1825,1830,1840,1830
1825 D5=D5-1
   : GOTO 1855
1830 D5=D5
   : GOTO 1855
1835 D5=D5+1
   : GOTO 1855
1840 D5=D5+2
   : GOTO 1855
1845 D5=D5+3
   : GOTO 1855
1850 D5=D5+5
   : GOTO 1855
1855 IF POS(STR(D$(),D8)>00)>0OR C(8)-D5>1THEN RETURN
1860 D5=-1
   : PRINT HEX(0202020F);AT(B2,0);C8$();HEX(0202000F06);
   : GOSUB 1375
   : PRINT HEX(03)
   : RETURN