10 REM (c) Andy Nibbs 1991 20 : 30 ONERRORRUN 40 event_n=2 50 MODE7:HIMEM=&4000 60 VDU23;8202;0;0;0; 70 PROCscreen(0,24) 80 PROCassemble 90 REPEAT 100 selected=FNselect 110 IFselected=14 PROCprint_info 120 IFselected=13 CHAIN":0.!MENU" 130 IFprint:CLS:PRINT"printing...":PROCprint:RUN 140 PROCshow 150 : 160 DEFPROCscreen(x,y) 170 PRINTTAB(x,0+y)""; 180 PRINTTAB(x,1+y)"o16"; 190 PRINTTAB(x,2+y)""; 191 PRINTTAB(x,3+y)" "; 200 PRINTTAB(x,4+y)" "; 210 PRINTTAB(x,5+y)"The Magazine of 8-bit software "; 220 PRINTTAB(x,6+y)" The Magazine of 8-bit software "; 230 PRINTTAB(x,7+y) " "; 240 PRINTTAB(x,8+y) " Problems/help wanted "; 250 PRINTTAB(x,9+y) " Hints and tips j "; 260 PRINTTAB(x,10+y)" Mailbox "; 270 PRINTTAB(x,11+y)" Programmers return 8 "; 280 PRINTTAB(x,12+y)" Repton reportage "; 290 PRINTTAB(x,13+y)" Review "; 300 PRINTTAB(x,14+y)" System return "; 310 PRINTTAB(x,15+y)" Tech Tips number 3 "; 320 PRINTTAB(x,16+y)" Archiving article "; 330 PRINTTAB(x,17+y)" 8 BIT NEWS "; 340 PRINTTAB(x,18+y)" Next month j"; 350 PRINTTAB(x,19+y)" 5 Footnote to magazine j"; 360 PRINTTAB(x,20+y)"5On this month's disc j "; 370 PRINTTAB(x,21+y)" 5 View software menu j "; 380 PRINTTAB(x,22+y)" 5 Print an article. j "; 390 PRINTTAB(x,23+y)" -,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"; 400 ENDPROC 410 : 420 DEFFNselect 430 line=0 440 printline=14 450 PROCputbar 460 REPEAT 470 TIME=0:REPEATUNTILTIME>2 480 IF INKEY-58 AND line>0 THEN A%=19:CALL&FFF4:PROCrembar:line=line-1:PROCputbar 490 IF INKEY-42 AND line