database

Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » database

database

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 » Personal collection » Commodore disks » disk52a2_c16_progs.d64
Filename:	database
Read OK:	✔
File size:	08AB bytes
Load address:	1001
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Commodore disks » disk52a2_c16_progs.d64 » database
Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav » database prog

File contents

    10 GOSUB 830
    20 LET T$="MAIN MENU":GOSUB 710
    30 PRINT:PRINT"1. LOAD FILE":PRINT"2. MAKE NEW FILE"
    40 PRINT"3. MAKE ENTRY":PRINT"4. VIEW ENTRIES"
    50 PRINT"5. ALTER ENTRY":PRINT"6. SAVE FILE"
    60 PRINT"7. SEARCH FILE":PRINT:PRINT"SELECT CHOICE"
    70 GOSUB 750::LET CH=KP-48
    80 IF CH<1 OR CH>ML THEN GOTO 20
    90 ON CH GOSUB 500,780,110,460,160,500,180
   100 GOTO 20
   110 IF LAST=NR-2 THEN RETURN
   120 LET LAST=LAST+1
   130 LET T$="MAKE ENTRY":GOSUB 710
   140 LET TP=LAST:GOSUB 740
   150 LET IP=LAST:GOSUB 680:RETURN
   160 LET T$="ALTER ENTRY":GOSUB 710:GOSUB740
   170 LET IP=TP:GOSUB 680:RETURN
   180 LET T$="SEARCH FILE":GOSUB 710
   190 FOR I=1 TO LP:LET P(I)=0:LET R$((NR-1)*LP+I)=""
   200 PRINT TAB(1);I;TAB(6);R$(I):NEXT I
   210 PRINT:PRINT "SUBJECT OF SEARCH:"
   220 LET A$="":INPUT A$:IF A$<"1" OR A$>"4" THEN GOTO 250
   230 PRINT R$(VAL(A$));":";:INPUT W$
   240 LET R$((NR-1)*LP+VAL(A$))=W$+" ":IF W$>"" THEN GOTO 220
   250 PRINT "INFO REQUIRED:"
   260 LET A$="":INPUT A$:IF A$<"1" OR A$>"4" THEN GOTO 280
   270 LET P(VAL(A$))=1:GOTO 260
   280 LET T$="SEARCHING FOR:":GOSUB 710
   290 FOR I=1 TO 4
   300 IF R$((NR-1)*LP+I)>"" THEN PRINT TAB(0);R$(I);TAB(12);R$((NR-1)*LP+I)
   310 NEXT I:PRINT:PRINT
   320 LET C=0:FORI=1 TO LAST:LET FL=0
   330 FOR J=1 TO LP
   340 LET S$=R$(I*LP+J)
   350 LET F$=R$((NR-1)*LP+J)
   360 IF F$="" THEN GOTO 420
   370 LET F=0:LET LF=(LEN(S$)-LF)+1
   380 FOR K=1 TO LS
   390 IF MID$(S$,K,LF)=F$ THEN LET F=1:LETK=LS
   400 NEXT K
   410 IF F=0 THEN LET FL=1:LET J=LP
   420 NEXT J:IF FL=0 THEN GOSUB 620
   430 NEXT I
   440 PRINT:PRINT"SEARCH OVER":PRINT"FOUND ";C;" TIMES"
   450 GOSUB 750:RETURN
   460 LET TP=1:LET T$="VIEW ENTRIES"
   470 GOSUB 710:GOSUB 740:GOSUB 650:GOSUB 750
   480 IF KP=32 AND TP<LAST THEN LET TP=TP+1:GOTO 470
   490 RETURN
   500 LET T$="SAVE FILE":IF CH=1 THEN LET T$="LOAD FILE"
   510 GOSUB 710:PRINT"FILE NAME:";:INPUT F$
   520 IF CH=6 THEN LET R$((LAST+1)*LP+1)="**"
   530 IF CH=6 THEN OPEN 1,1,1,F$
   540 IF CH=1 THEN OPEN 1,1,0,F$
   550 LET I=1
   560 IF CH=6 THEN PRINT#1,R$(I)
   570 IF CH=1 THEN INPUT#1,R$(I)
   580 IF R$(I)<>"**" THEN LET I=I+1:GOTO 560
   590 CLOSE 1
   600 IF CH=1 THEN LET LAST=INT(I/LP)-1
   610 RETURN
   620 PRINT"ENTRY ";I;:LET C=C+1:FOR K=1 TO LP
   630 IF P(K)=1 THEN PRINT TAB(12);R$(I*LP+K)
   640 NEXT K:PRINT:PRINT"PRESS SPACE":PRINT:GOSUB 750:RETURN
   650 FOR K=1 TO LP
   660 PRINT TAB(1):R$(K);TAB(15);R$(TP*LP+K)
   670 NEXT K:RETURN
   680 FOR I=1 TO LP:PRINTR$(I)
   690 LET A$="":INPUT A$:IF A$="" THEN LET A$="-"
   700 LET R$(IP*LP+I)=A$+" ":NEXT I:RETURN
   710 SCNCLR:PRINT:PRINT
   720 PRINT"DATABASE":PRINT"--------":PRINT
   730 PRINTT$:PRINT:RETURN
   740 PRINT:PRINT"NOW ON ENTRY ";TP:PRINT:RETURN
   750 GET I$
   760 IF I$="" THEN GOTO 750
   770 LET KP=ASC(I$):RETURN
   780 LET T$="MAKE NEW FILE":GOSUB 710
   790 PRINT"TYPE IN HEADINGS":PRINT:FOR I=1 TO LP
   800 PRINT"HEADING ";I:INPUT A$
   810 IF LEN(A$)>10 THEN PRINT"TOO LONG":GOTO 800
   820 LET R$(I)=A$:NEXT I:GOSUB 850:RETURN
   830 LET NR=30:LET LP=4:LET ML=7
   840 DIM R$(NR*LP),P(LP)
   850 LET LAST=0:LET TP=1:RETURN


� 830&� T$�"MAIN MENU":� 710P�:�"1. LOAD FILE":�"2. MAKE NEW FILE"x(�"3. MAKE ENTRY":�"4. VIEW ENTRIES"�2�"5. ALTER ENTRY":�"6. SAVE FILE"�<�"7. SEARCH FILE":�:�"SELECT CHOICE"�F� 750::� CH�KP�48�P� CH�1 � CH�ML � � 20Z� CH � 500,780,110,460,160,500,180'd� 20;n� LAST�NR�2 � �Mx� LAST�LAST�1i�� T$�"MAKE ENTRY":� 710}�� TP�LAST:� 740��� IP�LAST:� 680:���� T$�"ALTER ENTRY":� 710:�740��� IP�TP:� 680:���� T$�"SEARCH FILE":� 710�� I�1 � LP:� P(I)�0:� R$((NR�1)�LP�I)�""-�� �1);I;�6);R$(I):� IJ��:� "SUBJECT OF SEARCH:"u�� A$�"":� A$:� A$�"1" � A$�"4" � � 250��� R$(�(A$));":";:� W$��� R$((NR�1)�LP��(A$))�W$�" ":� W$�"" � � 220��� "INFO REQUIRED:"� A$�"":� A$:� A$�"1" � A$�"4" � � 280� P(�(A$))�1:� 2609� T$�"SEARCHING FOR:":� 710G"� I�1 � 4�,� R$((NR�1)�LP�I)�"" � � �0);R$(I);�12);R$((NR�1)�LP�I)�6� I:�:��@� C�0:�I�1 � LAST:� FL�0�J� J�1 � LP�T� S$�R$(I�LP�J)�^� F$�R$((NR�1)�LP�J)�h� F$�"" � � 420r� F�0:� LF�(�(S$)�LF)�1'|� K�1 � LSI�� �(S$,K,LF)�F$ � � F�1:�K�LSQ�� Kk�� F�0 � � FL�1:� J�LP��� J:� FL�0 � � 620��� I���:�"SEARCH OVER":�"FOUND ";C;" TIMES"��� 750:���� TP�1:� T$�"VIEW ENTRIES"��� 710:� 740:� 650:� 750#�� KP�32 � TP�LAST � � TP�TP�1:� 470)��X�� T$�"SAVE FILE":� CH�1 � � T$�"LOAD FILE"v�� 710:�"FILE NAME:";:� F$�� CH�6 � � R$((LAST�1)�LP�1)�"**"�� CH�6 � � 1,1,1,F$�� CH�1 � � 1,1,0,F$�&� I�1�0� CH�6 � �1,R$(I):� CH�1 � �1,R$(I)$D� R$(I)��"**" � � I�I�1:� 560,N� 1JX� CH�1 � � LAST��(I�LP)�1Pb�tl�"ENTRY ";I;:� C�C�1:� K�1 � LP�v� P(K)�1 � � �12);R$(I�LP�K)��� K:�:�"PRESS SPACE":�:� 750:���� K�1 � LP��� �1):R$(K);�15);R$(TP�LP�K)��� K:��� I�1 � LP:�R$(I),�� A$�"":� A$:� A$�"" � � A$�"-"K�� R$(IP�LP�I)�A$�" ":� I:�U��:�:�s��"DATABASE":�"--------":���T$:�:����:�"NOW ON ENTRY ";TP:�:���� I$��� I$�"" � � 750�� KP��(I$):��� T$�"MAKE NEW FILE":� 710�"TYPE IN HEADINGS":�:� I�1 � LP& �"HEADING ";I:� A$I*� �(A$)�10 � �"TOO LONG":� 800d4� R$(I)�A$:� I:� 850:�~>� NR�30:� LP�4:� ML�7�H� R$(NR�LP),P(LP)�R� LAST�0:� TP�1:�

KPJ@. 830@&PT@. t$."main menu":. 710@pP.@.:."1. load file":."2. make new file"@XP(@."3. make entry":."4. view entries"@.P2@."5. alter entry":."6. save file"@.P<@."7. search file":.:."select choice"@.Pf@. 750::. ch.kp.48@.Pp@. ch.1 . ch.ml . . 20@.Qz@. ch . 500,780,110,460,160,500,180@'QD@. 20@;QN@. last.nr.2 . .@mQX@. last.last.1@IQ.@. t$."make entry":. 710@.Q.@. tp.last:. 740@.Q.@. ip.last:. 680:.@.Q.@. t$."alter entry":. 710:.740@.Q.@. ip.tp:. 680:.@.Q.@. t$."search file":. 710@SR.@. i.1 . lp:. p(i).0:. r$((nr.1).lp.i).""@-R.@. .1);i;.6);r$(i):. i@jR.@.:. "subject of search:"@UR.@. a$."":. a$:. a$."1" . a$."4" . . 250@.R.@. r$(.(a$));":";:. w$@.R.@. r$((nr.1).lp..(a$)).w$." ":. w$."" . . 220@.R.@. "info required:"@BSDA. a$."":. a$:. a$."1" . a$."4" . . 280@YSNA. p(.(a$)).1:. 260@9SXA. t$."searching for:":. 710@gS"A. i.1 . 4@.S,A. r$((nr.1).lp.i)."" . . .0);r$(i);.12);r$((nr.1).lp.i)@.S6A. i:.:.@.S@A. c.0:.i.1 . last:. fl.0@.SjA. j.1 . lp@.StA. s$.r$(i.lp.j)@.S.A. f$.r$((nr.1).lp.j)@.SHA. f$."" . . 420@XTRA. f.0:. lf.(.(s$).lf).1@'T.A. k.1 . ls@iT.A. .(s$,k,lf).f$ . . f.1:.k.ls@qT.A. k@KT.A. f.0 . . fl.1:. j.lp@.T.A. j:. fl.0 . . 620@.T.A. i@.T.A.:."search over":."found ";c;" times"@.T.A. 750:.@.T.A. tp.1:. t$."view entries"@.T.A. 710:. 740:. 650:. 750@#U.A. kp.32 . tp.last . . tp.tp.1:. 470@)U.A.@xU.A. t$."save file":. ch.1 . . t$."load file"@VU.A. 710:."file name:";:. f$@.UHB. ch.6 . . r$((last.1).lp.1)."**"@.URB. ch.6 . . 1,1,1,f$@.U£B. ch.1 . . 1,1,0,f$@.U&B. i.1@.U0B. ch.6 . .1,r$(i)@BV:B. ch.1 . .1,r$(i)@$VdB. r$(i).."**" . . i.i.1:. 560@,VnB. 1@jVxB. ch.1 . . last..(i.lp).1@pVBB.@TVLB."entry ";i;:. c.c.1:. k.1 . lp@.VVB. p(k).1 . . .12);r$(i.lp.k)@.V.B. k:.:."press space":.:. 750:.@.V.B. k.1 . lp@.V.B. .1):r$(k);.15);r$(tp.lp.k)@.V.B. k:.@HW.B. i.1 . lp:.r$(i)@,W.B. a$."":. a$:. a$."" . . a$."-"@kW.B. r$(ip.lp.i).a$." ":. i:.@uW.B.:.:.@SW.B."database":."--------":.@.W.B.t$:.:.@.W.B.:."now on entry ";tp:.:.@.W.B. i$@.W.B. i$."" . . 750@.WBC. kp..(i$):.@.WLC. t$."make new file":. 710@OXVC."type in headings":.:. i.1 . lp@&X C."heading ";i:. a$@iX*C. .(a$).10 . ."too long":. 800@DX4C. r$(i).a$:. i:. 850:.@.X>C. nr.30:. lp.4:. ml.7@.XhC. r$(nr.lp),p(lp)@.XrC. last.0:. tp.1:.@@@

00000000  0b 10 0a 00 8d 20 38 33  30 00 26 10 14 00 88 20  |..... 830.&.... |
00000010  54 24 b2 22 4d 41 49 4e  20 4d 45 4e 55 22 3a 8d  |T$."MAIN MENU":.|
00000020  20 37 31 30 00 50 10 1e  00 99 3a 99 22 31 2e 20  | 710.P....:."1. |
00000030  4c 4f 41 44 20 46 49 4c  45 22 3a 99 22 32 2e 20  |LOAD FILE":."2. |
00000040  4d 41 4b 45 20 4e 45 57  20 46 49 4c 45 22 00 78  |MAKE NEW FILE".x|
00000050  10 28 00 99 22 33 2e 20  4d 41 4b 45 20 45 4e 54  |.(.."3. MAKE ENT|
00000060  52 59 22 3a 99 22 34 2e  20 56 49 45 57 20 45 4e  |RY":."4. VIEW EN|
00000070  54 52 49 45 53 22 00 9e  10 32 00 99 22 35 2e 20  |TRIES"...2.."5. |
00000080  41 4c 54 45 52 20 45 4e  54 52 59 22 3a 99 22 36  |ALTER ENTRY":."6|
00000090  2e 20 53 41 56 45 20 46  49 4c 45 22 00 c7 10 3c  |. SAVE FILE"...<|
000000a0  00 99 22 37 2e 20 53 45  41 52 43 48 20 46 49 4c  |.."7. SEARCH FIL|
000000b0  45 22 3a 99 3a 99 22 53  45 4c 45 43 54 20 43 48  |E":.:."SELECT CH|
000000c0  4f 49 43 45 22 00 dd 10  46 00 8d 20 37 35 30 3a  |OICE"...F.. 750:|
000000d0  3a 88 20 43 48 b2 4b 50  ab 34 38 00 f7 10 50 00  |:. CH.KP.48...P.|
000000e0  8b 20 43 48 b3 31 20 b0  20 43 48 b1 4d 4c 20 a7  |. CH.1 . CH.ML .|
000000f0  20 89 20 32 30 00 1e 11  5a 00 91 20 43 48 20 8d  | . 20...Z.. CH .|
00000100  20 35 30 30 2c 37 38 30  2c 31 31 30 2c 34 36 30  | 500,780,110,460|
00000110  2c 31 36 30 2c 35 30 30  2c 31 38 30 00 27 11 64  |,160,500,180.'.d|
00000120  00 89 20 32 30 00 3b 11  6e 00 8b 20 4c 41 53 54  |.. 20.;.n.. LAST|
00000130  b2 4e 52 ab 32 20 a7 20  8e 00 4d 11 78 00 88 20  |.NR.2 . ..M.x.. |
00000140  4c 41 53 54 b2 4c 41 53  54 aa 31 00 69 11 82 00  |LAST.LAST.1.i...|
00000150  88 20 54 24 b2 22 4d 41  4b 45 20 45 4e 54 52 59  |. T$."MAKE ENTRY|
00000160  22 3a 8d 20 37 31 30 00  7d 11 8c 00 88 20 54 50  |":. 710.}.... TP|
00000170  b2 4c 41 53 54 3a 8d 20  37 34 30 00 93 11 96 00  |.LAST:. 740.....|
00000180  88 20 49 50 b2 4c 41 53  54 3a 8d 20 36 38 30 3a  |. IP.LAST:. 680:|
00000190  8e 00 b5 11 a0 00 88 20  54 24 b2 22 41 4c 54 45  |....... T$."ALTE|
000001a0  52 20 45 4e 54 52 59 22  3a 8d 20 37 31 30 3a 8d  |R ENTRY":. 710:.|
000001b0  37 34 30 00 c9 11 aa 00  88 20 49 50 b2 54 50 3a  |740...... IP.TP:|
000001c0  8d 20 36 38 30 3a 8e 00  e6 11 b4 00 88 20 54 24  |. 680:....... T$|
000001d0  b2 22 53 45 41 52 43 48  20 46 49 4c 45 22 3a 8d  |."SEARCH FILE":.|
000001e0  20 37 31 30 00 13 12 be  00 81 20 49 b2 31 20 a4  | 710...... I.1 .|
000001f0  20 4c 50 3a 88 20 50 28  49 29 b2 30 3a 88 20 52  | LP:. P(I).0:. R|
00000200  24 28 28 4e 52 ab 31 29  ac 4c 50 aa 49 29 b2 22  |$((NR.1).LP.I)."|
00000210  22 00 2d 12 c8 00 99 20  a3 31 29 3b 49 3b a3 36  |".-.... .1);I;.6|
00000220  29 3b 52 24 28 49 29 3a  82 20 49 00 4a 12 d2 00  |);R$(I):. I.J...|
00000230  99 3a 99 20 22 53 55 42  4a 45 43 54 20 4f 46 20  |.:. "SUBJECT OF |
00000240  53 45 41 52 43 48 3a 22  00 75 12 dc 00 88 20 41  |SEARCH:".u.... A|
00000250  24 b2 22 22 3a 85 20 41  24 3a 8b 20 41 24 b3 22  |$."":. A$:. A$."|
00000260  31 22 20 b0 20 41 24 b1  22 34 22 20 a7 20 89 20  |1" . A$."4" . . |
00000270  32 35 30 00 8f 12 e6 00  99 20 52 24 28 c5 28 41  |250...... R$(.(A|
00000280  24 29 29 3b 22 3a 22 3b  3a 85 20 57 24 00 c0 12  |$));":";:. W$...|
00000290  f0 00 88 20 52 24 28 28  4e 52 ab 31 29 ac 4c 50  |... R$((NR.1).LP|
000002a0  aa c5 28 41 24 29 29 b2  57 24 aa 22 20 22 3a 8b  |..(A$)).W$." ":.|
000002b0  20 57 24 b1 22 22 20 a7  20 89 20 32 32 30 00 d7  | W$."" . . 220..|
000002c0  12 fa 00 99 20 22 49 4e  46 4f 20 52 45 51 55 49  |.... "INFO REQUI|
000002d0  52 45 44 3a 22 00 02 13  04 01 88 20 41 24 b2 22  |RED:"...... A$."|
000002e0  22 3a 85 20 41 24 3a 8b  20 41 24 b3 22 31 22 20  |":. A$:. A$."1" |
000002f0  b0 20 41 24 b1 22 34 22  20 a7 20 89 20 32 38 30  |. A$."4" . . 280|
00000300  00 19 13 0e 01 88 20 50  28 c5 28 41 24 29 29 b2  |...... P(.(A$)).|
00000310  31 3a 89 20 32 36 30 00  39 13 18 01 88 20 54 24  |1:. 260.9.... T$|
00000320  b2 22 53 45 41 52 43 48  49 4e 47 20 46 4f 52 3a  |."SEARCHING FOR:|
00000330  22 3a 8d 20 37 31 30 00  47 13 22 01 81 20 49 b2  |":. 710.G.".. I.|
00000340  31 20 a4 20 34 00 83 13  2c 01 8b 20 52 24 28 28  |1 . 4...,.. R$((|
00000350  4e 52 ab 31 29 ac 4c 50  aa 49 29 b1 22 22 20 a7  |NR.1).LP.I)."" .|
00000360  20 99 20 a3 30 29 3b 52  24 28 49 29 3b a3 31 32  | . .0);R$(I);.12|
00000370  29 3b 52 24 28 28 4e 52  ab 31 29 ac 4c 50 aa 49  |);R$((NR.1).LP.I|
00000380  29 00 8f 13 36 01 82 20  49 3a 99 3a 99 00 ac 13  |)...6.. I:.:....|
00000390  40 01 88 20 43 b2 30 3a  81 49 b2 31 20 a4 20 4c  |@.. C.0:.I.1 . L|
000003a0  41 53 54 3a 88 20 46 4c  b2 30 00 bb 13 4a 01 81  |AST:. FL.0...J..|
000003b0  20 4a b2 31 20 a4 20 4c  50 00 cf 13 54 01 88 20  | J.1 . LP...T.. |
000003c0  53 24 b2 52 24 28 49 ac  4c 50 aa 4a 29 00 e8 13  |S$.R$(I.LP.J)...|
000003d0  5e 01 88 20 46 24 b2 52  24 28 28 4e 52 ab 31 29  |^.. F$.R$((NR.1)|
000003e0  ac 4c 50 aa 4a 29 00 fc  13 68 01 8b 20 46 24 b2  |.LP.J)...h.. F$.|
000003f0  22 22 20 a7 20 89 20 34  32 30 00 18 14 72 01 88  |"" . . 420...r..|
00000400  20 46 b2 30 3a 88 20 4c  46 b2 28 c3 28 53 24 29  | F.0:. LF.(.(S$)|
00000410  ab 4c 46 29 aa 31 00 27  14 7c 01 81 20 4b b2 31  |.LF).1.'.|.. K.1|
00000420  20 a4 20 4c 53 00 49 14  86 01 8b 20 ca 28 53 24  | . LS.I.... .(S$|
00000430  2c 4b 2c 4c 46 29 b2 46  24 20 a7 20 88 20 46 b2  |,K,LF).F$ . . F.|
00000440  31 3a 88 4b b2 4c 53 00  51 14 90 01 82 20 4b 00  |1:.K.LS.Q.... K.|
00000450  6b 14 9a 01 8b 20 46 b2  30 20 a7 20 88 20 46 4c  |k.... F.0 . . FL|
00000460  b2 31 3a 88 20 4a b2 4c  50 00 82 14 a4 01 82 20  |.1:. J.LP...... |
00000470  4a 3a 8b 20 46 4c b2 30  20 a7 20 8d 20 36 32 30  |J:. FL.0 . . 620|
00000480  00 8a 14 ae 01 82 20 49  00 b4 14 b8 01 99 3a 99  |...... I......:.|
00000490  22 53 45 41 52 43 48 20  4f 56 45 52 22 3a 99 22  |"SEARCH OVER":."|
000004a0  46 4f 55 4e 44 20 22 3b  43 3b 22 20 54 49 4d 45  |FOUND ";C;" TIME|
000004b0  53 22 00 c0 14 c2 01 8d  20 37 35 30 3a 8e 00 df  |S"...... 750:...|
000004c0  14 cc 01 88 20 54 50 b2  31 3a 88 20 54 24 b2 22  |.... TP.1:. T$."|
000004d0  56 49 45 57 20 45 4e 54  52 49 45 53 22 00 fb 14  |VIEW ENTRIES"...|
000004e0  d6 01 8d 20 37 31 30 3a  8d 20 37 34 30 3a 8d 20  |... 710:. 740:. |
000004f0  36 35 30 3a 8d 20 37 35  30 00 23 15 e0 01 8b 20  |650:. 750.#.... |
00000500  4b 50 b2 33 32 20 af 20  54 50 b3 4c 41 53 54 20  |KP.32 . TP.LAST |
00000510  a7 20 88 20 54 50 b2 54  50 aa 31 3a 89 20 34 37  |. . TP.TP.1:. 47|
00000520  30 00 29 15 ea 01 8e 00  58 15 f4 01 88 20 54 24  |0.).....X.... T$|
00000530  b2 22 53 41 56 45 20 46  49 4c 45 22 3a 8b 20 43  |."SAVE FILE":. C|
00000540  48 b2 31 20 a7 20 88 20  54 24 b2 22 4c 4f 41 44  |H.1 . . T$."LOAD|
00000550  20 46 49 4c 45 22 00 76  15 fe 01 8d 20 37 31 30  | FILE".v.... 710|
00000560  3a 99 22 46 49 4c 45 20  4e 41 4d 45 3a 22 3b 3a  |:."FILE NAME:";:|
00000570  85 20 46 24 00 9c 15 08  02 8b 20 43 48 b2 36 20  |. F$...... CH.6 |
00000580  a7 20 88 20 52 24 28 28  4c 41 53 54 aa 31 29 ac  |. . R$((LAST.1).|
00000590  4c 50 aa 31 29 b2 22 2a  2a 22 00 b4 15 12 02 8b  |LP.1)."**"......|
000005a0  20 43 48 b2 36 20 a7 20  9f 20 31 2c 31 2c 31 2c  | CH.6 . . 1,1,1,|
000005b0  46 24 00 cc 15 1c 02 8b  20 43 48 b2 31 20 a7 20  |F$...... CH.1 . |
000005c0  9f 20 31 2c 31 2c 30 2c  46 24 00 d6 15 26 02 88  |. 1,1,0,F$...&..|
000005d0  20 49 b2 31 00 ec 15 30  02 8b 20 43 48 b2 36 20  | I.1...0.. CH.6 |
000005e0  a7 20 98 31 2c 52 24 28  49 29 00 02 16 3a 02 8b  |. .1,R$(I)...:..|
000005f0  20 43 48 b2 31 20 a7 20  84 31 2c 52 24 28 49 29  | CH.1 . .1,R$(I)|
00000600  00 24 16 44 02 8b 20 52  24 28 49 29 b3 b1 22 2a  |.$.D.. R$(I).."*|
00000610  2a 22 20 a7 20 88 20 49  b2 49 aa 31 3a 89 20 35  |*" . . I.I.1:. 5|
00000620  36 30 00 2c 16 4e 02 a0  20 31 00 4a 16 58 02 8b  |60.,.N.. 1.J.X..|
00000630  20 43 48 b2 31 20 a7 20  88 20 4c 41 53 54 b2 b5  | CH.1 . . LAST..|
00000640  28 49 ad 4c 50 29 ab 31  00 50 16 62 02 8e 00 74  |(I.LP).1.P.b...t|
00000650  16 6c 02 99 22 45 4e 54  52 59 20 22 3b 49 3b 3a  |.l.."ENTRY ";I;:|
00000660  88 20 43 b2 43 aa 31 3a  81 20 4b b2 31 20 a4 20  |. C.C.1:. K.1 . |
00000670  4c 50 00 95 16 76 02 8b  20 50 28 4b 29 b2 31 20  |LP...v.. P(K).1 |
00000680  a7 20 99 20 a3 31 32 29  3b 52 24 28 49 ac 4c 50  |. . .12);R$(I.LP|
00000690  aa 4b 29 00 b8 16 80 02  82 20 4b 3a 99 3a 99 22  |.K)...... K:.:."|
000006a0  50 52 45 53 53 20 53 50  41 43 45 22 3a 99 3a 8d  |PRESS SPACE":.:.|
000006b0  20 37 35 30 3a 8e 00 c7  16 8a 02 81 20 4b b2 31  | 750:....... K.1|
000006c0  20 a4 20 4c 50 00 e8 16  94 02 99 20 a3 31 29 3a  | . LP...... .1):|
000006d0  52 24 28 4b 29 3b a3 31  35 29 3b 52 24 28 54 50  |R$(K);.15);R$(TP|
000006e0  ac 4c 50 aa 4b 29 00 f2  16 9e 02 82 20 4b 3a 8e  |.LP.K)...... K:.|
000006f0  00 08 17 a8 02 81 20 49  b2 31 20 a4 20 4c 50 3a  |...... I.1 . LP:|
00000700  99 52 24 28 49 29 00 2c  17 b2 02 88 20 41 24 b2  |.R$(I).,.... A$.|
00000710  22 22 3a 85 20 41 24 3a  8b 20 41 24 b2 22 22 20  |"":. A$:. A$."" |
00000720  a7 20 88 20 41 24 b2 22  2d 22 00 4b 17 bc 02 88  |. . A$."-".K....|
00000730  20 52 24 28 49 50 ac 4c  50 aa 49 29 b2 41 24 aa  | R$(IP.LP.I).A$.|
00000740  22 20 22 3a 82 20 49 3a  8e 00 55 17 c6 02 e8 3a  |" ":. I:..U....:|
00000750  99 3a 99 00 73 17 d0 02  99 22 44 41 54 41 42 41  |.:..s...."DATABA|
00000760  53 45 22 3a 99 22 2d 2d  2d 2d 2d 2d 2d 2d 22 3a  |SE":."--------":|
00000770  99 00 7f 17 da 02 99 54  24 3a 99 3a 8e 00 9d 17  |.......T$:.:....|
00000780  e4 02 99 3a 99 22 4e 4f  57 20 4f 4e 20 45 4e 54  |...:."NOW ON ENT|
00000790  52 59 20 22 3b 54 50 3a  99 3a 8e 00 a6 17 ee 02  |RY ";TP:.:......|
000007a0  a1 20 49 24 00 ba 17 f8  02 8b 20 49 24 b2 22 22  |. I$...... I$.""|
000007b0  20 a7 20 89 20 37 35 30  00 cb 17 02 03 88 20 4b  | . . 750...... K|
000007c0  50 b2 c6 28 49 24 29 3a  8e 00 ea 17 0c 03 88 20  |P..(I$):....... |
000007d0  54 24 b2 22 4d 41 4b 45  20 4e 45 57 20 46 49 4c  |T$."MAKE NEW FIL|
000007e0  45 22 3a 8d 20 37 31 30  00 0f 18 16 03 99 22 54  |E":. 710......"T|
000007f0  59 50 45 20 49 4e 20 48  45 41 44 49 4e 47 53 22  |YPE IN HEADINGS"|
00000800  3a 99 3a 81 20 49 b2 31  20 a4 20 4c 50 00 26 18  |:.:. I.1 . LP.&.|
00000810  20 03 99 22 48 45 41 44  49 4e 47 20 22 3b 49 3a  | .."HEADING ";I:|
00000820  85 20 41 24 00 49 18 2a  03 8b 20 c3 28 41 24 29  |. A$.I.*.. .(A$)|
00000830  b1 31 30 20 a7 20 99 22  54 4f 4f 20 4c 4f 4e 47  |.10 . ."TOO LONG|
00000840  22 3a 89 20 38 30 30 00  64 18 34 03 88 20 52 24  |":. 800.d.4.. R$|
00000850  28 49 29 b2 41 24 3a 82  20 49 3a 8d 20 38 35 30  |(I).A$:. I:. 850|
00000860  3a 8e 00 7e 18 3e 03 88  20 4e 52 b2 33 30 3a 88  |:..~.>.. NR.30:.|
00000870  20 4c 50 b2 34 3a 88 20  4d 4c b2 37 00 94 18 48  | LP.4:. ML.7...H|
00000880  03 86 20 52 24 28 4e 52  ac 4c 50 29 2c 50 28 4c  |.. R$(NR.LP),P(L|
00000890  50 29 00 aa 18 52 03 88  20 4c 41 53 54 b2 30 3a  |P)...R.. LAST.0:|
000008a0  88 20 54 50 b2 31 3a 8e  00 00 00                 |. TP.1:....|
000008ab

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