00000000: 31 30 20 C4 C9 CD 20 C6 24 5B 31 35 30 5D 2C C4 |10 ... .$[150],.|
00000010: 24 5B 32 35 36 5D 2C CF 24 5B 31 30 5D 0D 0D 00 |$[256],.$[10]...|
00000020: 32 30 20 C9 CE D4 C5 C7 C5 D2 20 D4 28 31 30 29 |20 ....... .(10)|
00000030: 2C CC 28 31 30 29 2C C1 28 31 30 29 2C C2 28 31 |,.(10),.(10),.(1|
00000040: 30 29 0D 0D 00 33 30 20 CF 24 3D 22 20 20 20 20 |0)...30 .$=" |
00000050: 20 20 20 20 20 20 22 0D 0D 00 34 30 20 C3 CC C5 | "...40 ...|
00000060: C1 D2 20 40 20 C4 C9 D3 D0 20 22 20 20 20 20 20 |.. @ .... " |
00000070: 20 20 20 20 C6 C9 CC C5 20 D3 C5 D4 D5 D0 22 0D | .... .....".|
00000080: 0D 00 35 30 20 C4 C9 D3 D0 20 40 20 C4 C9 D3 D0 |..50 .... @ ....|
00000090: 20 40 20 C4 C9 D3 D0 20 22 C6 C9 CC C5 20 CE C1 | @ .... ".... ..|
000000A0: CD C5 22 3B 40 20 C9 CE D0 D5 D4 20 C6 31 24 40 |..";@ ..... .1$@|
000000B0: 20 C4 C9 D3 D0 0D 0D 00 36 30 20 C4 C9 D3 D0 20 | .......60 .... |
000000C0: 40 20 C4 C9 D3 D0 20 22 C8 CF D7 20 CD C1 CE D9 |@ .... "... ....|
000000D0: 20 C6 C9 C5 CC C4 D3 22 3B 40 20 C9 CE D0 D5 D4 | ......";@ .....|
000000E0: 20 C6 40 20 CC 39 3D 30 20 40 20 C6 CF D2 20 D8 | .@ .9=0 @ ... .|
000000F0: 3D 31 20 D4 CF 20 C6 20 40 20 C1 28 D8 29 2C C2 |=1 .. . @ .(.),.|
00000100: 28 D8 29 3D 30 0D 0D 00 37 30 20 C4 C9 D3 D0 20 |(.)=0...70 .... |
00000110: 40 20 C4 C9 D3 D0 20 22 C6 C9 C5 CC C4 20 22 3B |@ .... "..... ";|
00000120: D8 3B 22 D4 C9 D4 CC C5 22 3B 40 20 C9 CE D0 D5 |.;".....";@ ....|
00000130: D4 20 C1 24 0D 0D 00 38 30 20 C9 C6 20 CC C5 CE |. .$...80 .. ...|
00000140: 28 C1 24 29 3C 3D 31 35 20 D4 C8 C5 CE 20 31 30 |(.$)<=15 .... 10|
00000150: 30 0D 0D 00 39 30 20 C4 C9 D3 D0 20 22 D4 49 54 |0...90 .... ".IT|
00000160: 4C 45 20 3C 3D 20 31 35 20 43 48 41 52 53 2C 20 |LE <= 15 CHARS, |
00000170: 50 4C 45 41 53 45 21 22 20 40 20 C2 C5 C5 D0 20 |PLEASE!" @ .... |
00000180: 40 20 C7 CF D4 CF 20 37 30 0D 0D 00 31 30 30 20 |@ .... 70...100 |
00000190: C4 C9 D3 D0 20 40 20 C4 C9 D3 D0 20 22 C4 C1 D4 |.... @ .... "...|
000001A0: C1 20 D4 D9 D0 C5 20 28 CE 2C 24 2C C1 2C C5 29 |. .... (.,$,.,.)|
000001B0: 22 3B 40 20 C9 CE D0 D5 D4 20 D4 24 0D 0D 00 31 |";@ ..... .$...1|
000001C0: 31 30 20 D4 28 D8 29 3D D0 CF D3 28 22 C1 CE C5 |10 .(.)=...("...|
000001D0: 24 22 2C D5 D0 C3 24 28 D4 24 5B 31 2C 31 5D 29 |$",...$(.$[1,1])|
000001E0: 29 0D 0D 00 31 32 30 20 C9 C6 20 D4 28 D8 29 3D |)...120 .. .(.)=|
000001F0: 30 20 D4 C8 C5 CE 20 31 30 30 0D 0D 00 31 33 30 |0 .... 100...130|
00000200: 20 C9 C6 20 D4 28 D8 29 23 33 20 D4 C8 C5 CE 20 | .. .(.)#3 .... |
00000210: 31 38 30 0D 0D 00 31 34 30 20 C4 C9 D3 D0 20 22 |180...140 .... "|
00000220: D7 C8 C9 C3 C8 20 C6 C9 C5 CC C4 D3 20 D4 CF 20 |..... ...... .. |
00000230: D5 D3 C5 20 28 C1 2C C2 29 22 3B 40 20 C9 CE D0 |... (.,.)";@ ...|
00000240: D5 D4 20 C1 28 D8 29 2C C2 28 D8 29 0D 0D 00 31 |.. .(.),.(.)...1|
00000250: 35 30 20 C4 C9 D3 D0 20 22 D7 C8 C9 C3 C8 20 CF |50 .... "..... .|
00000260: D0 C5 D2 C1 D4 C9 CF CE 20 D4 CF 20 D5 D3 C5 20 |........ .. ... |
00000270: 28 2B 2D 2A 2F 25 29 22 3B 40 20 C9 CE D0 D5 D4 |(+-*/%)";@ .....|
00000280: 20 CF 24 5B D8 2C D8 5D 0D 0D 00 31 36 30 20 C9 | .$[.,.]...160 .|
00000290: C6 20 D0 CF D3 28 22 2B 2D 2A 2F 25 22 2C CF 24 |. ...("+-*/%",.$|
000002A0: 5B D8 2C D8 5D 29 3D 30 20 D4 C8 C5 CE 20 31 35 |[.,.])=0 .... 15|
000002B0: 30 0D 0D 00 31 37 30 20 CC 28 D8 29 3D 31 30 20 |0...170 .(.)=10 |
000002C0: 40 20 C7 CF D4 CF 20 31 39 30 0D 0D 00 31 38 30 |@ .... 190...180|
000002D0: 20 C4 C9 D3 D0 20 40 20 C4 C9 D3 D0 20 22 C6 C9 | .... @ .... "..|
000002E0: C5 CC C4 20 CC C5 CE C7 D4 C8 22 3B 40 20 C9 CE |... ......";@ ..|
000002F0: D0 D5 D4 20 CC 28 D8 29 0D 0D 00 31 39 30 20 CC |... .(.)...190 .|
00000300: 39 3D CC 39 2B CC 28 D8 29 0D 0D 00 32 30 30 20 |9=.9+.(.)...200 |
00000310: C6 24 5B 28 D8 2D 31 29 2A 31 35 2B 31 2C D8 2A |.$[(.-1)*15+1,.*|
00000320: 31 35 5D 3D C1 24 20 40 20 CE C5 D8 D4 20 D8 0D |15]=.$ @ .... ..|
00000330: 0D 00 32 31 30 20 C6 31 24 26 22 4F 22 3D 33 20 |..210 .1$&"O"=3 |
00000340: 40 20 5B 31 2C C6 31 24 26 22 4F 22 5D 2C CE 3F |@ [1,.1$&"O"],.?|
00000350: 2C 40 30 40 20 C4 C9 D3 D0 20 22 C8 CF D7 20 CD |,@0@ .... "... .|
00000360: C1 CE D9 20 D2 C5 C3 CF D2 C4 D3 22 3B 40 20 C9 |... .......";@ .|
00000370: CE D0 D5 D4 20 CE 0D 0D 00 32 33 30 20 3B 20 31 |.... ....230 ; 1|
00000380: 20 C6 2C CE 2C 0D 0D 00 32 34 30 20 C6 CF D2 20 | .,.,...240 ... |
00000390: D8 3D 31 20 D4 CF 20 C6 0D 0D 00 32 35 30 20 3B |.=1 .. ....250 ;|
000003A0: 20 31 20 C6 24 5B 28 D8 2D 31 29 2A 31 35 2B 31 | 1 .$[(.-1)*15+1|
000003B0: 2C D8 2A 31 35 5D 2C D4 28 D8 29 2C CC 28 D8 29 |,.*15],.(.),.(.)|
000003C0: 2C C1 28 D8 29 2C C2 28 D8 29 2C CF 24 5B D8 2C |,.(.),.(.),.$[.,|
000003D0: D8 5D 0D 0D 00 32 36 30 20 CE C5 D8 D4 20 D8 20 |.]...260 .... . |
000003E0: 40 20 5B 31 2C 2A 5D 3D C8 37 2C D2 D4 C4 28 40 |@ [1,*]=.7,...(@|
000003F0: 30 29 2C 2D 31 2E 36 30 36 34 34 30 31 C5 32 30 |0),-1.6064401.20|
00000400: 2C 22 20 22 0D 0D 00 32 38 30 20 C6 31 24 26 22 |," "...280 .1$&"|
00000410: 44 22 3D CE 2C CC 39 2B 31 33 20 40 20 5B 31 2C |D"=.,.9+13 @ [1,|
00000420: C6 31 24 26 22 44 22 5D 3D D0 34 2C C6 32 2C D8 |.1$&"D"]=.4,.2,.|
00000430: 2C 31 20 D4 CF 20 CE 0D 0D 00 33 30 30 20 3B 20 |,1 .. ....300 ; |
00000440: 31 2C D8 20 C4 24 2C 30 2C 0D 0D 00 33 31 30 20 |1,. .$,0,...310 |
00000450: CE C5 D8 D4 20 D8 20 40 20 5B 31 2C 2A 5D 2C CE |.... . @ [1,*],.|
00000460: 3F 2C 40 30 24 2C 22 C4 CF CE C5 22 20 40 20 C5 |?,@0$,"...." @ .|
00000470: CE C4 0D 0D 00 49 5C 0D |.....I\. |
10 DIM F$[150],D$[256],O$[10]...20 INTEG
ER T(10),L(10),A(10),B(10)...30 O$="
"...40 CLEAR @ DISP " FILE
SETUP"...50 DISP @ DISP @ DISP "FILE NA
ME";@ INPUT F1$@ DISP...60 DISP @ DISP "
HOW MANY FIELDS";@ INPUT F@ L9=0 @ FOR X
=1 TO F @ A(X),B(X)=0...70 DISP @ DISP "
FIELD ";X;"TITLE";@ INPUT A$...80 IF LEN
(A$)<=15 THEN 100...90 DISP "TITLE <= 15
CHARS, PLEASE!" @ BEEP @ GOTO 70...100
DISP @ DISP "DATA TYPE (N,$,A,E)";@ INPU
T T$...110 T(X)=POS("ANE$",UPC$(T$[1,1])
)...120 IF T(X)=0 THEN 100...130 IF T(X)
#3 THEN 180...140 DISP "WHICH FIELDS TO
USE (A,B)";@ INPUT A(X),B(X)...150 DISP
"WHICH OPERATION TO USE (+-*/%)";@ INPUT
O$[X,X]...160 IF POS("+-*/%",O$[X,X])=0
THEN 150...170 L(X)=10 @ GOTO 190...180
DISP @ DISP "FIELD LENGTH";@ INPUT L(X)
...190 L9=L9+L(X)...200 F$[(X-1)*15+1,X*
15]=A$ @ NEXT X...210 F1$&"O"=3 @ [1,F1$
&"O"],N?,@0@ DISP "HOW MANY RECORDS";@ I
NPUT N...230 ; 1 F,N,...240 FOR X=1 TO F
...250 ; 1 F$[(X-1)*15+1,X*15],T(X),L(X)
,A(X),B(X),O$[X,X]...260 NEXT X @ [1,*]=
H7,RTD(@0),-1.6064401E20," "...280 F1$&"
D"=N,L9+13 @ [1,F1$&"D"]=P4,F2,X,1 TO N.
..300 ; 1,X D$,0,...310 NEXT X @ [1,*],N
?,@0$,"DONE" @ END...I\.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL