10 *FX255 15 20 MODE7:PROCA:*LOAD !screen 30 VDU23;8202;0;0;0; 40 PRINTTAB(8,10);CHR$133;"Issue 11 Disc Magazine" 50 PRINTTAB(8,11);CHR$133;"Issue 11 Software Menu" 60 PRINTTAB(8,12);CHR$133;"Charging Article" 70 PRINTTAB(8,13);CHR$133;"Repton Infinity Review" 80 PRINTTAB(8,14);CHR$133;"Disc Magazine Help" 90 PRINTTAB(8,15);CHR$133;"More Repton 3 Screens" 100 PRINTTAB(8,16);CHR$133;"*** MESSAGES FOR YOU ***" 110 PRINTTAB(2,22);CHR$134;" ISSUE 11 PD SOFTWARE AND MAGAZINE" 120 select%=FNA(3,10,33,16) 130 IF select%=1 THEN PROCmagazine 140 IF select%=2 THEN PROCmenu 150 IF select%=3 THEN MODE0:PROCcharging:MODE7 160 IF select%=4 THEN MODE0:PROCrepinf:MODE7 170 IF select%=5 THEN type$=":0.T.MagINS":MODE0:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:OSCLI("TYPE "+(type$)):PRINT:PRINT"Press any Key":A=GET:CLEAR:RUN 180 IF select%=6 THEN PROCrepton 190 IF select%=7 THEN MODE3:PROCmessages:CLEAR:GOTO 20 200 RUN 210 : 220 : 230 DEF PROCmenu 240 FOR X=8 TO 22 250 PRINTTAB(3,X);SPC(34) 260 NEXT X 270 PRINTTAB(8,10);CHR$133;"Helicopter Haulocast" 280 PRINTTAB(8,11);CHR$133;"Astronomy Database" 290 PRINTTAB(8,12);CHR$133;"Pontoon Card Game" 300 PRINTTAB(8,13);CHR$133;"Teletext Editor" 310 PRINTTAB(8,14);CHR$133;"Careers Forcaster" 320 PRINTTAB(8,15);CHR$133;"Extra Star Commands" 330 PRINTTAB(8,16);CHR$133;"Year Planner/Organiser" 340 PRINTTAB(8,17);CHR$133;"Percentages Program" 350 PRINTTAB(8,18);CHR$133;"Red Dwarf III Screens" 360 PRINTTAB(8,19);CHR$133;"World Map Graphical Screens" 370 PRINTTAB(8,20);CHR$133;"PROGRAMMERS RETURN REVIEWS" 380 PRINTTAB(8,21);CHR$133;"***** Previous Menu *****" 390 choice%=FNA(5,10,32,21) 400 *FX 4 0 410 IF choice%=1 THEN CHAIN"Helicop" 420 IF choice%=2 THEN CHAIN"Observe" 430 IF choice%=3 THEN CHAIN"Pontoon" 440 IF choice%=4 THEN CHAIN"TextED" 450 IF choice%=5 THEN CHAIN"Careers" 460 IF choice%=6 THEN PROCstarcom:RUN 470 IF choice%=7 THEN CHAIN"Organse" 480 IF choice%=8 THEN CHAIN"Percent" 490 IF choice%=9 THEN CHAIN"Dloader" 500 IF choice%=10 THEN PROCwmap 510 IF choice%=11 THEN PROCprogret 520 IF choice%=12 THEN RUN 530 ENDPROC 540 550 560 570 580 590 END 600 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2 610 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$133;TAB((`%+b%),a%);CHR$156:*FX15 620 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO670 630 IFe%=0THENe%=-1 640 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO670 650 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO670 660 PRINTTAB(`%,a%);SPC2:a%=a%+e% 670 UNTILA$=CHR$13:*FX4,0 680 =(a%-d%) 690 DEFPROCA:*KEY14 1|M 700 *KEY15 0|M 710 *KEY12 0|M 720 *KEY13 1|M 730 ENDPROC 740 : 750 DEF PROCmagazine 760 CLS 770 PAGE=&1900 780 OSCLI("DRIVE 2") 790 CHAIN"$.Viewdat" 800 : 810 DEF PROCrepton 820 FOR X=8 TO 22 830 PRINTTAB(3,X);SPC(34):NEXT 840 PRINTTAB(3,10);CHR$133;"The Filename R.BLOG on the disc" 850 PRINTTAB(3,11);CHR$133;"contains the Repton 3 Screen" 860 PRINTTAB(3,12);CHR$133;"files. Load REPTON 3 as normal" 870 PRINTTAB(3,13);CHR$133;"before loading the screens in" 880 PRINTTAB(3,14);CHR$133;"the normal way. Passwords will" 890 PRINTTAB(3,15);CHR$133;"be revealed next month." 900 *FX15 910 A=GET 920 CLEAR:RUN 930 ENDPROC 940 : 950 DEF PROChints 960 CLS:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:OSCLI("TYPE V.Hint1"):PRINT:PRINT"Press any Key for next hints file ...":A=GET 970 CLS:PRINT"Press Control & Shift to Pause"':OSCLI("TYPE V.Hint2"):PRINT:PRINT"Press any Key to return to menu":A=GET 980 ENDPROC 990 : 1000 DEF PROCmessages 1010 CLS:PRINT"Press Control & Shift to PAUSE"'"Press RETURN to view your messages"'':A=GET:OSCLI("DRIVE 2"):OSCLI("TYPE $.Message"):PRINT:PRINT"Press RETURN to go back to !Menu ....":A=GET:OSCLI("DRIVE 0") 1020 ENDPROC 1030 : 1040 DEF PROCrepinf 1050 CLS:PRINT"The ASCII file on disc can be loaded into any suitable word processor and"'"printed for easier reading if desired. If using Interword then load in as"'"normal before increasing the page width to format the text correctly." 1060 PRINT"Filename = T.Repton (Drive 2) - PRESS RETURN TO VIEW THE REVIEW" 1070 PRINT"(Use + to halt scrolling)" 1080 PRINT:PRINT 1090 A=GET:OSCLI("TYPE :2.T.REPTON"):PRINT:PRINT"Press any Key for !Menu":A=GET 1100 ENDPROC 1110 : 1120 DEF PROCcharging 1130 CLS:PRINT"The ASCII file on disc can be loaded into any suitable word processor and"'"printed for easier reading if desired. If using Interword then load in as"'"normal before increasing the page width to format the text correctly." 1140 PRINT"Filename = T.Charge (Drive 2) - PRESS RETURN TO VIEW THE ARTICLE" 1150 PRINT"(Use + to halt scrolling)" 1160 PRINT:PRINT 1170 A=GET:OSCLI("TYPE :2.T.CHARGE"):PRINT:PRINT"Press any Key for !Menu":A=GET 1180 ENDPROC 1190 : 1200 DEF PROCstarcom 1210 FOR X=8 TO 22 1220 PRINTTAB(3,X);SPC(34):NEXT 1230 PRINTTAB(3,10);CHR$133;"Seven new Star Commands have" 1240 PRINTTAB(3,11);CHR$133;"been put on Side 0 of this" 1250 PRINTTAB(3,12);CHR$133;"months disc under the ""C.""" 1260 PRINTTAB(3,13);CHR$133;"directory. A small text file" 1270 PRINTTAB(3,14);CHR$133;"called T.Starcom (Drive 0)" 1280 PRINTTAB(3,15);CHR$133;"details how they are used." 1290 PRINTTAB(3,17);CHR$133;"EXAMPLE - press CTRL BREAK now and" 1300 PRINTTAB(3,18);CHR$133;"enter *LIB C followed by command" 1310 PRINTTAB(3,19);CHR$133;"*FILEINF !Menu" 1320 A=GET:ENDPROC 1330 : 1340 DEF PROCprogret 1350 FOR X=8 TO 22 1360 PRINTTAB(3,X);SPC(34):NEXT 1370 PRINTTAB(3,10);CHR$133;"The filename T.Progret (Drive 2)" 1380 PRINTTAB(3,11);CHR$133;"contains this months programmers" 1390 PRINTTAB(3,12);CHR$133;"return. This file can be loaded" 1400 PRINTTAB(3,13);CHR$133;"into any suitable word processor" 1410 PRINTTAB(3,14);CHR$133;"or can be viewed from BASIC by" 1420 PRINTTAB(3,15);CHR$133;"*TYPEing the file in MODE 0 or 3" 1430 PRINTTAB(3,17);CHR$133;"To view in BASIC select MODE 0" 1440 PRINTTAB(3,18);CHR$133;"or 3 then select Drive 2 before" 1450 PRINTTAB(3,19);CHR$133;"entering *TYPE T.Progret" 1460 A=GET:ENDPROC 1470 : 1480 DEF PROCwmap 1490 OSCLI("DRIVE 2") 1500 OSCLI("DIR S") 1510 CLS 1520 PRINT"Press SPACE to load each picture" 1530 VDU23;8202;0;0;0; 1540 A=GET 1550 OSCLI("SCRLOAD OBLITER"):A=GET 1560 OSCLI("SCRLOAD RAYTRC"):A=GET 1570 OSCLI("SCRLOAD VALKY"):A=GET 1580 OSCLI("SCRLOAD WMAP1"):A=GET 1590 OSCLI("SCRLOAD WMAP2"):A=GET 1600 OSCLI("SCRLOAD WMAP3"):A=GET 1610 OSCLI("DIR $") 1620 OSCLI("DRIVE 0") 1630 CLEAR:RUN:ENDPROC 1640 :