10REM Display 20REM Version 2.11 30REM 16/02/93 40REM (C) SMYLIEsoft '93 50 60PROCinit 70MODE VAL(mode$) 80PROCsetup 90ON ERROR GOTO 100 100REPEAT 110PROCchoose 120UNTIL F=3 130CLOSE#0 140PROCpublic 150END 160 170DEFPROCinit 180ch=OPENUP("ATOZ") 190PTR#ch=16 200INPUT#ch,mode$ 210INPUT#ch,pagewidth$ 220INPUT#ch,pagelength$ 230PTR#ch=44 240INPUT#ch,pagesize$ 250INPUT#ch,pagestart$ 260PTR#ch=66 270INPUT#ch,background$ 280INPUT#ch,foreground$ 290INPUT#ch,header$ 300number=EXT#ch 310number=(number-VAL(pagestart$))/VAL (pagesize$) 320*KEY 12 B 330*KEY 13 F 340ENDPROC 350 360DEFPROCsetup 370VDU23;8202;0;0;0; 380VDU23,225,0,4,6,255,255,6,4,0 390VDU23,226,0,32,96,255,255,96,32,0 400VDU23,224,255,0,0,0,0,0,0,0 410VDU23,227,60,66,189,161,161,189,66, 60 420VDU19,0,VAL(background$);0;19,1,VAL (background$);0;19,3,VAL(background$);0; 430IF mode$="0" columns=77 ELSE column s=38 440R=5*(columns MOD2 +1) 450 460W=8:X=1279:Y=1023:Z=12 470MOVEZ,Z:MOVEZ+W,Z 480PLOT85,Z,Y-Z 490PLOT85,Z+W,Y-Z 500MOVEZ,Z:MOVEZ,Z+W 510PLOT85,X-Z,Z 520PLOT85,X-Z,Z+W 530MOVEX-Z-W,Z:MOVEX-Z,Z 540PLOT85,X-Z-W,Y-Z 550PLOT85,X-Z,Y-Z 560MOVEX-Z,Y-Z-W:MOVEX-Z,Y-Z 570PLOT85,Z,Y-Z-W 580PLOT85,Z,Y-Z 590MOVEZ,Y-75:MOVEZ,Y-75-W 600PLOT85,X-Z,Y-75 610PLOT85,X-Z,Y-75-W 620VDU28,2-VAL(mode$),1,columns,1 630PRINTTAB((columns-LEN(header$))/2); header$; 640MOVEZ,75:MOVEZ,75+W 650PLOT85,X-Z,75+W 660PLOT85,X-Z,75 670X=400+(165*(VAL(mode$)-1)) 680MOVEX,Z 690MOVEX,75 700PLOT85,X-W,Z 710PLOT85,X-W,75 720VDU28,2-VAL(mode$),28,columns,3 730VDU19,3,VAL(foreground$);0; 740ENDPROC 750 760DEFPROCchoose 770PROCmessagewindow(CHR$227+" SMYLIEs oft '93") 780PROCpagewindow(STR$(number)+" pages ") 790PROCmainwindow:CLS 800REPEAT 810PRINTTAB(R,7);"1. View all pages" 820PRINT'TAB(R);"2. Start at certain p age" 830PRINT'TAB(R);"3. Quit" 840PRINT''''TAB(R);"Which one ? ";:F=G ET:F=F-48:PRINT;F 850UNTIL F>0 AND F<4 860IF F=1 CLS:J=1:PROCdisplay(J):PROCb ackforward:ENDPROC 870IF F=2 PROCselect:ENDPROC 880ENDPROC 890 900DEFPROCselect 910REPEAT 920INPUT''TAB(R);"Start at which numbe r ",G 930UNTIL G<=number AND G>=1:CLS 940J=G:PROCdisplay(J):PROCbackforward 950ENDPROC 960 970DEFPROCbackforward 980REPEAT 990PROCmessagewindow(CHR$226+" (M)enu (P)rint "+CHR$225) 1000*FX4,2 1010REPEAT 1020H$=GET$ 1030UNTIL H$="F" OR H$="B" OR H$="M" OR H$="P" 1040*FX4,0 1050IF H$="P" THEN PROCprint:GOTO990 1060IF H$="M" J=number+1:GOTO1150 1070IF H$="F" THEN J=J+1 1080IF J=number+1 THEN GOTO 1150 1090IF H$="B" THEN J=J-1 1100IF J=0 THEN J=1:GOTO 1000 1110VDU28,2-VAL(mode$),27,columns,3 1120VDU28,2-VAL(mode$),28,columns,3 1130CLS 1140PROCdisplay(J) 1150UNTIL J=number+1 1160ENDPROC 1170 1180 1190DEFPROCdisplay(J) 1200page$="page : "+STR$(J) 1210PROCpagewindow(page$) 1220PROCmainwindow 1230PTR#ch=VAL(pagestart$)+(J-1)*VAL(pa gesize$) 1240IF F=3 THEN VDU2 1250FOR T=1 TO VAL(pagelength$) 1260INPUT#ch,line$ 1270IF F=3 THEN PRINTline$ ELSE PRINTli ne$; 1280NEXTT 1290ENDPROC 1300 1310DEFPROCmessagewindow(message$) 1320VDU28,2-VAL(mode$)+12+(1-VAL(mode$) ),30,columns,30 1330PRINTTAB((columns-12-LEN(message$)) /2);message$; 1340ENDPROC 1350 1360DEFPROCpagewindow(page$) 1370VDU28,2-VAL(mode$),30,2-VAL(mode$)+ 10,30 1380PRINTTAB((11-LEN(page$))/2);page$; 1390ENDPROC 1400 1410DEFPROCmainwindow 1420VDU28,2-VAL(mode$)+1,28,columns-1,4 1430ENDPROC 1440 1450DEFPROCpublic 1460CLS:CLG 1470PRINTCHR$227;" SMYLIEsoft 1993" 1480PRINT''"This viewing program has be en" 1490PRINT"released into the Public Doma in," 1500PRINT"author copyright has been ret ained." 1510PRINT''"The information held on the " 1520PRINT"pages of this datafile howeve r," 1530PRINT"are not copyrighted." 1540PRINT'' 1550ENDPROC 1560DEFPROCprint 1570PROCmessagewindow("Turn on printer" ) 1580FORT=1TO3000:NEXTT 1590PROCmessagewindow("PRESS <SPACE>") 1600M=GET 1610COLOUR1 1620PTR#ch=VAL(pagestart$)+(J-1)*VAL(pa gesize$) 1630VDU2 1640PRINT'"Page : ";J:PRINT' 1650FORT=1 TO VAL(pagelength$) 1660INPUT#ch,line$ 1670PRINTline$ 1680NEXTT 1690VDU3 1700COLOUR3 1710ENDPROC