10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   KASSMENY
12 REM ! Utg}va  3.0    1982-02-22
13 REM ! av (c) Jan Kristensen
14 REM ! {ndrat av Jan Kristensen
15 REM ! Minne 16 Kbytes
16 REM ! Ins{nt av Jan Kristensen
17 REM ++++++++++++++++++++++++++++++++
18 REM 
19 REM Screened by +TCP+
20 REM 
21 REM DETTE ER EN OPPDATERING AV ET
22 REM TIDLIGRE PROGRAM MED SAMME
23 REM NAVN......
24 REM 
25 ; CHR$(12%)TAB(12%)'KASSETT-MENY     JK-1982'
26 ; TAB(12%)'============' : ; : ; 'DETTE PROGRAM LISTER UT ALT DU HAR P]'
27 ; 'KASSETTENE MED NR.,LOCNR.,NAVN,FILTYPE, OG DEN TID I MIN. OG SEK. SOM DET TAR ] LADE INN PROGRAMMET.'
28 ; : ; 'N]R DET ER SNAKK OM LOCNR. M] EN REGNE  MED ET AVIK P] +/-2.'
29 ; : ; 'DEREFTER VIL DET BLI SPURT OM DU SKAL HAUTSKRIFT P] PRINTER, S] OM HVILKEN TABU-LERING DU SKAL HA'
30 ; : ; 'DET KAN IKKE V[RE FLER ENN 16 PROGRAM P]EN KASSETT.'
31 ; : ; 'DEN TELLER KUN TIL >500< S] PASS P] AT  INGEN PROGRAM STARTER OVER DETTE.'
32 ; : ; : ; 'TRYKK >RETURN< N]R DU ER KLAR.'; : GET G$
33 DEFFNK=((PEEK(-526%) XOR 255%)*256%+(PEEK(-527%) XOR 255%))*5.12+(PEEK(-528%) XOR 255%)/50
34 DIM L$(20%),T%(20%),L%(20%),A2$(20%)
35 ; CHR$(12%);
36 FOR I%=1% TO 18% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
37 FOR I%=2% TO 78% : SETDOT 3%,I% : SETDOT 55%,I% : NEXT I%
38 FOR I%=3% TO 55% : SETDOT I%,2% : SETDOT I%,78% : NEXT I%
39 ; CUR(0%,5%)'NR. LOCNR.   NAVN    FIL    TID'CUR(19%,12%)'>KASSETT-MENY<    JK-1981'
40 ; CUR(5%,2%)CHR$(135%)'HUSK ] START KASSETT P] >000<'CHR$(151%);
41 ; CUR(10%,2%)CHR$(135%)'TRYKK >RETURN< S] STARTER S\KNINGEN'CHR$(151%); : GET G$ : ; CUR(10%,2%)SPACE$(37%);
42 ; CUR(5%,2%)SPACE$(36%);
43 POKE 65008%,-1,-1,-1
44 B0%=32592%
45 ; CUR(21%,0%);
46 F$='' : N%=3%
47 ONERRORGOTO 64 : OPEN 'CAS:' ASFILE 1% : T%=INT(FNK+.5) : T2%=6% : T9%=T%-10%
48 ; CUR(22%,20%)SPACE$(19%); : RESTORE 98 : FOR I%=0% TO T9% : READ L% : NEXT I%
49 FOR M=1 TO 100 : NEXT M
50 FOR I%=B0% TO B0%+17%
51 F$=F$+CHR$(PEEK(I%))
52 NEXT I%
53 ; CUR(22%,20%)SPACE$(18%)
54 IF LEFT$(F$,5%)='FOUND' F$=RIGHT$(F$,7%) ELSE F$=''
55 A%=A%+1%
56 ; CUR(22%,0%)SPACE$(38%);
57 IF A%<10% ; CUR(A%+1%,4%)CHR$(135%)A%; : GOSUB 86 : GOTO 59
58 IF A%<100% ; CUR(A%+1%,3%)CHR$(135%)A%; : GOSUB 86
59 J%=J%+1%
60 L$(J%)=F$ : L%(J%)=L%
61 ; TAB(17%)F$+'  ';CHR$(151%);
62 IF A%=1% T1%=T% : ; CHR$(151%); : GOTO 90
63 GOSUB 94 : ; CUR(A%,30%)CHR$(135%)A2$CHR$(151%); : A2$(J%)=A2$ : T1%=T% : GOTO 90
64 N%=N%-1% : ; CUR(22%,0%)CHR$(7%)'FINNER INGEN FIL !';
65 T%=INT(FNK+.5) : IF A%=0% AND N%=2% T2%=T% ELSE T2%=6%
66 ; CUR(21%,0%); : IF N%=0% T2%=21% : GOTO 79 ELSE 67
67 ; CUR(22%,20%)' JEG S\KER !!!' : ; CUR(21%,0%); : GOTO 47
68 ; CUR(22%,0%)SPACE$(38%);CUR(21%,0%)'PRINTER (J/N)  ?'; : GET G$ : ; G$ : IF G$='J' OR G$='j' F%=1% ELSE F%=0%
69 ONERRORGOTO 69 : ; CUR(21%,25%)'TABULERING'; : INPUT S% : ; CHR$(12%)
70 OPEN 'PR:' ASFILE F%
71 ; #F%TAB(S%)' NR.  LOC NR.   NAVN   FIL   TID'
72 ; #F%TAB(S%)'==================================='
73 FOR K%=1% TO J%
74 IF L%(K%)<10% GOSUB 92 : ; #F%'     'L%(K%)'    '+L$(K%); : GOSUB 91 : GOTO 77
75 IF L%(K%)<100% GOSUB 92 : ; #F%'    'L%(K%)'    '+L$(K%); : GOSUB 91 : GOTO 77
76 GOSUB 92 : ; #F%'   'L%(K%)'    '+L$(K%); : GOSUB 91 : GOTO 77
77 NEXT K% : ; #F%TAB(S%)'===================================' : ; #F% : ; #F% : ; #F% : CLOSE F%
78 ; 'NY LISTE (J/N) ?'; : GET G$ : ; G$ : IF G$='J' 68 ELSE END 
79 ; CUR(22%,0%)SPACE$(38%)CUR(22%,0%)'JEG HAR PR\VD 3 GANGER ] M] GI OPP.' : IF A%=0% 80 ELSE 82
80 FOR I=1 TO 5000 : NEXT I : ; CUR(5%,7%)'JEG TROR KASSETTEN ER TOM'
81 ; CUR(6%,2%)CHR$(135%)'ELLER AT PROGR. STARTER ETTER >014<'CHR$(151%);CUR(22%,0%); : END 
82 A%=A%+1 : T%=INT(FNK+.5)
83 FOR I=1 TO 5000 : NEXT I : GOSUB 94
84 ; CUR(A%,30%)CHR$(135%)A2$CHR$(151%); : A2$(J%+1%)=A2$ : GOTO 68
85 REM 
86 IF L%<10% ; TAB(11%)L%; : RETURN 
87 IF L%<100% ; TAB(10%)L%; : RETURN 
88 ; TAB(9%)L%; : RETURN 
89 GOTO 68
90 ; CUR(21%,0%); : GOTO 46
91 ; #F%'  'A2$(K%+1%) : RETURN 
92 IF K%<10% ; #F%TAB(S%)' 'K%; : RETURN 
93 ; #F%TAB(S%)K%; : RETURN 
94 Y%=(T%-T1%-T2%)/60% : Y1%=Y%*60%
95 Y3%=(T%-T1%-T2%)-Y1% : A1$=NUM$(Y3%) : A1$=RIGHT$(A1$,2%) : IF Y3%<10% A1$='0'+A1$ ELSE A1$=A1$
96 A$=NUM$(Y%) : A2$=A$+'.'+A1$
97 RETURN 
98 DATA 0,1,2,2,3,3,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,14,14,15,15,16,16,17,18,18,19,19,20,20
99 DATA 21,21,22,23,23,24,24,25,25,26,26,27,28,28,29,29,30,30,31,31,32,32,33,33,34,35,35,36,36
100 DATA 37,37,38,38,39,39,40,40,41,42,42,43,43,44,44,45,45,46,46,47,47,48,49,49,50,50,51,51,52,52,53,53
101 DATA 54,54,55,55,56,56,57,57,58,58,59,59,60,61,61,62,62,63,63,64,64,65,65,66,66,67,67,68,68,69,69
102 DATA 70,70,71,71,72,72,73,73,74,74,75,75,76,76,77,77,78,78,79,79,80,80,81,81,82,82,83,83,84,84,85,85,85,86,86
103 DATA 87,87,88,88,89,89,90,90,91,91,92,92,93,93,94,94,95,95,96,96,97,97,98,98,99,99,100,100,101,101,101
104 DATA 102,102,103,103,104,104,105,105,106,106,107,107,108,108,109,109,110,110,111,111,112,112,112
105 DATA 113,113,114,114,115,115,116,116,117,117,118,118,119,119,119,120,120,121,121,122,122,123,123
106 DATA 124,124,125,125,126,126,126,127,127,128,128,129,129,130,130,131,131,132,132,132,133,133,134,134
107 DATA 135,135,136,136,137,137,137,138,138,139,139,140,140,141,141,142,142,142,143,143,144,144,145,145
108 DATA 146,146,147,147,148,148,148,149,149,150,150,151,151,152,152,152,153,153,154,154,155,155,156,156,156
109 DATA 157,157,158,158,159,159,160,160,160,161,161,161,162,162,163,163,164,164,164,165,165,166,166,167,167,167
110 DATA 168,168,169,169,170,170,171,171,171,172,172,172,173,173,174,174,174,175,175,176,176,177,177,177,178,178
111 DATA 179,179,179,180,180,181,181,181,182,182,182,183,183,184,184,185,185,185,186,186,187,187,188,188,188
112 DATA 189,189,190,190,191,191,191,192,192,193,193,194,194,194,195,195,196,196,196,197,197,198,198,198
113 DATA 199,199,200,200,201,201,201,202,202,203,203,204,204,204,205,205,206,206,206,207,207,208,208,208
114 DATA 209,209,210,210,211,211,211,212,212,212,213,213,213,214,214,215,215,215,216,216,217,217,217,218,218
115 DATA 219,219,220,220,220,221,221,222,222,222,223,223,224,224,225,225,226,226,226,227,227,228,228,228
116 DATA 229,229,230,230,230,231,231,232,232,232,233,233,234,234,234,235,235,236,236,236,237,237
117 DATA 238,238,238,239,239,240,240,240,241,241,241,242,242,243,243,243,244,244,245,245,245,246,246
118 DATA 247,247,247,248,248,249,249,249,250,250,251,251,251,252,252,252,253,253,254,254,254,255,255,255
119 DATA 256,256,256,257,257,257,258,258,258,259,259,259,260,260,261,261,261,262,262,262,263,263,264,264,264
120 DATA 265,265,265,266,266,267,267,267,268,268,268,269,269,270,270,270,271,271,272,272,272,273,273
121 DATA 274,274,274,275,275,275,276,276,277,277,277,278,278,278,279,279,279,280,280,281,281,281,282,282,282
122 DATA 283,283,284,284,284,285,285,285,286,286,287,287,287,288,288,288,289,289,290,290,290,291,291,291
123 DATA 292,292,292,293,293,294,294,294,295,295,295,296,296,297,297,297,298,298,298,299,299,299,300,300,300
124 DATA 301,301,302,302,302,303,303,303,304,304,305,305,305,306,306,306,307,307,307,308,308,308,309,309,309
125 DATA 310,310,310,311,311,311,312,312,312,313,313,313,314,314,314,315,315,315,316,316,316,317,317,318,318,318
126 DATA 319,319,319,320,320,320,321,321,321,322,322,322,323,323,323,324,324,324,325,325,325,326,326,326,327,327
127 DATA 327,328,328,328,329,329,329,330,330,330,331,331,331,332,332,332,333,333,333,334,334,334,335,335,335
128 DATA 336,336,336,337,337,337,338,338,338,339,339,339,340,340,340,341,341,341,342,342,324,343,343,343
129 DATA 344,344,344,345,345,345,346,346,346,347,347,347,348,348,348,349,349,349,350,350,350,351,351,351
130 DATA 352,352,353,353,353,354,354,354,355,355,355,356,356,356,357,357,357,358,358,358,359,359,359
131 DATA 360,360,360,361,361,361,362,362,362,363,363,363,364,364,364,365,365,365,366,366,367,367,367
132 DATA 368,368,368,369,369,369,370,370,370,371,371,371,372,372,372,373,373,373,374,374,374,375,375,375
133 DATA 376,376,376,377,377,377,378,378,378,379,379,379,380,380,380,381,381,381,382,382,382,383,383,383
134 DATA 384,384,384,385,385,385,386,386,386,386,387,387,387,387,388,388,389,389,389,389,390,390,390,391,391,391
135 DATA 392,392,392,393,393,393,394,394,394,395,395,395,396,396,396,397,397,397,398,398,398,398,399,399,399
136 DATA 400,400,400,401,401,401,402,402,402,403,403,403,404,404,404,405,405,405,406,406,406,406,407,407,407
137 DATA 408,408,408,409,409,409,410,410,410,411,411,411,412,412,412,413,413,413,414,414,414,415,415,415
138 DATA 416,416,416,416,417,417,417,418,418,418,419,419,419,420,420,420,421,421,421,421,422,422,422,423,423,423
139 DATA 424,424,424,425,425,425,426,426,426,427,427,427,428,428,428,428,429,429,429,430,430,430,431,431,431
140 DATA 432,432,432,433,433,433,434,434,434,435,435,435,435,436,436,436,437,437,437,438,438,438,439,439,439,439
141 DATA 440,440,440,440,441,441,441,441,442,442,442,443,443,443,443,444,444,444,445,445,445,446,446,446
142 DATA 447,447,447,448,448,448,448,449,449,449,450,450,450,451,451,451,452,452,452,452,453,453,453,454,454,454
143 DATA 455,455,455,456,456,456,456,457,457,457,458,458,458,459,459,459,460,460,460,460,461,461,461,462,462,462
144 DATA 463,463,463,464,464,464,464,465,465,465,466,466,466,466,467,467,467,468,468,468,469,469,469,470,470,470
145 DATA 471,471,471,471,472,472,472,473,473,473,474,474,474,474,475,475,475,476,476,476,477,477,477,477
146 DATA 478,478,478,479,479,479,479,480,480,480,481,481,481,482,482,482,482,483,483,483,484,484,484
147 DATA 485,485,485,485,486,486,486,487,487,487,487,488,488,488,489,489,489,490,490,490,490,491,491,491
148 DATA 492,492,492,493,493,493,493,494,494,494,495,495,495,496,496,496,496,497,497,497,498,498,498,498
149 DATA 499,499,499,500,500,500,500