10 *FX119 20 REM *** Try LISTIF REM for ADFS conversion suggestions 30 OSCLI"DISK":OSCLI"DR.0":REM *DIR$ 40 CLOSE#0 50 REM ONERROR CLOSE#0:OSCLI"DR.0":RUN 60 VDU3 70 *FX15,10 80 VDU3 90 CLEAR:READN%:DIMf$(N%):FORI%=1TON%:READf$(I%):NEXT 100 MODE7:PROCscreen 110 X%=OPENIN"!BOOT":PTR#X%=&98:PRINTTAB(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET#X%);CHR$(BGET#X%):CLOSE#X% 120 REM *DIR MAGAZINE 130 PRINT TAB(2,7);CHR$135;"101 ... Introduction / News" 140 PRINT TAB(2,8);CHR$135;"102 ... Questionnaire Results" 150 PRINT TAB(2,9);CHR$135;"103 ... User Response" 160 PRINT TAB(2,10);CHR$135;"104 ... C Sourcecode" 170 PRINT TAB(2,11);CHR$133;"105 ... About this Issue" 180 PRINT TAB(2,12);CHR$135;"106 ... Presenting Programs 3" 190 PRINT TAB(2,13);CHR$135;"107 ... Freeze your 6502" 200 PRINT TAB(2,14);CHR$135;"108 ... Book Review" 210 PRINT TAB(2,15);CHR$133;"109 ... Messages Section" 220 PRINT TAB(2,16);CHR$135;"110 ... Program Documentation" 230 PRINT TAB(2,17);CHR$135;"111 ... Archimedes Debate" 240 PRINT TAB(2,18);CHR$135;"112 ... Puzzle Info" 250 PRINT TAB(2,19);CHR$135;"113 ... Christmas Wordpuzzle" 260 PRINT TAB(2,20);CHR$133;"114 ... 32016 Section" 270 PRINT TAB(2,21);CHR$135;"115 ... TBI pool update" 280 PRINT TAB(2,22);CHR$131;"999 ... Issue 24 Software Menu" 290 PRINT TAB(0,5);CHR$131;"xxx:MODE 7 Axxx:MODE 3 Pxxx:Printout" 300 PRINT TAB(4,6);CHR$129;"ENTER CODE ";:INPUT""code$ 310 Z%=0:VDU23;8202;0;0;0;:*FX15 320 s$=RIGHT$(code$,3):p$=LEFT$(code$,1) 330 IF s$="107"THEN CHAIN"Freeze" 340 IF s$="999"THEN PROCsoftware:RUN 350 IF p$="P" OR p$="p" THEN Z%=1:IF s$="104" OR s$="113" THEN MODE3:VDU2:Z%=0:OSCLI"TYPE "+f$(VALRIGHT$(s$,2)) 360 IF p$="A" OR p$="a" OR p$="P" OR p$="p" THEN IF NOT(s$="104"ORs$="107"ORs$="113") THEN $&A00=f$(VALRIGHT$(s$,2)):CHAIN"cnvtMO3" 370 IF NOT(s$="104" OR s$="107" OR s$="113" OR s$="117") THEN OSCLI"/"+f$(VALRIGHT$(s$,2)) 380 IF NOT(p$="P"ORp$="p") THEN IF s$="104" OR s$="113" THEN MODE3:VDU14:OSCLI"TYPE "+f$(VALRIGHT$(s$,2)) 390 VDU3 400 *FX15,0 410 VDU3 420 PRINT"Output Complete - PRESS RETURN" 430 *FX15 440 REPEATUNTILGET=13 450 RUN 460 ******* 470 DATA 15,IntNews,Results,Cmments,CSource,About24,Present, ,EpsonBk,MailBox,Dcumnts,ArchDbt,PuzInfo,Puzl92,NS32016,TBIupdt 480 DEFPROCA:*KEY14 1|M 490 *KEY15 0|M 500 *KEY12 0|M 510 *KEY13 1|M 520 ENDPROC 530 ******* 540 DEFPROCscreen 550 PRINT" "; 560 PRINT"ISSUE NUMBER24"; 570 PRINT" ꠰ "; 580 PRINT"뢡 ꡵ꮃJAN 1993"; 590 PRINT" "; 600 ENDPROC 610 ******* 620 DEFPROCsoftware:VDU23;8202;0;0;0;:b$="Back to main menu" 630 REPEAT:PROCclear:*DR.2 640 REM replace above line with REPEAT:PROCclear:*DIR $.Software 650 VDU6:PROCA 660 PRINT TAB(6,8);CHR$(135);"***** MESSAGE TO YOU *****" 670 PRINT TAB(6,9);CHR$(135);" Games, Demos etc." 680 PRINT TAB(6,10);CHR$135;" Applications" 690 PRINT TAB(6,11);CHR$135;" Utilities" 700 PRINT TAB(6,12);CHR$135;" Repton Passwords" 710 PRINT TAB(6,13);CHR$135;" De-archive Software" 720 PRINT TAB(6,14);CHR$135;"**** BACK TO MAGAZINE ****" 730 d%=FNA(4,8,31,14) 740 IF d%=1 THEN PROCmessage 750 IF d%=2 THEN PROCgames 760 IF d%=3 THEN PROCapplics 770 IF d%=4 THEN PROCutils 780 IF d%=5 THEN CHAIN"RepPass" 790 IF d%=6 THEN CLS:PRINT"Refer to issue 24 documentation for instructions on how to decompress this archive."''"DRIVE 2":OSCLI"EX Z":PRINT'':END 800 UNTILd%=7:RUN 810 ********** 820 DEFPROCgames:d%=0 830 PROCclear 840 PRINT TAB(7,8);CHR$135;"Patience" 850 PRINT TAB(7,9);CHR$135;"Intellectual Hangman" 860 PRINT TAB(7,10);CHR$135;"Christmas Cracker" 870 PRINT TAB(7,11);CHR$135;"12 Days of Xmas" 880 PRINT TAB(7,12);CHR$135;"Graph14" 890 PRINT TAB(7,13);CHR$135;"3D Demo" 900 PRINT TAB(7,14);CHR$135;"3D Demo (B)" 910 REM PRINT TAB(7,15);CHR$135;"Towers of Hanoi" 920 PRINT TAB(7,15);CHR$135;b$:REM PRINT TAB(7,16);CHR$135;b$ 930 c%=FNA(3,8,34,15):REM c%=FNA(3,8,34,16) 940 IF c%=1 THEN CHAIN"PATNCE" 950 IF c%=2 THEN CHAIN"Execute" 960 IF c%=3 THEN CHAIN"CRACKER" 970 IF c%=4 THEN CHAIN"12Days" 980 IF c%=5 THEN CHAIN"GRAPH14" 990 IF c%=6 THEN CHAIN"3DDemo" 1000 IF c%=7 THEN CHAIN"3DDemoS" 1010 REM IF c%=8 THEN OSCLI"Hanoi":RUN 1020 ENDPROC 1030 ******* 1040 DEFPROCapplics 1050 PROCclear 1060 PRINTTAB(9,8);CHR$135;"Bank Manager" 1070 PRINTTAB(9,9);CHR$135;"Disk Envelope Creator" 1080 PRINTTAB(9,10);CHR$135;"Fahrenheit to Celsius" 1090 PRINTTAB(9,11);CHR$135;"Form Master" 1100 PRINTTAB(9,12);CHR$135;"Sim City Cheat" 1110 PRINTTAB(9,13);CHR$135;"Picture Gallery V2" 1120 PRINTTAB(9,14);CHR$135;b$ 1130 c%=FNA(3,8,34,14) 1140 IFc%=1THENCHAIN"BankMan" 1150 IFc%=2THENCHAIN"ENVCRE" 1160 IFc%=3THENOSCLI"FAHR":RUN 1170 IFc%=4THENCHAIN"FormMas" 1180 IFc%=5THENCHAIN"SimCht" 1190 IFc%=6THENCHAIN"PicDis3" 1200 ENDPROC 1210 ******* 1220 DEFPROCutils 1230 PROCclear 1240 PRINTTAB(5,8);CHR$135;"Econet Tree" 1250 PRINTTAB(5,9);CHR$135;"RAMdisk" 1260 PRINTTAB(5,10);CHR$135;"Multiple Accesser" 1270 PRINTTAB(5,11);CHR$135;"Bulk Delete" 1280 PRINTTAB(5,12);CHR$135;b$ 1290 c%=FNA(3,8,34,12) 1300 IFc%=1THENCHAIN"ETREE" 1310 IFc%=2THENCHAIN"RAMdisk" 1320 IFc%=3THENCHAIN"Accessr" 1330 IFc%=4THENCHAIN"BulkDel" 1340 ENDPROC 1350 ******* 1360 DEFPROCmessage:CLS 1370 PRINT"No room on this disk, any messages will be enclosed on paper." 1380 PRINT'"Press RETURN to continue...":REPEATUNTILGET=13 1390 RUN 1400 ******* 1410 DEFFNA(`%,A%,B%,C%):D%=(A%-1):*FX4,2 1420 REPEATPRINTTAB(`%,A%);CHR$132;CHR$157;CHR$135;TAB((`%+B%),A%);CHR$156:*FX15 1430 A$=GET$:E%=VALA$:IFA$=CHR$13GOTO1480 1440 IFE%=0THENE%=-1 1450 IF(A%+E%)>C%PRINTTAB(`%,A%);SPC2:A%=(D%+1):GOTO1480 1460 IF(A%+E%)<(D%+1)PRINTTAB(`%,A%);SPC2:A%=C%:GOTO1480 1470 PRINTTAB(`%,A%);SPC2:A%=A%+E% 1480 UNTILA$=CHR$13:*FX4,0 1490 =(A%-D%) 1500 ******* 1510 DEFPROCclear 1520 FORI%=5TO23:PRINTTAB(1,I%);SPC(39);:NEXT 1530 PRINTTAB(1,24);SPC(36);: 1540 ENDPROC 1550 *******