8-Bit Software Online Conversion
:0.$.!MENU - Listing
10*FX119
20REM *** Try LISTIF REM for ADFS con
version suggestions
30OSCLI"DISK":OSCLI"DR.0":REM *DIR$
40CLOSE#0
50REM ONERROR CLOSE#0:OSCLI"DR.0":RUN
60VDU3
70*FX15,10
80VDU3
90CLEAR:READN%:DIMf$(N%):FORI%=1TON%:
READf$(I%):NEXT
100MODE7:PROCscreen
110X%=OPENIN"!BOOT":PTR#X%=&98:PRINTTA
B(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET#X
%);CHR$(BGET#X%):CLOSE#X%
120REM *DIR MAGAZINE
130PRINT TAB(2,7);CHR$135;"101 ... Int
roduction / News"
140PRINT TAB(2,8);CHR$135;"102 ... Que
stionnaire Results"
150PRINT TAB(2,9);CHR$135;"103 ... Use
r Response"
160PRINT TAB(2,10);CHR$135;"104 ... C
Sourcecode"
170PRINT TAB(2,11);CHR$133;"105 ... Ab
out this Issue"
180PRINT TAB(2,12);CHR$135;"106 ... Pr
esenting Programs 3"
190PRINT TAB(2,13);CHR$135;"107 ... Fr
eeze your 6502"
200PRINT TAB(2,14);CHR$135;"108 ... Bo
ok Review"
210PRINT TAB(2,15);CHR$133;"109 ... Me
ssages Section"
220PRINT TAB(2,16);CHR$135;"110 ... Pr
ogram Documentation"
230PRINT TAB(2,17);CHR$135;"111 ... Ar
chimedes Debate"
240PRINT TAB(2,18);CHR$135;"112 ... Pu
zzle Info"
250PRINT TAB(2,19);CHR$135;"113 ... Ch
ristmas Wordpuzzle"
260PRINT TAB(2,20);CHR$133;"114 ... 32
016 Section"
270PRINT TAB(2,21);CHR$135;"115 ... TB
I pool update"
280PRINT TAB(2,22);CHR$131;"999 ... Is
sue 24 Software Menu"
290PRINT TAB(0,5);CHR$131;"xxx:MODE 7
Axxx:MODE 3 Pxxx:Printout"
300PRINT TAB(4,6);CHR$129;"ENTER CODE
";:INPUT""code$
310Z%=0:VDU23;8202;0;0;0;:*FX15
320s$=RIGHT$(code$,3):p$=LEFT$(code$,1
)
330IF s$="107"THEN CHAIN"Freeze"
340IF s$="999"THEN PROCsoftware:RUN
350IF 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))
360IF 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)):CH
AIN"cnvtMO3"
370IF NOT(s$="104" OR s$="107" OR s$="
113" OR s$="117") THEN OSCLI"/"+f$(VALRI
GHT$(s$,2))
380IF NOT(p$="P"ORp$="p") THEN IF s$="
104" OR s$="113" THEN MODE3:VDU14:OSCLI"
TYPE "+f$(VALRIGHT$(s$,2))
390VDU3
400*FX15,0
410VDU3
420PRINT"Output Complete - PRESS RETUR
N"
430*FX15
440REPEATUNTILGET=13
450RUN
460*******
470DATA 15,IntNews,Results,Cmments,CSo
urce,About24,Present, ,EpsonBk,MailBox,D
cumnts,ArchDbt,PuzInfo,Puzl92,NS32016,TB
Iupdt
480DEFPROCA:*KEY14 1|M
490*KEY15 0|M
500*KEY12 0|M
510*KEY13 1|M
520ENDPROC
530*******
540DEFPROCscreen
550PRINT"
//////////¶";
560PRINT" ISSUE
NUMBER 24
570PRINT"
580PRINT"
JAN 1993
590PRINT"
600ENDPROC
610*******
620DEFPROCsoftware:VDU23;8202;0;0;0;:b
$="Back to main menu"
630REPEAT:PROCclear:*DR.2
640REM replace above line with REPEAT:
PROCclear:*DIR $.Software
650VDU6:PROCA
660PRINT TAB(6,8);CHR$(135);"***** MES
SAGE TO YOU *****"
670PRINT TAB(6,9);CHR$(135);" Games
, Demos etc."
680PRINT TAB(6,10);CHR$135;" Appl
ications"
690PRINT TAB(6,11);CHR$135;" Uti
lities"
700PRINT TAB(6,12);CHR$135;" Repto
n Passwords"
710PRINT TAB(6,13);CHR$135;" De-arch
ive Software"
720PRINT TAB(6,14);CHR$135;"**** BACK
TO MAGAZINE ****"
730d%=FNA(4,8,31,14)
740IF d%=1 THEN PROCmessage
750IF d%=2 THEN PROCgames
760IF d%=3 THEN PROCapplics
770IF d%=4 THEN PROCutils
780IF d%=5 THEN CHAIN"RepPass"
790IF d%=6 THEN CLS:PRINT"Refer to iss
ue 24 documentation for instructions
on how to decompress this archive."''"
DRIVE 2":OSCLI"EX Z":PRINT'':END
800UNTILd%=7:RUN
810**********
820DEFPROCgames:d%=0
830PROCclear
840PRINT TAB(7,8);CHR$135;"Patience"
850PRINT TAB(7,9);CHR$135;"Intellectua
l Hangman"
860PRINT TAB(7,10);CHR$135;"Christmas
Cracker"
870PRINT TAB(7,11);CHR$135;"12 Days of
Xmas"
880PRINT TAB(7,12);CHR$135;"Graph14"
890PRINT TAB(7,13);CHR$135;"3D Demo"
900PRINT TAB(7,14);CHR$135;"3D Demo (B
)"
910REM PRINT TAB(7,15);CHR$135;"Towers
of Hanoi"
920PRINT TAB(7,15);CHR$135;b$:REM PRIN
T TAB(7,16);CHR$135;b$
930c%=FNA(3,8,34,15):REM c%=FNA(3,8,34
,16)
940IF c%=1 THEN CHAIN"PATNCE"
950IF c%=2 THEN CHAIN"Execute"
960IF c%=3 THEN CHAIN"CRACKER"
970IF c%=4 THEN CHAIN"12Days"
980IF c%=5 THEN CHAIN"GRAPH14"
990IF c%=6 THEN CHAIN"3DDemo"
1000IF c%=7 THEN CHAIN"3DDemoS"
1010REM IF c%=8 THEN OSCLI"Hanoi":RUN
1020ENDPROC
1030*******
1040DEFPROCapplics
1050PROCclear
1060PRINTTAB(9,8);CHR$135;"Bank Manager
"
1070PRINTTAB(9,9);CHR$135;"Disk Envelop
e Creator"
1080PRINTTAB(9,10);CHR$135;"Fahrenheit
to Celsius"
1090PRINTTAB(9,11);CHR$135;"Form Master
"
1100PRINTTAB(9,12);CHR$135;"Sim City Ch
eat"
1110PRINTTAB(9,13);CHR$135;"Picture Gal
lery V2"
1120PRINTTAB(9,14);CHR$135;b$
1130c%=FNA(3,8,34,14)
1140IFc%=1THENCHAIN"BankMan"
1150IFc%=2THENCHAIN"ENVCRE"
1160IFc%=3THENOSCLI"FAHR":RUN
1170IFc%=4THENCHAIN"FormMas"
1180IFc%=5THENCHAIN"SimCht"
1190IFc%=6THENCHAIN"PicDis3"
1200ENDPROC
1210*******
1220DEFPROCutils
1230PROCclear
1240PRINTTAB(5,8);CHR$135;"Econet Tree"
1250PRINTTAB(5,9);CHR$135;"RAMdisk"
1260PRINTTAB(5,10);CHR$135;"Multiple Ac
cesser"
1270PRINTTAB(5,11);CHR$135;"Bulk Delete
"
1280PRINTTAB(5,12);CHR$135;b$
1290c%=FNA(3,8,34,12)
1300IFc%=1THENCHAIN"ETREE"
1310IFc%=2THENCHAIN"RAMdisk"
1320IFc%=3THENCHAIN"Accessr"
1330IFc%=4THENCHAIN"BulkDel"
1340ENDPROC
1350*******
1360DEFPROCmessage:CLS
1370PRINT"No room on this disk, any mes
sages will be enclosed on paper."
1380PRINT'"Press RETURN to continue..."
:REPEATUNTILGET=13
1390RUN
1400*******
1410DEFFNA(£%,A%,B%,C%):D%=(A%-1):*FX4,
2
1420REPEATPRINTTAB(£%,A%);CHR$132;CHR$1
57;CHR$135;TAB((£%+B%),A%);CHR$156:*FX15
1430A$=GET$:E%=VALA$:IFA$=CHR$13GOTO148
0
1440IFE%=0THENE%=-1
1450IF(A%+E%)>C%PRINTTAB(£%,A%);SPC2:A%
=(D%+1):GOTO1480
1460IF(A%+E%)<(D%+1)PRINTTAB(£%,A%);SPC
2:A%=C%:GOTO1480
1470PRINTTAB(£%,A%);SPC2:A%=A%+E%
1480UNTILA$=CHR$13:*FX4,0
1490=(A%-D%)
1500*******
1510DEFPROCclear
1520FORI%=5TO23:PRINTTAB(1,I%);SPC(39);
:NEXT
1530PRINTTAB(1,24);SPC(36);:
1540ENDPROC
1550*******