06-05-88/WDF

Home » CEEFAX disks » telesoftware7.adl » 06-05-88/WDF

06-05-88/WDF

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware7.adl
Filename:	06-05-88/WDF
Read OK:	✔
File size:	1EE9 bytes
Load address:	FFFF1500
Exec address:	FFFF8023

File contents

   10REM Program Store
   20REM Work Data File
   30REM By P.J.Homer G4KQU <C>1987
   40*FX200,3
   50*FX11,0
   60VDU23,1,0;0;0;0;
   70D$=" P r o g r a m     S t o r e"
   80T=300:X=0:IFQ%>5THENQ%=Q%-48
   90PROCFILE
  100F=52:PRO=0:DEL=0:FIND%=1:DR=0
  110CLOSE#0:XXX=0
  120PROCCHECK
  130MODE7
  140PRINT"��"
  150PRINT"����   P r o g r a m    S t o r e "
  160PRINT"����   P r o g r a m    S t o r e  "
  170PRINT"���"DF$TAB(24)"WORK DATA FILE"
  180PROCC
  190I%=1:II%=0:X=0:AA%=0:ZZ=1:LI=0:P=0:PA=0:SS=0:SSS=0
  200VDU28,0,24,39,4
  210PRINT''TAB(7)"�1�_ LIST ALL PROGRAMS"
  220PRINT'TAB(7)"�2�_ SEARCH FOR A PROGRAM"
  230PRINT'TAB(7)"�3�_ ENTER DATA INTO FILE"
  240PRINT'TAB(7)"�4�_ MAKE CORRECTIONS TO FILE"
  250PRINT'TAB(7)"�5�_ DELETE FROM PROGRAM FILE"
  260PRINT'TAB(7)"�6�_ RETURN TO MAIN MENU"
  270PRINT'TAB(7)"�7�_ CHANGE DATA FILE"
  280PRINT''"��"
  290PRINT"���FREE ";T-PRO;TAB(25)"PROGRAMS�";PRO
  300PRINT"��"
  310PROCWAIT
  320Q%=Z
  330IFZ$="6"THENCHAIN"SETUP"
  340IFZ$="7"THENCLOSE#0:PROCCHANGE
  350IFZ$="1"THENPROCCHECK:IFX=0THENPROCD
  360IFSS=1THEN110
  380IFSSS=1THENMODE3:PROCC:VDU19,1,6;0;:PROCLIST
  390IFZ$="2"THENPROCCHECK
  400IFSS=1THEN110
  410IFZ$="2"THENPROCSEARCH:IFXXX=0THEN110
  420IFXXX=1THENMODE3:PROCC:VDU19,1,6;0;:PROCSEARCH1:GOTO110
  430IFZ$="5"THENPROCCHECK
  440IFSS=1THEN110
  450IFZ$="5"THENPROCDELETE
  460IFZ$="3"THENPROCCHECK
  470IFSS=1THEN110
  480IFZ$="3"THENPROCNEW
  490IFZ$="4"THENPROCCORRECT
  500GOTO110
  510DEFPROCNEW
  520CLS:PRINTTAB(3,8)"�<A>DD�OR�<I>NSERT�DATA  �<M>enu"
  530PROCWAIT
  540Q%=Z
  550IFZ$="I"ORZ$="i"THENO%=1:CHAIN"INDEL"
  560IFZ$="M"ORZ$="m"THENENDPROC
  570IFZ$="A"ORZ$="a"THEN580
  571GOTO530
  580CLS
  590IF PRO+DEL=T THENPRINT''TAB(7)"�THERE IS NO ROOM IN FILE"''':PRINT"�>> PRESS ANY KEY TO RETURN TO MENU <<":PROCWAIT:ENDPROC
  600CLOSE#0
  610IA%=PRO+1
  620CLS
  630CH=OPENUP(FILE$)
  640REPEAT
  650PROCINPUT
  660IFDR=0THENCLOSE#0:PROCCHECK:IFX=1THENENDPROC
  670IFDR=0THENCLOSE#0:CH=OPENUP(FILE$)
  680IFDISC$="END"ORDISC$="end"THENENDPROC
  690PROCWRITE
  700PRO=PRO+1:PROCP1
  710IA%=IA%+1
  720UNTILIA%=T+1
  730CLS
  740PRINTTAB(8,9)"�THERE IS NO MORE ROOM"'''';TAB(2)"� >> PRESS ANY KEY TO CONTINUE <<":PROCWAIT:ENDPROC
  750DEFPROCINPUT
  760CLS
  770F$=FILE$
  780PRINT'"�TO FINISH ENTER�END�FOR DISC"'"�TO SEE CATALOGUE ENTER�*�FOR DISC"
  790PRINTTAB(0,5)"�RECORD NUMBER�";IA%
  800PRINTTAB(0,8)"�DISC�    �....        ":INPUTTAB(10,8);DISC$
  810IFLENDISC$>4THEN800
  820IFDISC$="*"THENPROCDR:GOTO760
  830IFDISC$="@"THEN800
  840IFDISC$="END"ORDISC$="end"THENENDPROC
  850PRINTTAB(0,10)"�PROGRAM�  .........................        ":INPUTTAB(10,10);PROG$
  860IFLENPROG$>25THEN850
  870PRINTTAB(0,12)"�FILE�     .......     �":INPUTTAB(10,12);FIL$
  880IFLENFIL$>7THEN870
  890PRINTTAB(0,14)"�AUTHOR  � ........                  ":INPUTTAB(10,14);CAT$
  900IFLENCAT$>8THEN890
  910PRINTTAB(0,17)"�ARE ENTRIES CORRECT �<Y>es or <N>o"
  920PROCWAIT
  930IFZ$="Y"ORZ$="y"THENENDPROC
  940IFZ$="N"ORZ$="n"THENGOTO760
  950GOTO920
  960DEFPROCWRITE
  970IFDISC$="END"ORDISC$="end"THENENDPROC
  980PTR#CH=(IA%-1)*F
  990PRINT#CH,DISC$,PROG$,FIL$,CAT$
 1000ENDPROC
 1010DEFPROCLIST
 1020II%=1
 1030I%=ST%
 1040PROCT1
 1041CLOSE#0
 1050CH=OPENIN(FILE$)
 1060REPEAT
 1070PTR#CH=(I%-1)*F
 1080INPUT#CH,DISC$,PROG$,FIL$,CAT$
 1090IFDISC$="*"THENPRINT:PRINT'TAB(7)"END OF DATA LIST     < = LAST PAGE      ANY KEY TO RETURN TO MENU":PROCWAIT:PROCX:II%=1:IFZZ=0THENENDPROC
 1100IFDISC$="*"THENPROCT1:GOTO1160
 1110PRINTTAB(6);I%;TAB(15)DISC$;TAB(25)PROG$;TAB(55)FIL$;TAB(65)CAT$
 1120IFII%=17THENII%=0:PRINT'TAB(4)"PRESS ANY KEY FOR NEXT PAGE        <  FOR LAST PAGE         M  FOR MENU":PROCWAIT:PROCT1
 1130I%=I%+1:II%=II%+1
 1140IFZ$="M"ORZ$="m"THENENDPROC
 1150IFZ$=","THENI%=I%-34:Z$=".":IFI%<16THENI%=1
 1160UNTILI%=T+1
 1170PRINT''TAB(7)"END OF DATA LIST     < = LAST PAGE      ANY KEY TO RETURN TO MENU"
 1180PROCWAIT
 1190IFI%=T+1THENPROCX:II%=1:IFZZ=0THENENDPROC
 1200IFI%<16THENI%=1:II%=1:PROCTP
 1210GOTO1040
 1220DEFPROCX
 1230IFZ$<>","THENZZ=0:ENDPROC
 1240IFZZ=0THENENDPROC
 1250I%=I%-II%-16:Z$=".":IFI%<16THENI%=1:II%=1:ENDPROC
 1260ENDPROC
 1270DEFPROCT1
 1280CLS:PRINTTAB(23,0);D$;TAB(5,2)"RECORD"TAB(15,2)"DISC"TAB(25,2)"PROGRAM"TAB(55,2)"FILE"TAB(65,2)"AUTHOR":PRINTTAB(0)STRING$(79,"-"):ENDPROC
 1290DEFPROCSEARCH
 1300CLS:XXX=1
 1310PRINTTAB(6,2)"�ENTER HEADING TO SEARCH BY"
 1320PRINT'''TAB(14)"�1 = Record No."
 1330PRINT'TAB(14)"�2 = Disc"
 1340PRINT'TAB(14)"�3 = Program"
 1350PRINT'TAB(14)"�4 = Author"
 1360PRINT'TAB(14)"�5 = Menu"
 1370PRINT'''TAB(8)"�ENTER OPTION REQUIRED"
 1380PROCWAIT
 1390IFZ$="1"THENHEAD=1:GOTO1450
 1400IFZ$="2"THENHEAD=2:GOTO1450
 1410IFZ$="3"THENHEAD=3:GOTO1450
 1420IFZ$="4"THENHEAD=4:GOTO1450
 1430IFZ$="5"THENXXX=0:ENDPROC
 1440GOTO1380
 1450CLS
 1460PRINTTAB(3,10)"�ENTER";
 1470IFHEAD=1THENPRINT"�RECORD";
 1480IFHEAD=2THENPRINT"�DISC";
 1490IFHEAD=3THENPRINT"�PROGRAM";
 1500IFHEAD=4THENPRINT"�AUTHOR";
 1510PRINT"�YOU WISH TO FIND"
 1520IFHEAD=1THENINPUTTAB(15,14)"�";FIND%:IFFIND%>T ORFIND%<1THEN1450
 1540IFHEAD=2THENINPUTTAB(15,14)"�";FIND$:FIND%=T
 1550IFHEAD=3THENINPUTTAB(15,14)"�";FIND2$:FIND%=T
 1560IFHEAD=4THENINPUTTAB(15,14)"�";FIND3$:FIND%=T
 1570ENDPROC
 1580DEFPROCSEARCH1
 1590PROCT1
 1600Q%=1:AA%=0
 1610CH=OPENIN(FILE$)
 1620REPEAT
 1630IFHEAD=1THENQ%=FIND%
 1640PTR#CH=(Q%-1)*F
 1650INPUT#CH,DISC$,PROG$,FIL$,CAT$
 1660IFDISC$="*"THENPRINT'TAB(14)"END OF SEARCH   >> PRESS ANY KEY TO RETURN TO MENU <<":PROCWAIT:ENDPROC
 1670IFHEAD=4THEN2490
 1680IFHEAD=2THEN2430
 1690IFHEAD=3THEN2460
 1700PRINTTAB(6);Q%;TAB(15)DISC$;TAB(25)PROG$;TAB(55)FIL$;TAB(65)CAT$
 1710AA%=AA%+1:IFAA%=17THENPRINT''TAB(1)"  ** MORE **       PRESS ANY KEY TO CONTINUE        <M>enu      ** MORE **"
 1720IFHEAD=1THEN:PRINTTAB(17,20)"� >> PRESS ANY KEY TO RETURN TO MENU <<"
 1730IFAA%=17THENPROCWAIT:CLS:AA%=0:PROCT1:IFZ$="M"ORZ$="m"THENENDPROC
 1740IFHEAD=1THENPROCWAIT:ENDPROC
 1750Q%=Q%+1
 1760G4$=INKEY$(0)
 1770IFG4$="M"ORG4$="m"THENQ%=T
 1780UNTILQ%=T
 1790CLOSE#0
 1800PRINTTAB(17,23)"�SEARCH ENDED ANY KEY TO RETURN TO MENU":PROCWAIT:ENDPROC
 1810DEFPROCA
 1820PRINT"�DISC.....�";DISC$
 1830PRINT"�PROGRAM..�";PROG$
 1840PRINT"�FILE.....�";FIL$
 1850PRINT"�AUTHOR...�";CAT$:ENDPROC
 1860DEFPROCCORRECT
 1870CLS
 1880PRINTTAB(5,12)"�ENTER�0�TO RETURN TO MENU"
 1890INPUTTAB(0,8)"�ENTER RECORD NUMBER TO BE ALTERED�";FIND%
 1900IFFIND%=0THENENDPROC
 1910IFFIND%<1THEN1870
 1920IFFIND%>PRO THEN1870
 1930CH=OPENIN(FILE$)
 1940PTR#CH=(FIND%-1)*F
 1950INPUT#CH,DISC$,PROG$,FIL$,CAT$
 1960CLOSE#0
 1970CLS:PRINT'"�RECORD NUMBER�";FIND%'
 1980PROCA
 1990PRINT'"�ENTER NEW DATA FOR RECORD�";FIND%:PRINT"�PRESS�RETURN�TO LEAVE FIELD UNCHANGED":PRINT"�ENTER�*�FOR DISC TO RETURN TO MENU"
 2000DI$=DISC$:P$=PROG$:F$=FIL$:C$=CAT$
 2010PRINTTAB(0,13)"�DISC      �....          ":INPUTTAB(10,13)"�";DISC$
 2020IFLENDISC$>4THEN2010
 2030IFDISC$="*"THENENDPROC
 2040IFDISC$=""THENDISC$=DI$:PRINTTAB(12,13)DISC$
 2050IFDISC$="@"THEN2010
 2060PRINTTAB(0,14)"�PROGRAM�   .........................         ":INPUTTAB(10,14)"�";PROG$
 2070IFPROG$=""THENPROG$=P$:PRINTTAB(12,14)PROG$
 2080IFLENPROG$>25THEN2060
 2090PRINTTAB(0,15)"�FILE      �.......       ":INPUTTAB(10,15)"�";FIL$
 2100IFFIL$=""THENFIL$=F$:PRINTTAB(12,15)FIL$
 2110IFLENFIL$>7THEN2090
 2120PRINTTAB(0,16)"�AUTHOR    �........        ":INPUTTAB(10,16)"�";CAT$
 2130IFCAT$=""THENCAT$=C$:PRINTTAB(12,16)CAT$
 2140IFLENCAT$>8THEN2120
 2150PRINT''"�IS THIS DATA CORRECT �<Y>es or <N>o"
 2160PROCWAIT
 2170IFZ$="N"ORZ$="n"THENDISC$=DI$:PROG$=P$:FIL$=F$:CAT$=C$:GOTO1970
 2180IFZ$="Y"ORZ$="y"THEN2200
 2190GOTO2160
 2200CH=OPENUP(FILE$)
 2210IFDI$="@"THENPRO=PRO+1:PROCP1
 2220PTR#CH=(FIND%-1)*F
 2230PRINT#CH,DISC$,PROG$,FIL$,CAT$
 2240CLS
 2250PRINTTAB(0,10)"�CORRECT ANY MORE RECORDS�<Y>es or <N>o"
 2260Z$=GET$
 2270IFZ$="Y"ORZ$="y"THENCLOSE#0:GOTO1870
 2280IFZ$="N"ORZ$="n"THEN2300
 2290GOTO2260
 2300ENDPROC
 2310DEFPROCWAIT
 2320Z$=GET$:ENDPROC
 2330DEFPROCCHECK
 2340CH=OPENIN(FILE$)
 2350IFCH=0THENX=1:CLS:PRINTTAB(3,10)"�FILE�";FILE$;"�IS NOT ON THE DISC":PRINT'''"�>>�PRESS ANY KEY TO RETURN TO MENU�<<"
 2360IFX=0THENPROCP
 2370IFX=1THENDEL=0:PRO=0:PROCWAIT:ENDPROC
 2380ENDPROC
 2390DEFPROCCHECK2
 2400CH=OPENIN(FILE$)
 2410CLOSE#0
 2420ENDPROC
 2430IFINSTR(DISC$,FIND$)=0THEN1750
 2440IFDISC$="*"THEN1660
 2450GOTO1700
 2460IFINSTR(PROG$,FIND2$)=0THEN1750
 2470IFDISC$="*"THEN1660
 2480GOTO1700
 2490IFINSTR(CAT$,FIND3$)=0THEN1750
 2500IFDISC$="*"THEN1660
 2510GOTO1700
 2520DEFPROCTP
 2530PRINTTAB(3,0)D$;TAB(11,4)"�FILE�";FILE$
 2540ENDPROC
 2550DEFPROCDELETE
 2560Q%=Z:O%=0:CHAIN"INDEL"
 2570DEFPROCCAT
 2580FILE$=F$
 2590CLS
 2600PRINT'
 2610*CAT
 2620PRINT''"��>>  PRESS ANY KEY TO CONTINUE  <<"
 2630PROCWAIT:ENDPROC
 2640DEFPROCP1
 2650FILE%=T+1
 2660PTR#CH=(FILE%-1)*F
 2670PRINT#CH,"*","*",DEL,PRO
 2680ENDPROC
 2690DEFPROCP
 2700FILE%=T+1
 2710PTR#CH=(FILE%-1)*F
 2720INPUT#CH,Q$,Q1$,DEL,PRO
 2730ENDPROC
 2740DEFPROCDR
 2750CLS
 2760INPUTTAB(2,10)"�ENTER DRIVE TO BE CATALOGUED�";DR
 2770IFDR>4THEN2750
 2780PRINTTAB(2,10)"�PUT DISC TO CATALOGUE IN DRIVE�";DR;TAB(7,14)"��ANY KEY TO CONTINUE"
 2790PROCWAIT
 2800IFDR=1THEN*DRIVE1
 2810IFDR=2THEN*DRIVE2
 2820IFDR=3THEN*DRIVE3
 2830PROCCAT:*DRIVE0
 2840IFDR=0THEN2870
 2850IFDR=2THEN2870
 2860ENDPROC
 2870PROCE:ENDPROC
 2880DEFPROCerr
 2890CLS
 2900PRINT"�** ERROR **�";ERR'':REPORT
 2910PRINT''"�ANY KEY TO CONTINUE"
 2920CLOSE#0:Z$=GET$
 2930ENDPROC
 2940DEFPROCC
 2950VDU23;8202;0;0;0;:ENDPROC
 2960DEFPROCD
 2970CLS
 2980PRINTTAB(2,9)"�DATA FILE�";FILE$;"�HAS�";DEL+PRO;"�RECORDS"
 2990PRINTTAB(7,12)"�0�TO RETURN TO MENU"
 3000INPUTTAB(0,10)"�START LIST FROM WHAT RECORD NUMBER�";ST%
 3010IFST%<1THENSS=1:GOTO3040
 3020IFST%>PRO THEN2970
 3030SSS=1
 3040ENDPROC
 3050DEFPROCE
 3060CLS:PRINTTAB(3,10)"�PUT YOUR DATA DISC IN DRIVE�0";TAB(8,16)"�ANY KEY TO CONTINUE":PROCWAIT
 3070ENDPROC
 3080DEFPROCFILE
 3090Z=Q%
 3100IFZ=1THENDF$="GAMES":FILE$="GAMES"
 3110IFZ=2THENDF$="ADVENTURES":FILE$="ADVENT"
 3120IFZ=3THENDF$="MUSIC":FILE$="MUSIC"
 3130IFZ=4THENDF$="EDUCATION":FILE$="EDUCATE"
 3140IFZ=5THENDF$="UTILITIES":FILE$="UTIL"
 3150IFZ=6THENDF$="SPARE 1":FILE$="SPARE1"
 3160IFZ=7THENDF$="SPARE 2":FILE$="SPARE2"
 3170T=300:ENDPROC
 3180DEFPROCCHANGE
 3190CLS
 3200PRINT''TAB(12)"�1�- GAMES"
 3210PRINT'TAB(12)"�2�- ADVENTURES"
 3220PRINT'TAB(12)"�3�- MUSIC"
 3230PRINT'TAB(12)"�4�- EDUCATION"
 3240PRINT'TAB(12)"�5�- UTILITIES"
 3250PRINT'TAB(12)"�6�- SPARE 1"
 3260PRINT'TAB(12)"�7�- SPARE 2"
 3270PRINT''"��"
 3280PRINT"���   ENTER DATA FILE TO BE WORKED ON"
 3290PRINT"��"
 3300Z=GET
 3310IFZ<49ORZ>55THEN3300
 3320Q%=Z-48:Z=Q%
 3330PROCFILE:ENDPROC


� Program Store
� Work Data File
 � By P.J.Homer G4KQU <C>1987
(*FX200,3
2*FX11,0
<�23,1,0;0;0;0;
F%D$=" P r o g r a m     S t o r e"
PT=300:X=0:�Q%>5�Q%=Q%-48
Z	�FILE
d!F=52:PRO=0:DEL=0:FIND%=1:DR=0
n
�#0:XXX=0
x
�CHECK
��7
�	�"��"
�)�"����   P r o g r a m    S t o r e "
�*�"����   P r o g r a m    S t o r e  "
�!�"���"DF$�24)"WORK DATA FILE"
��C
�6I%=1:II%=0:X=0:AA%=0:ZZ=1:LI=0:P=0:PA=0:SS=0:SSS=0
��28,0,24,39,4
�"�''�7)"�1�_ LIST ALL PROGRAMS"
�$�'�7)"�2�_ SEARCH FOR A PROGRAM"
�$�'�7)"�3�_ ENTER DATA INTO FILE"
�(�'�7)"�4�_ MAKE CORRECTIONS TO FILE"
�(�'�7)"�5�_ DELETE FROM PROGRAM FILE"
#�'�7)"�6�_ RETURN TO MAIN MENU"
 �'�7)"�7�_ CHANGE DATA FILE"
�''"��"
")�"���FREE ";T-PRO;�25)"PROGRAMS�";PRO
,	�"��"
6	�WAIT
@Q%=Z
J�Z$="6"��"SETUP"
T�Z$="7"��#0:�CHANGE
^�Z$="1"��CHECK:�X=0��D
h�SS=1��Dn@
|!�SSS=1��3:�C:�19,1,6;0;:�LIST
��Z$="2"��CHECK
��SS=1��Dn@
��Z$="2"��SEARCH:�XXX=0��Dn@
�*�XXX=1��3:�C:�19,1,6;0;:�SEARCH1:�Dn@
��Z$="5"��CHECK
��SS=1��Dn@
��Z$="5"��DELETE
��Z$="3"��CHECK
��SS=1��Dn@
��Z$="3"��NEW
��Z$="4"��CORRECT
�	�Dn@
�	��NEW
.�:�3,8)"�<A>DD�OR�<I>NSERT�DATA  �<M>enu"
	�WAIT
Q%=Z
& �Z$="I"�Z$="i"�O%=1:�"INDEL"
0�Z$="M"�Z$="m"��
:�Z$="A"�Z$="a"��DDB
;	�TRB
D�
Ng� PRO+DEL=T ��''�7)"�THERE IS NO ROOM IN FILE"''':�"�>> PRESS ANY KEY TO RETURN TO MENU <<":�WAIT:�
X�#0
b
IA%=PRO+1
l�
vCH=�(FILE$)
��
�
�INPUT
��DR=0��#0:�CHECK:�X=1��
��DR=0��#0:CH=�(FILE$)
��DISC$="END"�DISC$="end"��
�
�WRITE
�PRO=PRO+1:�P1
�
IA%=IA%+1
��IA%=T+1
��
�U�8,9)"�THERE IS NO MORE ROOM"'''';�2)"� >> PRESS ANY KEY TO CONTINUE <<":�WAIT:�
���INPUT
��
F$=FILE$
J�'"�TO FINISH ENTER�END�FOR DISC"'"�TO SEE CATALOGUE ENTER�*�FOR DISC"
�0,5)"�RECORD NUMBER�";IA%
 1�0,8)"�DISC�    �....        ":�10,8);DISC$
*�DISC$>4��T`C
4�DISC$="*"��DR:�dxB
>�DISC$="@"��T`C
H�DISC$="END"�DISC$="end"��
RH�0,10)"�PROGRAM�  .........................        ":�10,10);PROG$
\�PROG$>25��DRC
f3�0,12)"�FILE�     .......     �":�10,12);FIL$
p�FIL$>7��DfC
z@�0,14)"�AUTHOR  � ........                  ":�10,14);CAT$
��CAT$>8��DzC
�0�0,17)"�ARE ENTRIES CORRECT �<Y>es or <N>o"
�	�WAIT
��Z$="Y"�Z$="y"��
��Z$="N"�Z$="n"��dxB
�	�tXC
���WRITE
��DISC$="END"�DISC$="end"��
��#CH=(IA%-1)*F
��#CH,DISC$,PROG$,FIL$,CAT$
��
�
��LIST
�	II%=1

I%=ST%
�T1
�#0
CH=�(FILE$)
$�
.�#CH=(I%-1)*F
8�#CH,DISC$,PROG$,FIL$,CAT$
Bp�DISC$="*"��:�'�7)"END OF DATA LIST     < = LAST PAGE      ANY KEY TO RETURN TO MENU":�WAIT:�X:II%=1:�ZZ=0��
L�DISC$="*"��T1:�tHD
V1�6);I%;�15)DISC$;�25)PROG$;�55)FIL$;�65)CAT$
`j�II%=17�II%=0:�'�4)"PRESS ANY KEY FOR NEXT PAGE        <  FOR LAST PAGE         M  FOR MENU":�WAIT:�T1
jI%=I%+1:II%=II%+1
t�Z$="M"�Z$="m"��
~'�Z$=","�I%=I%-34:Z$=".":�I%<16�I%=1
��I%=T+1
�M�''�7)"END OF DATA LIST     < = LAST PAGE      ANY KEY TO RETURN TO MENU"
�	�WAIT
��I%=T+1��X:II%=1:�ZZ=0��
��I%<16�I%=1:II%=1:�TP
�	�TPD
���X
��Z$<>","�ZZ=0:�
��ZZ=0��
�+I%=I%-II%-16:Z$=".":�I%<16�I%=1:II%=1:�
��
���T1
b�:�23,0);D$;�5,2)"RECORD"�15,2)"DISC"�25,2)"PROGRAM"�55,2)"FILE"�65,2)"AUTHOR":�0)�79,"-"):�

��SEARCH
�:XXX=1
'�6,2)"�ENTER HEADING TO SEARCH BY"
(�'''�14)"�1 = Record No."
2�'�14)"�2 = Disc"
<�'�14)"�3 = Program"
F�'�14)"�4 = Author"
P�'�14)"�5 = Menu"
Z#�'''�8)"�ENTER OPTION REQUIRED"
d	�WAIT
n�Z$="1"�HEAD=1:�tjE
x�Z$="2"�HEAD=2:�tjE
��Z$="3"�HEAD=3:�tjE
��Z$="4"�HEAD=4:�tjE
��Z$="5"�XXX=0:�
�	�DdE
��
��3,10)"�ENTER";
��HEAD=1��"�RECORD";
��HEAD=2��"�DISC";
��HEAD=3��"�PROGRAM";
��HEAD=4��"�AUTHOR";
��"�YOU WISH TO FIND"
�4�HEAD=1��15,14)"�";FIND%:�FIND%>T �FIND%<1��tjE
%�HEAD=2��15,14)"�";FIND$:FIND%=T
&�HEAD=3��15,14)"�";FIND2$:FIND%=T
&�HEAD=4��15,14)"�";FIND3$:FIND%=T
"�
,
��SEARCH1
6�T1
@Q%=1:AA%=0
JCH=�(FILE$)
T�
^�HEAD=1�Q%=FIND%
h�#CH=(Q%-1)*F
r�#CH,DISC$,PROG$,FIL$,CAT$
|T�DISC$="*"��'�14)"END OF SEARCH   >> PRESS ANY KEY TO RETURN TO MENU <<":�WAIT:�
��HEAD=4��tzI
��HEAD=2��D~I
��HEAD=3��t\I
�1�6);Q%;�15)DISC$;�25)PROG$;�55)FIL$;�65)CAT$
�hAA%=AA%+1:�AA%=17��''�1)"  ** MORE **       PRESS ANY KEY TO CONTINUE        <M>enu      ** MORE **"
�>�HEAD=1�:�17,20)"� >> PRESS ANY KEY TO RETURN TO MENU <<"
�.�AA%=17��WAIT:�:AA%=0:�T1:�Z$="M"�Z$="m"��
��HEAD=1��WAIT:�
�Q%=Q%+1
�G4$=�(0)
��G4$="M"�G4$="m"�Q%=T
�	�Q%=T
��#0
=�17,23)"�SEARCH ENDED ANY KEY TO RETURN TO MENU":�WAIT:�
��A
�"�DISC.....�";DISC$
&�"�PROGRAM..�";PROG$
0�"�FILE.....�";FIL$
:�"�AUTHOR...�";CAT$:�
D
��CORRECT
N�
X'�5,12)"�ENTER�0�TO RETURN TO MENU"
b5�0,8)"�ENTER RECORD NUMBER TO BE ALTERED�";FIND%
l�FIND%=0��
v�FIND%<1��DNG
��FIND%>PRO ��DNG
�CH=�(FILE$)
��#CH=(FIND%-1)*F
��#CH,DISC$,PROG$,FIL$,CAT$
��#0
� �:�'"�RECORD NUMBER�";FIND%'
��A
�z�'"�ENTER NEW DATA FOR RECORD�";FIND%:�"�PRESS�RETURN�TO LEAVE FIELD UNCHANGED":�"�ENTER�*�FOR DISC TO RETURN TO MENU"
�&DI$=DISC$:P$=PROG$:F$=FIL$:C$=CAT$
�9�0,13)"�DISC      �....          ":�10,13)"�";DISC$
��DISC$>4��dZG
��DISC$="*"��
�%�DISC$=""�DISC$=DI$:�12,13)DISC$
�DISC$="@"��dZG
M�0,14)"�PROGRAM�   .........................         ":�10,14)"�";PROG$
$�PROG$=""�PROG$=P$:�12,14)PROG$
 �PROG$>25��TLH
*8�0,15)"�FILE      �.......       ":�10,15)"�";FIL$
4!�FIL$=""�FIL$=F$:�12,15)FIL$
>�FIL$>7��TjH
H:�0,16)"�AUTHOR    �........        ":�10,16)"�";CAT$
R!�CAT$=""�CAT$=C$:�12,16)CAT$
\�CAT$>8��DHH
f-�''"�IS THIS DATA CORRECT �<Y>es or <N>o"
p	�WAIT
z;�Z$="N"�Z$="n"�DISC$=DI$:PROG$=P$:FIL$=F$:CAT$=C$:�trG
��Z$="Y"�Z$="y"��tXH
�	�DpH
�CH=�(FILE$)
��DI$="@"�PRO=PRO+1:�P1
��#CH=(FIND%-1)*F
��#CH,DISC$,PROG$,FIL$,CAT$
��
�4�0,10)"�CORRECT ANY MORE RECORDS�<Y>es or <N>o"
�Z$=�
��Z$="Y"�Z$="y"��#0:�DNG
��Z$="N"�Z$="n"��d|H
�	�dTH
��
	
��WAIT
	
Z$=�:�
	��CHECK
	$CH=�(FILE$)
	.h�CH=0�X=1:�:�3,10)"�FILE�";FILE$;"�IS NOT ON THE DISC":�'''"�>>�PRESS ANY KEY TO RETURN TO MENU�<<"
	8�X=0��P
	B�X=1�DEL=0:PRO=0:�WAIT:�
	L�
	V��CHECK2
	`CH=�(FILE$)
	j�#0
	t�
	~�DISC$,FIND$)=0��dVF
	��DISC$="*"��D|F
	�	�tdF
	��PROG$,FIND2$)=0��dVF
	��DISC$="*"��D|F
	�	�tdF
	��CAT$,FIND3$)=0��dVF
	��DISC$="*"��D|F
	�	�tdF
	���TP
	�!�3,0)D$;�11,4)"�FILE�";FILE$
	��
	���DELETE
Q%=Z:O%=0:�"INDEL"

	��CAT
FILE$=F$
�
(�'
2*CAT
<,�''"��>>  PRESS ANY KEY TO CONTINUE  <<"
F�WAIT:�
P��P1
Z
FILE%=T+1
d�#CH=(FILE%-1)*F
n�#CH,"*","*",DEL,PRO
x�
���P
�
FILE%=T+1
��#CH=(FILE%-1)*F
��#CH,Q$,Q1$,DEL,PRO
��
���DR
��
�.�2,10)"�ENTER DRIVE TO BE CATALOGUED�";DR
��DR>4��t~J
�N�2,10)"�PUT DISC TO CATALOGUE IN DRIVE�";DR;�7,14)"��ANY KEY TO CONTINUE"
�	�WAIT
��DR=1�*DRIVE1
��DR=2�*DRIVE2
�DR=3�*DRIVE3
�CAT:*DRIVE0
�DR=0��TvK
"�DR=2��TvK
,�
6�E:�
@	��err
J�
T�"�** ERROR **�";�'':�
^�''"�ANY KEY TO CONTINUE"
h�#0:Z$=�
r�
|��C
��23;8202;0;0;0;:�
���D
��
�8�2,9)"�DATA FILE�";FILE$;"�HAS�";DEL+PRO;"�RECORDS"
�!�7,12)"�0�TO RETURN TO MENU"
�5�0,10)"�START LIST FROM WHAT RECORD NUMBER�";ST%
��ST%<1�SS=1:�d`K
��ST%>PRO ��tZK
�	SSS=1
��
���E
�P�:�3,10)"�PUT YOUR DATA DISC IN DRIVE�0";�8,16)"�ANY KEY TO CONTINUE":�WAIT
��

��FILE
Z=Q%
"�Z=1�DF$="GAMES":FILE$="GAMES"
&(�Z=2�DF$="ADVENTURES":FILE$="ADVENT"
0"�Z=3�DF$="MUSIC":FILE$="MUSIC"
:(�Z=4�DF$="EDUCATION":FILE$="EDUCATE"
D%�Z=5�DF$="UTILITIES":FILE$="UTIL"
N%�Z=6�DF$="SPARE 1":FILE$="SPARE1"
X%�Z=7�DF$="SPARE 2":FILE$="SPARE2"
bT=300:�
l��CHANGE
v�
��''�12)"�1�- GAMES"
��'�12)"�2�- ADVENTURES"
��'�12)"�3�- MUSIC"
��'�12)"�4�- EDUCATION"
��'�12)"�5�- UTILITIES"
��'�12)"�6�- SPARE 1"
��'�12)"�7�- SPARE 2"
��''"��"
�,�"���   ENTER DATA FILE TO BE WORKED ON"
�	�"��"
�Z=�
��Z<49�Z>55��ddL
�Q%=Z-48:Z=Q%

�FILE:�
�

00000000  0d 00 0a 13 f4 20 50 72  6f 67 72 61 6d 20 53 74  |..... Program St|
00000010  6f 72 65 0d 00 14 14 f4  20 57 6f 72 6b 20 44 61  |ore..... Work Da|
00000020  74 61 20 46 69 6c 65 0d  00 1e 20 f4 20 42 79 20  |ta File... . By |
00000030  50 2e 4a 2e 48 6f 6d 65  72 20 47 34 4b 51 55 20  |P.J.Homer G4KQU |
00000040  3c 43 3e 31 39 38 37 0d  00 28 0c 2a 46 58 32 30  |<C>1987..(.*FX20|
00000050  30 2c 33 0d 00 32 0b 2a  46 58 31 31 2c 30 0d 00  |0,3..2.*FX11,0..|
00000060  3c 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |<..23,1,0;0;0;0;|
00000070  0d 00 46 25 44 24 3d 22  20 50 20 72 20 6f 20 67  |..F%D$=" P r o g|
00000080  20 72 20 61 20 6d 20 20  20 20 20 53 20 74 20 6f  | r a m     S t o|
00000090  20 72 20 65 22 0d 00 50  1c 54 3d 33 30 30 3a 58  | r e"..P.T=300:X|
000000a0  3d 30 3a e7 51 25 3e 35  8c 51 25 3d 51 25 2d 34  |=0:.Q%>5.Q%=Q%-4|
000000b0  38 0d 00 5a 09 f2 46 49  4c 45 0d 00 64 21 46 3d  |8..Z..FILE..d!F=|
000000c0  35 32 3a 50 52 4f 3d 30  3a 44 45 4c 3d 30 3a 46  |52:PRO=0:DEL=0:F|
000000d0  49 4e 44 25 3d 31 3a 44  52 3d 30 0d 00 6e 0d d9  |IND%=1:DR=0..n..|
000000e0  23 30 3a 58 58 58 3d 30  0d 00 78 0a f2 43 48 45  |#0:XXX=0..x..CHE|
000000f0  43 4b 0d 00 82 06 eb 37  0d 00 8c 09 f1 22 84 9d  |CK.....7....."..|
00000100  22 0d 00 96 29 f1 22 86  9d 8d 84 20 20 20 50 20  |"...)."....   P |
00000110  72 20 6f 20 67 20 72 20  61 20 6d 20 20 20 20 53  |r o g r a m    S|
00000120  20 74 20 6f 20 72 20 65  20 22 0d 00 a0 2a f1 22  | t o r e "...*."|
00000130  86 9d 8d 84 20 20 20 50  20 72 20 6f 20 67 20 72  |....   P r o g r|
00000140  20 61 20 6d 20 20 20 20  53 20 74 20 6f 20 72 20  | a m    S t o r |
00000150  65 20 20 22 0d 00 aa 21  f1 22 84 9d 86 22 44 46  |e  "...!."..."DF|
00000160  24 8a 32 34 29 22 57 4f  52 4b 20 44 41 54 41 20  |$.24)"WORK DATA |
00000170  46 49 4c 45 22 0d 00 b4  06 f2 43 0d 00 be 36 49  |FILE".....C...6I|
00000180  25 3d 31 3a 49 49 25 3d  30 3a 58 3d 30 3a 41 41  |%=1:II%=0:X=0:AA|
00000190  25 3d 30 3a 5a 5a 3d 31  3a 4c 49 3d 30 3a 50 3d  |%=0:ZZ=1:LI=0:P=|
000001a0  30 3a 50 41 3d 30 3a 53  53 3d 30 3a 53 53 53 3d  |0:PA=0:SS=0:SSS=|
000001b0  30 0d 00 c8 11 ef 32 38  2c 30 2c 32 34 2c 33 39  |0.....28,0,24,39|
000001c0  2c 34 0d 00 d2 22 f1 27  27 8a 37 29 22 84 31 86  |,4...".''.7)".1.|
000001d0  5f 20 4c 49 53 54 20 41  4c 4c 20 50 52 4f 47 52  |_ LIST ALL PROGR|
000001e0  41 4d 53 22 0d 00 dc 24  f1 27 8a 37 29 22 84 32  |AMS"...$.'.7)".2|
000001f0  86 5f 20 53 45 41 52 43  48 20 46 4f 52 20 41 20  |._ SEARCH FOR A |
00000200  50 52 4f 47 52 41 4d 22  0d 00 e6 24 f1 27 8a 37  |PROGRAM"...$.'.7|
00000210  29 22 84 33 86 5f 20 45  4e 54 45 52 20 44 41 54  |)".3._ ENTER DAT|
00000220  41 20 49 4e 54 4f 20 46  49 4c 45 22 0d 00 f0 28  |A INTO FILE"...(|
00000230  f1 27 8a 37 29 22 84 34  86 5f 20 4d 41 4b 45 20  |.'.7)".4._ MAKE |
00000240  43 4f 52 52 45 43 54 49  4f 4e 53 20 54 4f 20 46  |CORRECTIONS TO F|
00000250  49 4c 45 22 0d 00 fa 28  f1 27 8a 37 29 22 84 35  |ILE"...(.'.7)".5|
00000260  86 5f 20 44 45 4c 45 54  45 20 46 52 4f 4d 20 50  |._ DELETE FROM P|
00000270  52 4f 47 52 41 4d 20 46  49 4c 45 22 0d 01 04 23  |ROGRAM FILE"...#|
00000280  f1 27 8a 37 29 22 84 36  86 5f 20 52 45 54 55 52  |.'.7)".6._ RETUR|
00000290  4e 20 54 4f 20 4d 41 49  4e 20 4d 45 4e 55 22 0d  |N TO MAIN MENU".|
000002a0  01 0e 20 f1 27 8a 37 29  22 84 37 86 5f 20 43 48  |.. .'.7)".7._ CH|
000002b0  41 4e 47 45 20 44 41 54  41 20 46 49 4c 45 22 0d  |ANGE DATA FILE".|
000002c0  01 18 0b f1 27 27 22 84  9d 22 0d 01 22 29 f1 22  |....''".."..")."|
000002d0  86 9d 84 46 52 45 45 20  22 3b 54 2d 50 52 4f 3b  |...FREE ";T-PRO;|
000002e0  8a 32 35 29 22 50 52 4f  47 52 41 4d 53 84 22 3b  |.25)"PROGRAMS.";|
000002f0  50 52 4f 0d 01 2c 09 f1  22 84 9d 22 0d 01 36 09  |PRO..,..".."..6.|
00000300  f2 57 41 49 54 0d 01 40  08 51 25 3d 5a 0d 01 4a  |.WAIT..@.Q%=Z..J|
00000310  14 e7 5a 24 3d 22 36 22  8c d7 22 53 45 54 55 50  |..Z$="6".."SETUP|
00000320  22 0d 01 54 17 e7 5a 24  3d 22 37 22 8c d9 23 30  |"..T..Z$="7"..#0|
00000330  3a f2 43 48 41 4e 47 45  0d 01 5e 1a e7 5a 24 3d  |:.CHANGE..^..Z$=|
00000340  22 31 22 8c f2 43 48 45  43 4b 3a e7 58 3d 30 8c  |"1"..CHECK:.X=0.|
00000350  f2 44 0d 01 68 0e e7 53  53 3d 31 8c 8d 44 6e 40  |.D..h..SS=1..Dn@|
00000360  0d 01 7c 21 e7 53 53 53  3d 31 8c eb 33 3a f2 43  |..|!.SSS=1..3:.C|
00000370  3a ef 31 39 2c 31 2c 36  3b 30 3b 3a f2 4c 49 53  |:.19,1,6;0;:.LIS|
00000380  54 0d 01 86 12 e7 5a 24  3d 22 32 22 8c f2 43 48  |T.....Z$="2"..CH|
00000390  45 43 4b 0d 01 90 0e e7  53 53 3d 31 8c 8d 44 6e  |ECK.....SS=1..Dn|
000003a0  40 0d 01 9a 1f e7 5a 24  3d 22 32 22 8c f2 53 45  |@.....Z$="2"..SE|
000003b0  41 52 43 48 3a e7 58 58  58 3d 30 8c 8d 44 6e 40  |ARCH:.XXX=0..Dn@|
000003c0  0d 01 a4 2a e7 58 58 58  3d 31 8c eb 33 3a f2 43  |...*.XXX=1..3:.C|
000003d0  3a ef 31 39 2c 31 2c 36  3b 30 3b 3a f2 53 45 41  |:.19,1,6;0;:.SEA|
000003e0  52 43 48 31 3a e5 8d 44  6e 40 0d 01 ae 12 e7 5a  |RCH1:..Dn@.....Z|
000003f0  24 3d 22 35 22 8c f2 43  48 45 43 4b 0d 01 b8 0e  |$="5"..CHECK....|
00000400  e7 53 53 3d 31 8c 8d 44  6e 40 0d 01 c2 13 e7 5a  |.SS=1..Dn@.....Z|
00000410  24 3d 22 35 22 8c f2 44  45 4c 45 54 45 0d 01 cc  |$="5"..DELETE...|
00000420  12 e7 5a 24 3d 22 33 22  8c f2 43 48 45 43 4b 0d  |..Z$="3"..CHECK.|
00000430  01 d6 0e e7 53 53 3d 31  8c 8d 44 6e 40 0d 01 e0  |....SS=1..Dn@...|
00000440  10 e7 5a 24 3d 22 33 22  8c f2 4e 45 57 0d 01 ea  |..Z$="3"..NEW...|
00000450  14 e7 5a 24 3d 22 34 22  8c f2 43 4f 52 52 45 43  |..Z$="4"..CORREC|
00000460  54 0d 01 f4 09 e5 8d 44  6e 40 0d 01 fe 09 dd f2  |T......Dn@......|
00000470  4e 45 57 0d 02 08 2e db  3a f1 8a 33 2c 38 29 22  |NEW.....:..3,8)"|
00000480  86 3c 41 3e 44 44 84 4f  52 86 3c 49 3e 4e 53 45  |.<A>DD.OR.<I>NSE|
00000490  52 54 84 44 41 54 41 20  20 86 3c 4d 3e 65 6e 75  |RT.DATA  .<M>enu|
000004a0  22 0d 02 12 09 f2 57 41  49 54 0d 02 1c 08 51 25  |".....WAIT....Q%|
000004b0  3d 5a 0d 02 26 20 e7 5a  24 3d 22 49 22 84 5a 24  |=Z..& .Z$="I".Z$|
000004c0  3d 22 69 22 8c 4f 25 3d  31 3a d7 22 49 4e 44 45  |="i".O%=1:."INDE|
000004d0  4c 22 0d 02 30 14 e7 5a  24 3d 22 4d 22 84 5a 24  |L"..0..Z$="M".Z$|
000004e0  3d 22 6d 22 8c e1 0d 02  3a 17 e7 5a 24 3d 22 41  |="m"....:..Z$="A|
000004f0  22 84 5a 24 3d 22 61 22  8c 8d 44 44 42 0d 02 3b  |".Z$="a"..DDB..;|
00000500  09 e5 8d 54 52 42 0d 02  44 05 db 0d 02 4e 67 e7  |...TRB..D....Ng.|
00000510  20 50 52 4f 2b 44 45 4c  3d 54 20 8c f1 27 27 8a  | PRO+DEL=T ..''.|
00000520  37 29 22 86 54 48 45 52  45 20 49 53 20 4e 4f 20  |7)".THERE IS NO |
00000530  52 4f 4f 4d 20 49 4e 20  46 49 4c 45 22 27 27 27  |ROOM IN FILE"'''|
00000540  3a f1 22 84 3e 3e 20 50  52 45 53 53 20 41 4e 59  |:.".>> PRESS ANY|
00000550  20 4b 45 59 20 54 4f 20  52 45 54 55 52 4e 20 54  | KEY TO RETURN T|
00000560  4f 20 4d 45 4e 55 20 3c  3c 22 3a f2 57 41 49 54  |O MENU <<":.WAIT|
00000570  3a e1 0d 02 58 07 d9 23  30 0d 02 62 0d 49 41 25  |:...X..#0..b.IA%|
00000580  3d 50 52 4f 2b 31 0d 02  6c 05 db 0d 02 76 0f 43  |=PRO+1..l....v.C|
00000590  48 3d ad 28 46 49 4c 45  24 29 0d 02 80 05 f5 0d  |H=.(FILE$)......|
000005a0  02 8a 0a f2 49 4e 50 55  54 0d 02 94 1b e7 44 52  |....INPUT.....DR|
000005b0  3d 30 8c d9 23 30 3a f2  43 48 45 43 4b 3a e7 58  |=0..#0:.CHECK:.X|
000005c0  3d 31 8c e1 0d 02 9e 19  e7 44 52 3d 30 8c d9 23  |=1.......DR=0..#|
000005d0  30 3a 43 48 3d ad 28 46  49 4c 45 24 29 0d 02 a8  |0:CH=.(FILE$)...|
000005e0  1e e7 44 49 53 43 24 3d  22 45 4e 44 22 84 44 49  |..DISC$="END".DI|
000005f0  53 43 24 3d 22 65 6e 64  22 8c e1 0d 02 b2 0a f2  |SC$="end".......|
00000600  57 52 49 54 45 0d 02 bc  11 50 52 4f 3d 50 52 4f  |WRITE....PRO=PRO|
00000610  2b 31 3a f2 50 31 0d 02  c6 0d 49 41 25 3d 49 41  |+1:.P1....IA%=IA|
00000620  25 2b 31 0d 02 d0 0c fd  49 41 25 3d 54 2b 31 0d  |%+1.....IA%=T+1.|
00000630  02 da 05 db 0d 02 e4 55  f1 8a 38 2c 39 29 22 86  |.......U..8,9)".|
00000640  54 48 45 52 45 20 49 53  20 4e 4f 20 4d 4f 52 45  |THERE IS NO MORE|
00000650  20 52 4f 4f 4d 22 27 27  27 27 3b 8a 32 29 22 84  | ROOM"'''';.2)".|
00000660  20 3e 3e 20 50 52 45 53  53 20 41 4e 59 20 4b 45  | >> PRESS ANY KE|
00000670  59 20 54 4f 20 43 4f 4e  54 49 4e 55 45 20 3c 3c  |Y TO CONTINUE <<|
00000680  22 3a f2 57 41 49 54 3a  e1 0d 02 ee 0b dd f2 49  |":.WAIT:.......I|
00000690  4e 50 55 54 0d 02 f8 05  db 0d 03 02 0c 46 24 3d  |NPUT.........F$=|
000006a0  46 49 4c 45 24 0d 03 0c  4a f1 27 22 86 54 4f 20  |FILE$...J.'".TO |
000006b0  46 49 4e 49 53 48 20 45  4e 54 45 52 84 45 4e 44  |FINISH ENTER.END|
000006c0  86 46 4f 52 20 44 49 53  43 22 27 22 86 54 4f 20  |.FOR DISC"'".TO |
000006d0  53 45 45 20 43 41 54 41  4c 4f 47 55 45 20 45 4e  |SEE CATALOGUE EN|
000006e0  54 45 52 84 2a 86 46 4f  52 20 44 49 53 43 22 0d  |TER.*.FOR DISC".|
000006f0  03 16 1f f1 8a 30 2c 35  29 22 84 52 45 43 4f 52  |.....0,5)".RECOR|
00000700  44 20 4e 55 4d 42 45 52  86 22 3b 49 41 25 0d 03  |D NUMBER.";IA%..|
00000710  20 31 f1 8a 30 2c 38 29  22 84 44 49 53 43 86 20  | 1..0,8)".DISC. |
00000720  20 20 20 86 2e 2e 2e 2e  20 20 20 20 20 20 20 20  |   .....        |
00000730  22 3a e8 8a 31 30 2c 38  29 3b 44 49 53 43 24 0d  |":..10,8);DISC$.|
00000740  03 2a 12 e7 a9 44 49 53  43 24 3e 34 8c 8d 54 60  |.*...DISC$>4..T`|
00000750  43 0d 03 34 18 e7 44 49  53 43 24 3d 22 2a 22 8c  |C..4..DISC$="*".|
00000760  f2 44 52 3a e5 8d 64 78  42 0d 03 3e 13 e7 44 49  |.DR:..dxB..>..DI|
00000770  53 43 24 3d 22 40 22 8c  8d 54 60 43 0d 03 48 1e  |SC$="@"..T`C..H.|
00000780  e7 44 49 53 43 24 3d 22  45 4e 44 22 84 44 49 53  |.DISC$="END".DIS|
00000790  43 24 3d 22 65 6e 64 22  8c e1 0d 03 52 48 f1 8a  |C$="end"....RH..|
000007a0  30 2c 31 30 29 22 84 50  52 4f 47 52 41 4d 86 20  |0,10)".PROGRAM. |
000007b0  20 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  | ...............|
000007c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 20 20 20 20 20  |..........      |
000007d0  20 20 22 3a e8 8a 31 30  2c 31 30 29 3b 50 52 4f  |  ":..10,10);PRO|
000007e0  47 24 0d 03 5c 13 e7 a9  50 52 4f 47 24 3e 32 35  |G$..\...PROG$>25|
000007f0  8c 8d 44 52 43 0d 03 66  33 f1 8a 30 2c 31 32 29  |..DRC..f3..0,12)|
00000800  22 84 46 49 4c 45 86 20  20 20 20 20 2e 2e 2e 2e  |".FILE.     ....|
00000810  2e 2e 2e 20 20 20 20 20  86 22 3a e8 8a 31 30 2c  |...     .":..10,|
00000820  31 32 29 3b 46 49 4c 24  0d 03 70 11 e7 a9 46 49  |12);FIL$..p...FI|
00000830  4c 24 3e 37 8c 8d 44 66  43 0d 03 7a 40 f1 8a 30  |L$>7..DfC..z@..0|
00000840  2c 31 34 29 22 84 41 55  54 48 4f 52 20 20 86 20  |,14)".AUTHOR  . |
00000850  2e 2e 2e 2e 2e 2e 2e 2e  20 20 20 20 20 20 20 20  |........        |
00000860  20 20 20 20 20 20 20 20  20 20 22 3a e8 8a 31 30  |          ":..10|
00000870  2c 31 34 29 3b 43 41 54  24 0d 03 84 11 e7 a9 43  |,14);CAT$......C|
00000880  41 54 24 3e 38 8c 8d 44  7a 43 0d 03 8e 30 f1 8a  |AT$>8..DzC...0..|
00000890  30 2c 31 37 29 22 86 41  52 45 20 45 4e 54 52 49  |0,17)".ARE ENTRI|
000008a0  45 53 20 43 4f 52 52 45  43 54 20 84 3c 59 3e 65  |ES CORRECT .<Y>e|
000008b0  73 20 6f 72 20 3c 4e 3e  6f 22 0d 03 98 09 f2 57  |s or <N>o".....W|
000008c0  41 49 54 0d 03 a2 14 e7  5a 24 3d 22 59 22 84 5a  |AIT.....Z$="Y".Z|
000008d0  24 3d 22 79 22 8c e1 0d  03 ac 18 e7 5a 24 3d 22  |$="y".......Z$="|
000008e0  4e 22 84 5a 24 3d 22 6e  22 8c e5 8d 64 78 42 0d  |N".Z$="n"...dxB.|
000008f0  03 b6 09 e5 8d 74 58 43  0d 03 c0 0b dd f2 57 52  |.....tXC......WR|
00000900  49 54 45 0d 03 ca 1e e7  44 49 53 43 24 3d 22 45  |ITE.....DISC$="E|
00000910  4e 44 22 84 44 49 53 43  24 3d 22 65 6e 64 22 8c  |ND".DISC$="end".|
00000920  e1 0d 03 d4 12 cf 23 43  48 3d 28 49 41 25 2d 31  |......#CH=(IA%-1|
00000930  29 2a 46 0d 03 de 1e f1  23 43 48 2c 44 49 53 43  |)*F.....#CH,DISC|
00000940  24 2c 50 52 4f 47 24 2c  46 49 4c 24 2c 43 41 54  |$,PROG$,FIL$,CAT|
00000950  24 0d 03 e8 05 e1 0d 03  f2 0a dd f2 4c 49 53 54  |$...........LIST|
00000960  0d 03 fc 09 49 49 25 3d  31 0d 04 06 0a 49 25 3d  |....II%=1....I%=|
00000970  53 54 25 0d 04 10 07 f2  54 31 0d 04 11 07 d9 23  |ST%.....T1.....#|
00000980  30 0d 04 1a 0f 43 48 3d  8e 28 46 49 4c 45 24 29  |0....CH=.(FILE$)|
00000990  0d 04 24 05 f5 0d 04 2e  11 cf 23 43 48 3d 28 49  |..$.......#CH=(I|
000009a0  25 2d 31 29 2a 46 0d 04  38 1e e8 23 43 48 2c 44  |%-1)*F..8..#CH,D|
000009b0  49 53 43 24 2c 50 52 4f  47 24 2c 46 49 4c 24 2c  |ISC$,PROG$,FIL$,|
000009c0  43 41 54 24 0d 04 42 70  e7 44 49 53 43 24 3d 22  |CAT$..Bp.DISC$="|
000009d0  2a 22 8c f1 3a f1 27 8a  37 29 22 45 4e 44 20 4f  |*"..:.'.7)"END O|
000009e0  46 20 44 41 54 41 20 4c  49 53 54 20 20 20 20 20  |F DATA LIST     |
000009f0  3c 20 3d 20 4c 41 53 54  20 50 41 47 45 20 20 20  |< = LAST PAGE   |
00000a00  20 20 20 41 4e 59 20 4b  45 59 20 54 4f 20 52 45  |   ANY KEY TO RE|
00000a10  54 55 52 4e 20 54 4f 20  4d 45 4e 55 22 3a f2 57  |TURN TO MENU":.W|
00000a20  41 49 54 3a f2 58 3a 49  49 25 3d 31 3a e7 5a 5a  |AIT:.X:II%=1:.ZZ|
00000a30  3d 30 8c e1 0d 04 4c 18  e7 44 49 53 43 24 3d 22  |=0....L..DISC$="|
00000a40  2a 22 8c f2 54 31 3a e5  8d 74 48 44 0d 04 56 31  |*"..T1:..tHD..V1|
00000a50  f1 8a 36 29 3b 49 25 3b  8a 31 35 29 44 49 53 43  |..6);I%;.15)DISC|
00000a60  24 3b 8a 32 35 29 50 52  4f 47 24 3b 8a 35 35 29  |$;.25)PROG$;.55)|
00000a70  46 49 4c 24 3b 8a 36 35  29 43 41 54 24 0d 04 60  |FIL$;.65)CAT$..`|
00000a80  6a e7 49 49 25 3d 31 37  8c 49 49 25 3d 30 3a f1  |j.II%=17.II%=0:.|
00000a90  27 8a 34 29 22 50 52 45  53 53 20 41 4e 59 20 4b  |'.4)"PRESS ANY K|
00000aa0  45 59 20 46 4f 52 20 4e  45 58 54 20 50 41 47 45  |EY FOR NEXT PAGE|
00000ab0  20 20 20 20 20 20 20 20  3c 20 20 46 4f 52 20 4c  |        <  FOR L|
00000ac0  41 53 54 20 50 41 47 45  20 20 20 20 20 20 20 20  |AST PAGE        |
00000ad0  20 4d 20 20 46 4f 52 20  4d 45 4e 55 22 3a f2 57  | M  FOR MENU":.W|
00000ae0  41 49 54 3a f2 54 31 0d  04 6a 15 49 25 3d 49 25  |AIT:.T1..j.I%=I%|
00000af0  2b 31 3a 49 49 25 3d 49  49 25 2b 31 0d 04 74 14  |+1:II%=II%+1..t.|
00000b00  e7 5a 24 3d 22 4d 22 84  5a 24 3d 22 6d 22 8c e1  |.Z$="M".Z$="m"..|
00000b10  0d 04 7e 27 e7 5a 24 3d  22 2c 22 8c 49 25 3d 49  |..~'.Z$=",".I%=I|
00000b20  25 2d 33 34 3a 5a 24 3d  22 2e 22 3a e7 49 25 3c  |%-34:Z$=".":.I%<|
00000b30  31 36 8c 49 25 3d 31 0d  04 88 0b fd 49 25 3d 54  |16.I%=1.....I%=T|
00000b40  2b 31 0d 04 92 4d f1 27  27 8a 37 29 22 45 4e 44  |+1...M.''.7)"END|
00000b50  20 4f 46 20 44 41 54 41  20 4c 49 53 54 20 20 20  | OF DATA LIST   |
00000b60  20 20 3c 20 3d 20 4c 41  53 54 20 50 41 47 45 20  |  < = LAST PAGE |
00000b70  20 20 20 20 20 41 4e 59  20 4b 45 59 20 54 4f 20  |     ANY KEY TO |
00000b80  52 45 54 55 52 4e 20 54  4f 20 4d 45 4e 55 22 0d  |RETURN TO MENU".|
00000b90  04 9c 09 f2 57 41 49 54  0d 04 a6 1c e7 49 25 3d  |....WAIT.....I%=|
00000ba0  54 2b 31 8c f2 58 3a 49  49 25 3d 31 3a e7 5a 5a  |T+1..X:II%=1:.ZZ|
00000bb0  3d 30 8c e1 0d 04 b0 19  e7 49 25 3c 31 36 8c 49  |=0.......I%<16.I|
00000bc0  25 3d 31 3a 49 49 25 3d  31 3a f2 54 50 0d 04 ba  |%=1:II%=1:.TP...|
00000bd0  09 e5 8d 54 50 44 0d 04  c4 07 dd f2 58 0d 04 ce  |...TPD......X...|
00000be0  13 e7 5a 24 3c 3e 22 2c  22 8c 5a 5a 3d 30 3a e1  |..Z$<>",".ZZ=0:.|
00000bf0  0d 04 d8 0b e7 5a 5a 3d  30 8c e1 0d 04 e2 2b 49  |.....ZZ=0.....+I|
00000c00  25 3d 49 25 2d 49 49 25  2d 31 36 3a 5a 24 3d 22  |%=I%-II%-16:Z$="|
00000c10  2e 22 3a e7 49 25 3c 31  36 8c 49 25 3d 31 3a 49  |.":.I%<16.I%=1:I|
00000c20  49 25 3d 31 3a e1 0d 04  ec 05 e1 0d 04 f6 08 dd  |I%=1:...........|
00000c30  f2 54 31 0d 05 00 62 db  3a f1 8a 32 33 2c 30 29  |.T1...b.:..23,0)|
00000c40  3b 44 24 3b 8a 35 2c 32  29 22 52 45 43 4f 52 44  |;D$;.5,2)"RECORD|
00000c50  22 8a 31 35 2c 32 29 22  44 49 53 43 22 8a 32 35  |".15,2)"DISC".25|
00000c60  2c 32 29 22 50 52 4f 47  52 41 4d 22 8a 35 35 2c  |,2)"PROGRAM".55,|
00000c70  32 29 22 46 49 4c 45 22  8a 36 35 2c 32 29 22 41  |2)"FILE".65,2)"A|
00000c80  55 54 48 4f 52 22 3a f1  8a 30 29 c4 37 39 2c 22  |UTHOR":..0).79,"|
00000c90  2d 22 29 3a e1 0d 05 0a  0c dd f2 53 45 41 52 43  |-"):.......SEARC|
00000ca0  48 0d 05 14 0b db 3a 58  58 58 3d 31 0d 05 1e 27  |H.....:XXX=1...'|
00000cb0  f1 8a 36 2c 32 29 22 86  45 4e 54 45 52 20 48 45  |..6,2)".ENTER HE|
00000cc0  41 44 49 4e 47 20 54 4f  20 53 45 41 52 43 48 20  |ADING TO SEARCH |
00000cd0  42 59 22 0d 05 28 1d f1  27 27 27 8a 31 34 29 22  |BY"..(..'''.14)"|
00000ce0  86 31 20 3d 20 52 65 63  6f 72 64 20 4e 6f 2e 22  |.1 = Record No."|
00000cf0  0d 05 32 15 f1 27 8a 31  34 29 22 86 32 20 3d 20  |..2..'.14)".2 = |
00000d00  44 69 73 63 22 0d 05 3c  18 f1 27 8a 31 34 29 22  |Disc"..<..'.14)"|
00000d10  86 33 20 3d 20 50 72 6f  67 72 61 6d 22 0d 05 46  |.3 = Program"..F|
00000d20  17 f1 27 8a 31 34 29 22  86 34 20 3d 20 41 75 74  |..'.14)".4 = Aut|
00000d30  68 6f 72 22 0d 05 50 15  f1 27 8a 31 34 29 22 86  |hor"..P..'.14)".|
00000d40  35 20 3d 20 4d 65 6e 75  22 0d 05 5a 23 f1 27 27  |5 = Menu"..Z#.''|
00000d50  27 8a 38 29 22 86 45 4e  54 45 52 20 4f 50 54 49  |'.8)".ENTER OPTI|
00000d60  4f 4e 20 52 45 51 55 49  52 45 44 22 0d 05 64 09  |ON REQUIRED"..d.|
00000d70  f2 57 41 49 54 0d 05 6e  18 e7 5a 24 3d 22 31 22  |.WAIT..n..Z$="1"|
00000d80  8c 48 45 41 44 3d 31 3a  e5 8d 74 6a 45 0d 05 78  |.HEAD=1:..tjE..x|
00000d90  18 e7 5a 24 3d 22 32 22  8c 48 45 41 44 3d 32 3a  |..Z$="2".HEAD=2:|
00000da0  e5 8d 74 6a 45 0d 05 82  18 e7 5a 24 3d 22 33 22  |..tjE.....Z$="3"|
00000db0  8c 48 45 41 44 3d 33 3a  e5 8d 74 6a 45 0d 05 8c  |.HEAD=3:..tjE...|
00000dc0  18 e7 5a 24 3d 22 34 22  8c 48 45 41 44 3d 34 3a  |..Z$="4".HEAD=4:|
00000dd0  e5 8d 74 6a 45 0d 05 96  13 e7 5a 24 3d 22 35 22  |..tjE.....Z$="5"|
00000de0  8c 58 58 58 3d 30 3a e1  0d 05 a0 09 e5 8d 44 64  |.XXX=0:.......Dd|
00000df0  45 0d 05 aa 05 db 0d 05  b4 14 f1 8a 33 2c 31 30  |E...........3,10|
00000e00  29 22 86 45 4e 54 45 52  22 3b 0d 05 be 17 e7 48  |)".ENTER";.....H|
00000e10  45 41 44 3d 31 8c f1 22  84 52 45 43 4f 52 44 22  |EAD=1..".RECORD"|
00000e20  3b 0d 05 c8 15 e7 48 45  41 44 3d 32 8c f1 22 84  |;.....HEAD=2..".|
00000e30  44 49 53 43 22 3b 0d 05  d2 18 e7 48 45 41 44 3d  |DISC";.....HEAD=|
00000e40  33 8c f1 22 84 50 52 4f  47 52 41 4d 22 3b 0d 05  |3..".PROGRAM";..|
00000e50  dc 17 e7 48 45 41 44 3d  34 8c f1 22 84 41 55 54  |...HEAD=4..".AUT|
00000e60  48 4f 52 22 3b 0d 05 e6  18 f1 22 86 59 4f 55 20  |HOR";.....".YOU |
00000e70  57 49 53 48 20 54 4f 20  46 49 4e 44 22 0d 05 f0  |WISH TO FIND"...|
00000e80  34 e7 48 45 41 44 3d 31  8c e8 8a 31 35 2c 31 34  |4.HEAD=1...15,14|
00000e90  29 22 86 22 3b 46 49 4e  44 25 3a e7 46 49 4e 44  |)".";FIND%:.FIND|
00000ea0  25 3e 54 20 84 46 49 4e  44 25 3c 31 8c 8d 74 6a  |%>T .FIND%<1..tj|
00000eb0  45 0d 06 04 25 e7 48 45  41 44 3d 32 8c e8 8a 31  |E...%.HEAD=2...1|
00000ec0  35 2c 31 34 29 22 86 22  3b 46 49 4e 44 24 3a 46  |5,14)".";FIND$:F|
00000ed0  49 4e 44 25 3d 54 0d 06  0e 26 e7 48 45 41 44 3d  |IND%=T...&.HEAD=|
00000ee0  33 8c e8 8a 31 35 2c 31  34 29 22 86 22 3b 46 49  |3...15,14)".";FI|
00000ef0  4e 44 32 24 3a 46 49 4e  44 25 3d 54 0d 06 18 26  |ND2$:FIND%=T...&|
00000f00  e7 48 45 41 44 3d 34 8c  e8 8a 31 35 2c 31 34 29  |.HEAD=4...15,14)|
00000f10  22 86 22 3b 46 49 4e 44  33 24 3a 46 49 4e 44 25  |".";FIND3$:FIND%|
00000f20  3d 54 0d 06 22 05 e1 0d  06 2c 0d dd f2 53 45 41  |=T.."....,...SEA|
00000f30  52 43 48 31 0d 06 36 07  f2 54 31 0d 06 40 0e 51  |RCH1..6..T1..@.Q|
00000f40  25 3d 31 3a 41 41 25 3d  30 0d 06 4a 0f 43 48 3d  |%=1:AA%=0..J.CH=|
00000f50  8e 28 46 49 4c 45 24 29  0d 06 54 05 f5 0d 06 5e  |.(FILE$)..T....^|
00000f60  14 e7 48 45 41 44 3d 31  8c 51 25 3d 46 49 4e 44  |..HEAD=1.Q%=FIND|
00000f70  25 0d 06 68 11 cf 23 43  48 3d 28 51 25 2d 31 29  |%..h..#CH=(Q%-1)|
00000f80  2a 46 0d 06 72 1e e8 23  43 48 2c 44 49 53 43 24  |*F..r..#CH,DISC$|
00000f90  2c 50 52 4f 47 24 2c 46  49 4c 24 2c 43 41 54 24  |,PROG$,FIL$,CAT$|
00000fa0  0d 06 7c 54 e7 44 49 53  43 24 3d 22 2a 22 8c f1  |..|T.DISC$="*"..|
00000fb0  27 8a 31 34 29 22 45 4e  44 20 4f 46 20 53 45 41  |'.14)"END OF SEA|
00000fc0  52 43 48 20 20 20 3e 3e  20 50 52 45 53 53 20 41  |RCH   >> PRESS A|
00000fd0  4e 59 20 4b 45 59 20 54  4f 20 52 45 54 55 52 4e  |NY KEY TO RETURN|
00000fe0  20 54 4f 20 4d 45 4e 55  20 3c 3c 22 3a f2 57 41  | TO MENU <<":.WA|
00000ff0  49 54 3a e1 0d 06 86 10  e7 48 45 41 44 3d 34 8c  |IT:......HEAD=4.|
00001000  8d 74 7a 49 0d 06 90 10  e7 48 45 41 44 3d 32 8c  |.tzI.....HEAD=2.|
00001010  8d 44 7e 49 0d 06 9a 10  e7 48 45 41 44 3d 33 8c  |.D~I.....HEAD=3.|
00001020  8d 74 5c 49 0d 06 a4 31  f1 8a 36 29 3b 51 25 3b  |.t\I...1..6);Q%;|
00001030  8a 31 35 29 44 49 53 43  24 3b 8a 32 35 29 50 52  |.15)DISC$;.25)PR|
00001040  4f 47 24 3b 8a 35 35 29  46 49 4c 24 3b 8a 36 35  |OG$;.55)FIL$;.65|
00001050  29 43 41 54 24 0d 06 ae  68 41 41 25 3d 41 41 25  |)CAT$...hAA%=AA%|
00001060  2b 31 3a e7 41 41 25 3d  31 37 8c f1 27 27 8a 31  |+1:.AA%=17..''.1|
00001070  29 22 20 20 2a 2a 20 4d  4f 52 45 20 2a 2a 20 20  |)"  ** MORE **  |
00001080  20 20 20 20 20 50 52 45  53 53 20 41 4e 59 20 4b  |     PRESS ANY K|
00001090  45 59 20 54 4f 20 43 4f  4e 54 49 4e 55 45 20 20  |EY TO CONTINUE  |
000010a0  20 20 20 20 20 20 3c 4d  3e 65 6e 75 20 20 20 20  |      <M>enu    |
000010b0  20 20 2a 2a 20 4d 4f 52  45 20 2a 2a 22 0d 06 b8  |  ** MORE **"...|
000010c0  3e e7 48 45 41 44 3d 31  8c 3a f1 8a 31 37 2c 32  |>.HEAD=1.:..17,2|
000010d0  30 29 22 84 20 3e 3e 20  50 52 45 53 53 20 41 4e  |0)". >> PRESS AN|
000010e0  59 20 4b 45 59 20 54 4f  20 52 45 54 55 52 4e 20  |Y KEY TO RETURN |
000010f0  54 4f 20 4d 45 4e 55 20  3c 3c 22 0d 06 c2 2e e7  |TO MENU <<".....|
00001100  41 41 25 3d 31 37 8c f2  57 41 49 54 3a db 3a 41  |AA%=17..WAIT:.:A|
00001110  41 25 3d 30 3a f2 54 31  3a e7 5a 24 3d 22 4d 22  |A%=0:.T1:.Z$="M"|
00001120  84 5a 24 3d 22 6d 22 8c  e1 0d 06 cc 13 e7 48 45  |.Z$="m".......HE|
00001130  41 44 3d 31 8c f2 57 41  49 54 3a e1 0d 06 d6 0b  |AD=1..WAIT:.....|
00001140  51 25 3d 51 25 2b 31 0d  06 e0 0c 47 34 24 3d bf  |Q%=Q%+1....G4$=.|
00001150  28 30 29 0d 06 ea 19 e7  47 34 24 3d 22 4d 22 84  |(0).....G4$="M".|
00001160  47 34 24 3d 22 6d 22 8c  51 25 3d 54 0d 06 f4 09  |G4$="m".Q%=T....|
00001170  fd 51 25 3d 54 0d 06 fe  07 d9 23 30 0d 07 08 3d  |.Q%=T.....#0...=|
00001180  f1 8a 31 37 2c 32 33 29  22 84 53 45 41 52 43 48  |..17,23)".SEARCH|
00001190  20 45 4e 44 45 44 20 41  4e 59 20 4b 45 59 20 54  | ENDED ANY KEY T|
000011a0  4f 20 52 45 54 55 52 4e  20 54 4f 20 4d 45 4e 55  |O RETURN TO MENU|
000011b0  22 3a f2 57 41 49 54 3a  e1 0d 07 12 07 dd f2 41  |":.WAIT:.......A|
000011c0  0d 07 1c 18 f1 22 84 44  49 53 43 2e 2e 2e 2e 2e  |.....".DISC.....|
000011d0  86 22 3b 44 49 53 43 24  0d 07 26 18 f1 22 84 50  |.";DISC$..&..".P|
000011e0  52 4f 47 52 41 4d 2e 2e  86 22 3b 50 52 4f 47 24  |ROGRAM...";PROG$|
000011f0  0d 07 30 17 f1 22 84 46  49 4c 45 2e 2e 2e 2e 2e  |..0..".FILE.....|
00001200  86 22 3b 46 49 4c 24 0d  07 3a 19 f1 22 84 41 55  |.";FIL$..:..".AU|
00001210  54 48 4f 52 2e 2e 2e 86  22 3b 43 41 54 24 3a e1  |THOR....";CAT$:.|
00001220  0d 07 44 0d dd f2 43 4f  52 52 45 43 54 0d 07 4e  |..D...CORRECT..N|
00001230  05 db 0d 07 58 27 f1 8a  35 2c 31 32 29 22 86 45  |....X'..5,12)".E|
00001240  4e 54 45 52 84 30 86 54  4f 20 52 45 54 55 52 4e  |NTER.0.TO RETURN|
00001250  20 54 4f 20 4d 45 4e 55  22 0d 07 62 35 e8 8a 30  | TO MENU"..b5..0|
00001260  2c 38 29 22 84 45 4e 54  45 52 20 52 45 43 4f 52  |,8)".ENTER RECOR|
00001270  44 20 4e 55 4d 42 45 52  20 54 4f 20 42 45 20 41  |D NUMBER TO BE A|
00001280  4c 54 45 52 45 44 86 22  3b 46 49 4e 44 25 0d 07  |LTERED.";FIND%..|
00001290  6c 0e e7 46 49 4e 44 25  3d 30 8c e1 0d 07 76 11  |l..FIND%=0....v.|
000012a0  e7 46 49 4e 44 25 3c 31  8c 8d 44 4e 47 0d 07 80  |.FIND%<1..DNG...|
000012b0  14 e7 46 49 4e 44 25 3e  50 52 4f 20 8c 8d 44 4e  |..FIND%>PRO ..DN|
000012c0  47 0d 07 8a 0f 43 48 3d  8e 28 46 49 4c 45 24 29  |G....CH=.(FILE$)|
000012d0  0d 07 94 14 cf 23 43 48  3d 28 46 49 4e 44 25 2d  |.....#CH=(FIND%-|
000012e0  31 29 2a 46 0d 07 9e 1e  e8 23 43 48 2c 44 49 53  |1)*F.....#CH,DIS|
000012f0  43 24 2c 50 52 4f 47 24  2c 46 49 4c 24 2c 43 41  |C$,PROG$,FIL$,CA|
00001300  54 24 0d 07 a8 07 d9 23  30 0d 07 b2 20 db 3a f1  |T$.....#0... .:.|
00001310  27 22 84 52 45 43 4f 52  44 20 4e 55 4d 42 45 52  |'".RECORD NUMBER|
00001320  86 22 3b 46 49 4e 44 25  27 0d 07 bc 06 f2 41 0d  |.";FIND%'.....A.|
00001330  07 c6 7a f1 27 22 86 45  4e 54 45 52 20 4e 45 57  |..z.'".ENTER NEW|
00001340  20 44 41 54 41 20 46 4f  52 20 52 45 43 4f 52 44  | DATA FOR RECORD|
00001350  84 22 3b 46 49 4e 44 25  3a f1 22 86 50 52 45 53  |.";FIND%:.".PRES|
00001360  53 84 52 45 54 55 52 4e  86 54 4f 20 4c 45 41 56  |S.RETURN.TO LEAV|
00001370  45 20 46 49 45 4c 44 20  55 4e 43 48 41 4e 47 45  |E FIELD UNCHANGE|
00001380  44 22 3a f1 22 86 45 4e  54 45 52 84 2a 86 46 4f  |D":.".ENTER.*.FO|
00001390  52 20 44 49 53 43 20 54  4f 20 52 45 54 55 52 4e  |R DISC TO RETURN|
000013a0  20 54 4f 20 4d 45 4e 55  22 0d 07 d0 26 44 49 24  | TO MENU"...&DI$|
000013b0  3d 44 49 53 43 24 3a 50  24 3d 50 52 4f 47 24 3a  |=DISC$:P$=PROG$:|
000013c0  46 24 3d 46 49 4c 24 3a  43 24 3d 43 41 54 24 0d  |F$=FIL$:C$=CAT$.|
000013d0  07 da 39 f1 8a 30 2c 31  33 29 22 84 44 49 53 43  |..9..0,13)".DISC|
000013e0  20 20 20 20 20 20 86 2e  2e 2e 2e 20 20 20 20 20  |      .....     |
000013f0  20 20 20 20 20 22 3a e8  8a 31 30 2c 31 33 29 22  |     ":..10,13)"|
00001400  86 22 3b 44 49 53 43 24  0d 07 e4 12 e7 a9 44 49  |.";DISC$......DI|
00001410  53 43 24 3e 34 8c 8d 64  5a 47 0d 07 ee 10 e7 44  |SC$>4..dZG.....D|
00001420  49 53 43 24 3d 22 2a 22  8c e1 0d 07 f8 25 e7 44  |ISC$="*".....%.D|
00001430  49 53 43 24 3d 22 22 8c  44 49 53 43 24 3d 44 49  |ISC$="".DISC$=DI|
00001440  24 3a f1 8a 31 32 2c 31  33 29 44 49 53 43 24 0d  |$:..12,13)DISC$.|
00001450  08 02 13 e7 44 49 53 43  24 3d 22 40 22 8c 8d 64  |....DISC$="@"..d|
00001460  5a 47 0d 08 0c 4d f1 8a  30 2c 31 34 29 22 84 50  |ZG...M..0,14)".P|
00001470  52 4f 47 52 41 4d 86 20  20 20 2e 2e 2e 2e 2e 2e  |ROGRAM.   ......|
00001480  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001490  2e 2e 2e 20 20 20 20 20  20 20 20 20 22 3a e8 8a  |...         ":..|
000014a0  31 30 2c 31 34 29 22 86  22 3b 50 52 4f 47 24 0d  |10,14)".";PROG$.|
000014b0  08 16 24 e7 50 52 4f 47  24 3d 22 22 8c 50 52 4f  |..$.PROG$="".PRO|
000014c0  47 24 3d 50 24 3a f1 8a  31 32 2c 31 34 29 50 52  |G$=P$:..12,14)PR|
000014d0  4f 47 24 0d 08 20 13 e7  a9 50 52 4f 47 24 3e 32  |OG$.. ...PROG$>2|
000014e0  35 8c 8d 54 4c 48 0d 08  2a 38 f1 8a 30 2c 31 35  |5..TLH..*8..0,15|
000014f0  29 22 84 46 49 4c 45 20  20 20 20 20 20 86 2e 2e  |)".FILE      ...|
00001500  2e 2e 2e 2e 2e 20 20 20  20 20 20 20 22 3a e8 8a  |.....       ":..|
00001510  31 30 2c 31 35 29 22 86  22 3b 46 49 4c 24 0d 08  |10,15)".";FIL$..|
00001520  34 21 e7 46 49 4c 24 3d  22 22 8c 46 49 4c 24 3d  |4!.FIL$="".FIL$=|
00001530  46 24 3a f1 8a 31 32 2c  31 35 29 46 49 4c 24 0d  |F$:..12,15)FIL$.|
00001540  08 3e 11 e7 a9 46 49 4c  24 3e 37 8c 8d 54 6a 48  |.>...FIL$>7..TjH|
00001550  0d 08 48 3a f1 8a 30 2c  31 36 29 22 84 41 55 54  |..H:..0,16)".AUT|
00001560  48 4f 52 20 20 20 20 86  2e 2e 2e 2e 2e 2e 2e 2e  |HOR    .........|
00001570  20 20 20 20 20 20 20 20  22 3a e8 8a 31 30 2c 31  |        ":..10,1|
00001580  36 29 22 86 22 3b 43 41  54 24 0d 08 52 21 e7 43  |6)".";CAT$..R!.C|
00001590  41 54 24 3d 22 22 8c 43  41 54 24 3d 43 24 3a f1  |AT$="".CAT$=C$:.|
000015a0  8a 31 32 2c 31 36 29 43  41 54 24 0d 08 5c 11 e7  |.12,16)CAT$..\..|
000015b0  a9 43 41 54 24 3e 38 8c  8d 44 48 48 0d 08 66 2d  |.CAT$>8..DHH..f-|
000015c0  f1 27 27 22 86 49 53 20  54 48 49 53 20 44 41 54  |.''".IS THIS DAT|
000015d0  41 20 43 4f 52 52 45 43  54 20 84 3c 59 3e 65 73  |A CORRECT .<Y>es|
000015e0  20 6f 72 20 3c 4e 3e 6f  22 0d 08 70 09 f2 57 41  | or <N>o"..p..WA|
000015f0  49 54 0d 08 7a 3b e7 5a  24 3d 22 4e 22 84 5a 24  |IT..z;.Z$="N".Z$|
00001600  3d 22 6e 22 8c 44 49 53  43 24 3d 44 49 24 3a 50  |="n".DISC$=DI$:P|
00001610  52 4f 47 24 3d 50 24 3a  46 49 4c 24 3d 46 24 3a  |ROG$=P$:FIL$=F$:|
00001620  43 41 54 24 3d 43 24 3a  e5 8d 74 72 47 0d 08 84  |CAT$=C$:..trG...|
00001630  17 e7 5a 24 3d 22 59 22  84 5a 24 3d 22 79 22 8c  |..Z$="Y".Z$="y".|
00001640  8d 74 58 48 0d 08 8e 09  e5 8d 44 70 48 0d 08 98  |.tXH......DpH...|
00001650  0f 43 48 3d ad 28 46 49  4c 45 24 29 0d 08 a2 1a  |.CH=.(FILE$)....|
00001660  e7 44 49 24 3d 22 40 22  8c 50 52 4f 3d 50 52 4f  |.DI$="@".PRO=PRO|
00001670  2b 31 3a f2 50 31 0d 08  ac 14 cf 23 43 48 3d 28  |+1:.P1.....#CH=(|
00001680  46 49 4e 44 25 2d 31 29  2a 46 0d 08 b6 1e f1 23  |FIND%-1)*F.....#|
00001690  43 48 2c 44 49 53 43 24  2c 50 52 4f 47 24 2c 46  |CH,DISC$,PROG$,F|
000016a0  49 4c 24 2c 43 41 54 24  0d 08 c0 05 db 0d 08 ca  |IL$,CAT$........|
000016b0  34 f1 8a 30 2c 31 30 29  22 84 43 4f 52 52 45 43  |4..0,10)".CORREC|
000016c0  54 20 41 4e 59 20 4d 4f  52 45 20 52 45 43 4f 52  |T ANY MORE RECOR|
000016d0  44 53 86 3c 59 3e 65 73  20 6f 72 20 3c 4e 3e 6f  |DS.<Y>es or <N>o|
000016e0  22 0d 08 d4 08 5a 24 3d  be 0d 08 de 1c e7 5a 24  |"....Z$=......Z$|
000016f0  3d 22 59 22 84 5a 24 3d  22 79 22 8c d9 23 30 3a  |="Y".Z$="y"..#0:|
00001700  e5 8d 44 4e 47 0d 08 e8  17 e7 5a 24 3d 22 4e 22  |..DNG.....Z$="N"|
00001710  84 5a 24 3d 22 6e 22 8c  8d 64 7c 48 0d 08 f2 09  |.Z$="n"..d|H....|
00001720  e5 8d 64 54 48 0d 08 fc  05 e1 0d 09 06 0a dd f2  |..dTH...........|
00001730  57 41 49 54 0d 09 10 0a  5a 24 3d be 3a e1 0d 09  |WAIT....Z$=.:...|
00001740  1a 0b dd f2 43 48 45 43  4b 0d 09 24 0f 43 48 3d  |....CHECK..$.CH=|
00001750  8e 28 46 49 4c 45 24 29  0d 09 2e 68 e7 43 48 3d  |.(FILE$)...h.CH=|
00001760  30 8c 58 3d 31 3a db 3a  f1 8a 33 2c 31 30 29 22  |0.X=1:.:..3,10)"|
00001770  86 46 49 4c 45 84 22 3b  46 49 4c 45 24 3b 22 86  |.FILE.";FILE$;".|
00001780  49 53 20 4e 4f 54 20 4f  4e 20 54 48 45 20 44 49  |IS NOT ON THE DI|
00001790  53 43 22 3a f1 27 27 27  22 84 3e 3e 88 50 52 45  |SC":.'''".>>.PRE|
000017a0  53 53 20 41 4e 59 20 4b  45 59 20 54 4f 20 52 45  |SS ANY KEY TO RE|
000017b0  54 55 52 4e 20 54 4f 20  4d 45 4e 55 89 3c 3c 22  |TURN TO MENU.<<"|
000017c0  0d 09 38 0b e7 58 3d 30  8c f2 50 0d 09 42 1c e7  |..8..X=0..P..B..|
000017d0  58 3d 31 8c 44 45 4c 3d  30 3a 50 52 4f 3d 30 3a  |X=1.DEL=0:PRO=0:|
000017e0  f2 57 41 49 54 3a e1 0d  09 4c 05 e1 0d 09 56 0c  |.WAIT:...L....V.|
000017f0  dd f2 43 48 45 43 4b 32  0d 09 60 0f 43 48 3d 8e  |..CHECK2..`.CH=.|
00001800  28 46 49 4c 45 24 29 0d  09 6a 07 d9 23 30 0d 09  |(FILE$)..j..#0..|
00001810  74 05 e1 0d 09 7e 19 e7  a7 44 49 53 43 24 2c 46  |t....~...DISC$,F|
00001820  49 4e 44 24 29 3d 30 8c  8d 64 56 46 0d 09 88 13  |IND$)=0..dVF....|
00001830  e7 44 49 53 43 24 3d 22  2a 22 8c 8d 44 7c 46 0d  |.DISC$="*"..D|F.|
00001840  09 92 09 e5 8d 74 64 46  0d 09 9c 1a e7 a7 50 52  |.....tdF......PR|
00001850  4f 47 24 2c 46 49 4e 44  32 24 29 3d 30 8c 8d 64  |OG$,FIND2$)=0..d|
00001860  56 46 0d 09 a6 13 e7 44  49 53 43 24 3d 22 2a 22  |VF.....DISC$="*"|
00001870  8c 8d 44 7c 46 0d 09 b0  09 e5 8d 74 64 46 0d 09  |..D|F......tdF..|
00001880  ba 19 e7 a7 43 41 54 24  2c 46 49 4e 44 33 24 29  |....CAT$,FIND3$)|
00001890  3d 30 8c 8d 64 56 46 0d  09 c4 13 e7 44 49 53 43  |=0..dVF.....DISC|
000018a0  24 3d 22 2a 22 8c 8d 44  7c 46 0d 09 ce 09 e5 8d  |$="*"..D|F......|
000018b0  74 64 46 0d 09 d8 08 dd  f2 54 50 0d 09 e2 21 f1  |tdF......TP...!.|
000018c0  8a 33 2c 30 29 44 24 3b  8a 31 31 2c 34 29 22 84  |.3,0)D$;.11,4)".|
000018d0  46 49 4c 45 86 22 3b 46  49 4c 45 24 0d 09 ec 05  |FILE.";FILE$....|
000018e0  e1 0d 09 f6 0c dd f2 44  45 4c 45 54 45 0d 0a 00  |.......DELETE...|
000018f0  16 51 25 3d 5a 3a 4f 25  3d 30 3a d7 22 49 4e 44  |.Q%=Z:O%=0:."IND|
00001900  45 4c 22 0d 0a 0a 09 dd  f2 43 41 54 0d 0a 14 0c  |EL"......CAT....|
00001910  46 49 4c 45 24 3d 46 24  0d 0a 1e 05 db 0d 0a 28  |FILE$=F$.......(|
00001920  06 f1 27 0d 0a 32 08 2a  43 41 54 0d 0a 3c 2c f1  |..'..2.*CAT..<,.|
00001930  27 27 22 84 88 3e 3e 20  20 50 52 45 53 53 20 41  |''"..>>  PRESS A|
00001940  4e 59 20 4b 45 59 20 54  4f 20 43 4f 4e 54 49 4e  |NY KEY TO CONTIN|
00001950  55 45 20 20 3c 3c 22 0d  0a 46 0b f2 57 41 49 54  |UE  <<"..F..WAIT|
00001960  3a e1 0d 0a 50 08 dd f2  50 31 0d 0a 5a 0d 46 49  |:...P...P1..Z.FI|
00001970  4c 45 25 3d 54 2b 31 0d  0a 64 14 cf 23 43 48 3d  |LE%=T+1..d..#CH=|
00001980  28 46 49 4c 45 25 2d 31  29 2a 46 0d 0a 6e 18 f1  |(FILE%-1)*F..n..|
00001990  23 43 48 2c 22 2a 22 2c  22 2a 22 2c 44 45 4c 2c  |#CH,"*","*",DEL,|
000019a0  50 52 4f 0d 0a 78 05 e1  0d 0a 82 07 dd f2 50 0d  |PRO..x........P.|
000019b0  0a 8c 0d 46 49 4c 45 25  3d 54 2b 31 0d 0a 96 14  |...FILE%=T+1....|
000019c0  cf 23 43 48 3d 28 46 49  4c 45 25 2d 31 29 2a 46  |.#CH=(FILE%-1)*F|
000019d0  0d 0a a0 17 e8 23 43 48  2c 51 24 2c 51 31 24 2c  |.....#CH,Q$,Q1$,|
000019e0  44 45 4c 2c 50 52 4f 0d  0a aa 05 e1 0d 0a b4 08  |DEL,PRO.........|
000019f0  dd f2 44 52 0d 0a be 05  db 0d 0a c8 2e e8 8a 32  |..DR...........2|
00001a00  2c 31 30 29 22 86 45 4e  54 45 52 20 44 52 49 56  |,10)".ENTER DRIV|
00001a10  45 20 54 4f 20 42 45 20  43 41 54 41 4c 4f 47 55  |E TO BE CATALOGU|
00001a20  45 44 84 22 3b 44 52 0d  0a d2 0e e7 44 52 3e 34  |ED.";DR.....DR>4|
00001a30  8c 8d 74 7e 4a 0d 0a dc  4e f1 8a 32 2c 31 30 29  |..t~J...N..2,10)|
00001a40  22 84 50 55 54 20 44 49  53 43 20 54 4f 20 43 41  |".PUT DISC TO CA|
00001a50  54 41 4c 4f 47 55 45 20  49 4e 20 44 52 49 56 45  |TALOGUE IN DRIVE|
00001a60  86 22 3b 44 52 3b 8a 37  2c 31 34 29 22 84 89 41  |.";DR;.7,14)"..A|
00001a70  4e 59 20 4b 45 59 20 54  4f 20 43 4f 4e 54 49 4e  |NY KEY TO CONTIN|
00001a80  55 45 22 0d 0a e6 09 f2  57 41 49 54 0d 0a f0 11  |UE".....WAIT....|
00001a90  e7 44 52 3d 31 8c 2a 44  52 49 56 45 31 0d 0a fa  |.DR=1.*DRIVE1...|
00001aa0  11 e7 44 52 3d 32 8c 2a  44 52 49 56 45 32 0d 0b  |..DR=2.*DRIVE2..|
00001ab0  04 11 e7 44 52 3d 33 8c  2a 44 52 49 56 45 33 0d  |...DR=3.*DRIVE3.|
00001ac0  0b 0e 10 f2 43 41 54 3a  2a 44 52 49 56 45 30 0d  |....CAT:*DRIVE0.|
00001ad0  0b 18 0e e7 44 52 3d 30  8c 8d 54 76 4b 0d 0b 22  |....DR=0..TvK.."|
00001ae0  0e e7 44 52 3d 32 8c 8d  54 76 4b 0d 0b 2c 05 e1  |..DR=2..TvK..,..|
00001af0  0d 0b 36 08 f2 45 3a e1  0d 0b 40 09 dd f2 65 72  |..6..E:...@...er|
00001b00  72 0d 0b 4a 05 db 0d 0b  54 1a f1 22 84 2a 2a 20  |r..J....T..".** |
00001b10  45 52 52 4f 52 20 2a 2a  86 22 3b 9f 27 27 3a f6  |ERROR **.";.'':.|
00001b20  0d 0b 5e 1d f1 27 27 22  86 41 4e 59 20 4b 45 59  |..^..''".ANY KEY|
00001b30  20 54 4f 20 43 4f 4e 54  49 4e 55 45 22 0d 0b 68  | TO CONTINUE"..h|
00001b40  0c d9 23 30 3a 5a 24 3d  be 0d 0b 72 05 e1 0d 0b  |..#0:Z$=...r....|
00001b50  7c 07 dd f2 43 0d 0b 86  15 ef 32 33 3b 38 32 30  ||...C.....23;820|
00001b60  32 3b 30 3b 30 3b 30 3b  3a e1 0d 0b 90 07 dd f2  |2;0;0;0;:.......|
00001b70  44 0d 0b 9a 05 db 0d 0b  a4 38 f1 8a 32 2c 39 29  |D........8..2,9)|
00001b80  22 86 44 41 54 41 20 46  49 4c 45 84 22 3b 46 49  |".DATA FILE.";FI|
00001b90  4c 45 24 3b 22 86 48 41  53 84 22 3b 44 45 4c 2b  |LE$;".HAS.";DEL+|
00001ba0  50 52 4f 3b 22 86 52 45  43 4f 52 44 53 22 0d 0b  |PRO;".RECORDS"..|
00001bb0  ae 21 f1 8a 37 2c 31 32  29 22 84 30 86 54 4f 20  |.!..7,12)".0.TO |
00001bc0  52 45 54 55 52 4e 20 54  4f 20 4d 45 4e 55 22 0d  |RETURN TO MENU".|
00001bd0  0b b8 35 e8 8a 30 2c 31  30 29 22 86 53 54 41 52  |..5..0,10)".STAR|
00001be0  54 20 4c 49 53 54 20 46  52 4f 4d 20 57 48 41 54  |T LIST FROM WHAT|
00001bf0  20 52 45 43 4f 52 44 20  4e 55 4d 42 45 52 84 22  | RECORD NUMBER."|
00001c00  3b 53 54 25 0d 0b c2 15  e7 53 54 25 3c 31 8c 53  |;ST%.....ST%<1.S|
00001c10  53 3d 31 3a e5 8d 64 60  4b 0d 0b cc 12 e7 53 54  |S=1:..d`K.....ST|
00001c20  25 3e 50 52 4f 20 8c 8d  74 5a 4b 0d 0b d6 09 53  |%>PRO ..tZK....S|
00001c30  53 53 3d 31 0d 0b e0 05  e1 0d 0b ea 07 dd f2 45  |SS=1...........E|
00001c40  0d 0b f4 50 db 3a f1 8a  33 2c 31 30 29 22 86 50  |...P.:..3,10)".P|
00001c50  55 54 20 59 4f 55 52 20  44 41 54 41 20 44 49 53  |UT YOUR DATA DIS|
00001c60  43 20 49 4e 20 44 52 49  56 45 84 30 22 3b 8a 38  |C IN DRIVE.0";.8|
00001c70  2c 31 36 29 22 86 41 4e  59 20 4b 45 59 20 54 4f  |,16)".ANY KEY TO|
00001c80  20 43 4f 4e 54 49 4e 55  45 22 3a f2 57 41 49 54  | CONTINUE":.WAIT|
00001c90  0d 0b fe 05 e1 0d 0c 08  0a dd f2 46 49 4c 45 0d  |...........FILE.|
00001ca0  0c 12 08 5a 3d 51 25 0d  0c 1c 22 e7 5a 3d 31 8c  |...Z=Q%...".Z=1.|
00001cb0  44 46 24 3d 22 47 41 4d  45 53 22 3a 46 49 4c 45  |DF$="GAMES":FILE|
00001cc0  24 3d 22 47 41 4d 45 53  22 0d 0c 26 28 e7 5a 3d  |$="GAMES"..&(.Z=|
00001cd0  32 8c 44 46 24 3d 22 41  44 56 45 4e 54 55 52 45  |2.DF$="ADVENTURE|
00001ce0  53 22 3a 46 49 4c 45 24  3d 22 41 44 56 45 4e 54  |S":FILE$="ADVENT|
00001cf0  22 0d 0c 30 22 e7 5a 3d  33 8c 44 46 24 3d 22 4d  |"..0".Z=3.DF$="M|
00001d00  55 53 49 43 22 3a 46 49  4c 45 24 3d 22 4d 55 53  |USIC":FILE$="MUS|
00001d10  49 43 22 0d 0c 3a 28 e7  5a 3d 34 8c 44 46 24 3d  |IC"..:(.Z=4.DF$=|
00001d20  22 45 44 55 43 41 54 49  4f 4e 22 3a 46 49 4c 45  |"EDUCATION":FILE|
00001d30  24 3d 22 45 44 55 43 41  54 45 22 0d 0c 44 25 e7  |$="EDUCATE"..D%.|
00001d40  5a 3d 35 8c 44 46 24 3d  22 55 54 49 4c 49 54 49  |Z=5.DF$="UTILITI|
00001d50  45 53 22 3a 46 49 4c 45  24 3d 22 55 54 49 4c 22  |ES":FILE$="UTIL"|
00001d60  0d 0c 4e 25 e7 5a 3d 36  8c 44 46 24 3d 22 53 50  |..N%.Z=6.DF$="SP|
00001d70  41 52 45 20 31 22 3a 46  49 4c 45 24 3d 22 53 50  |ARE 1":FILE$="SP|
00001d80  41 52 45 31 22 0d 0c 58  25 e7 5a 3d 37 8c 44 46  |ARE1"..X%.Z=7.DF|
00001d90  24 3d 22 53 50 41 52 45  20 32 22 3a 46 49 4c 45  |$="SPARE 2":FILE|
00001da0  24 3d 22 53 50 41 52 45  32 22 0d 0c 62 0b 54 3d  |$="SPARE2"..b.T=|
00001db0  33 30 30 3a e1 0d 0c 6c  0c dd f2 43 48 41 4e 47  |300:...l...CHANG|
00001dc0  45 0d 0c 76 05 db 0d 0c  80 17 f1 27 27 8a 31 32  |E..v.......''.12|
00001dd0  29 22 84 31 86 2d 20 47  41 4d 45 53 22 0d 0c 8a  |)".1.- GAMES"...|
00001de0  1b f1 27 8a 31 32 29 22  84 32 86 2d 20 41 44 56  |..'.12)".2.- ADV|
00001df0  45 4e 54 55 52 45 53 22  0d 0c 94 16 f1 27 8a 31  |ENTURES".....'.1|
00001e00  32 29 22 84 33 86 2d 20  4d 55 53 49 43 22 0d 0c  |2)".3.- MUSIC"..|
00001e10  9e 1a f1 27 8a 31 32 29  22 84 34 86 2d 20 45 44  |...'.12)".4.- ED|
00001e20  55 43 41 54 49 4f 4e 22  0d 0c a8 1a f1 27 8a 31  |UCATION".....'.1|
00001e30  32 29 22 84 35 86 2d 20  55 54 49 4c 49 54 49 45  |2)".5.- UTILITIE|
00001e40  53 22 0d 0c b2 18 f1 27  8a 31 32 29 22 84 36 86  |S".....'.12)".6.|
00001e50  2d 20 53 50 41 52 45 20  31 22 0d 0c bc 18 f1 27  |- SPARE 1".....'|
00001e60  8a 31 32 29 22 84 37 86  2d 20 53 50 41 52 45 20  |.12)".7.- SPARE |
00001e70  32 22 0d 0c c6 0b f1 27  27 22 84 9d 22 0d 0c d0  |2".....''".."...|
00001e80  2c f1 22 86 9d 84 20 20  20 45 4e 54 45 52 20 44  |,."...   ENTER D|
00001e90  41 54 41 20 46 49 4c 45  20 54 4f 20 42 45 20 57  |ATA FILE TO BE W|
00001ea0  4f 52 4b 45 44 20 4f 4e  22 0d 0c da 09 f1 22 84  |ORKED ON".....".|
00001eb0  9d 22 0d 0c e4 07 5a 3d  a5 0d 0c ee 13 e7 5a 3c  |."....Z=......Z<|
00001ec0  34 39 84 5a 3e 35 35 8c  8d 64 64 4c 0d 0c f8 10  |49.Z>55..ddL....|
00001ed0  51 25 3d 5a 2d 34 38 3a  5a 3d 51 25 0d 0d 02 0b  |Q%=Z-48:Z=Q%....|
00001ee0  f2 46 49 4c 45 3a e1 0d  ff                       |.FILE:...|
00001ee9

06-05-88/WDF.m0

06-05-88/WDF.m1

06-05-88/WDF.m2

06-05-88/WDF.m4

06-05-88/WDF.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .