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