5*DR. 0 10MODE7:PROCA:*LOAD !screen 20VDU23;8202;0;0;0;:PRINTTAB(8,13);CH R$130;"ISSUE 8 DISC MAGAZINE" 30PRINTTAB(8,14);CHR$130;"ISSUE 8 PRO GRAM MENU" 40PRINTTAB(8,15);CHR$130;"ISSUE 7 DIG ITISED PICTURES" 50select%=FNA(5,13,33,15) 60IF select%=1 THEN PROCmagazine 70IF select%=2 THEN PROCmenu 80IF select%=3 THEN PROCpictures 90RUN 100: 110: 120DEF PROCmenu 130FOR X=9 TO 15 140PRINTTAB(0,X);SPC(39) 150NEXT X 160PRINTTAB(8,9);CHR$130;"New Battlesh ips Program" 170PRINTTAB(8,10);CHR$130;"New Cells a nd Serpents" 180PRINTTAB(8,11);CHR$130;"Elite Cheat Editor" 190PRINTTAB(8,12);CHR$130;"Basic Envel ope Printer" 200PRINTTAB(8,13);CHR$130;"Fighter Com mand Game" 210PRINTTAB(8,14);CHR$130;"Graphical G lobe Screen" 220PRINTTAB(8,15);CHR$130;"Stopping Di stances Test" 230PRINTTAB(8,16);CHR$130;"Keystrip De signer/Printer" 240PRINTTAB(8,17);CHR$130;"Metric Conv erter Utility" 250PRINTTAB(8,18);CHR$130;"Musical Key board Program" 260PRINTTAB(8,19);CHR$130;"Character R e-definition" 270PRINTTAB(8,20);CHR$130;"Typewriter Emulation" 280PRINTTAB(8,21);CHR$130;"Virus Simul ator" 290choice%=FNA(5,9,33,21) 300CLS 310*FX 4 0 320IF choice%=1 THEN CHAIN"BATTLE" 330IF choice%=2 THEN CHAIN"NEWCELS" 340IF choice%=3 THEN CHAIN"CHEAT" 350IF choice%=4 THEN CHAIN"ENVELOP" 360IF choice%=5 THEN PAGE=&1900:CHAIN" FCINTRO" 370IF choice%=6 THEN CHAIN"GLOBE" 380IF choice%=7 THEN CHAIN"HIGHWAY" 390IF choice%=8 THEN CHAIN"KEYSTRP" 400IF choice%=9 THEN CHAIN"METRIC" 410IF choice%=10 THEN CHAIN"MUSIC" 420IF choice%=11 THEN CHAIN"TEXTDEF" 430IF choice%=12 THEN CHAIN"TYINTRO" 440IF choice%=13 THEN PROCvirus 450RUN 460ENDPROC 470 480 490 500 510 520END 530DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 540REPEATPRINTTAB(£%,a%);CHR$129;CHR$1 57;CHR$134;TAB((£%+b%),a%);CHR$156:*FX15 550A$=GET$:e%=VALA$:IFA$=CHR$13GOTO600 560IFe%=0THENe%=-1 570IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO600 580IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO600 590PRINTTAB(£%,a%);SPC2:a%=a%+e% 600UNTILA$=CHR$13:*FX4,0 610=(a%-d%) 620DEFPROCA:*KEY14 1|M 630*KEY15 0|M 640*KEY12 0|M 650*KEY13 1|M 660ENDPROC 670: 680DEF PROCvirus 690OSCLI("KEY 10 OLD|MRUN|M") 700*KEY0 CLS|MLOAD"VIRUS"|M NOW PRESS BREAK!!! 710*FX138,0,128 720END 730: 740DEF PROCpictures 750FOR X=9 TO 21 760PRINTTAB(0,X);SPC(39) 770NEXT X 780PRINTTAB(5,13);CHR$134;"Running Dig itised Pictures ..." 790PRINT"SORRY! See Issue 7."'"Press a key":REPEATUNTILGET 800ENDPROC 810 820DEF PROCmagazine 830CLS 840PAGE=&1900 850OSCLI("DRIVE 2") 860CHAIN"$.Viewdat"