1 COMMON A, AL, B, BASEONLY, C, C$, C1, CAT$, CC, CKT$, D, D$, DD, DIA, DIMN$, DMS, E, EO, EX$, F, F$, FD, FF, FQ, FRQ, G$, GO$, I, I$, L, LATLONG, LD, LL, LN, LS, LW, LX, MAX, MENU, MIN, MX, N, NN, NT, OV, P, PI, PROG$, Q, QQ, QU, R, RA, RC, T, T$, U, U$, UH, UL$, V$, VC, W, WHIP, WIRD, WW, X, X$, X1, XS, Z$, ZP, ZS
5 'OMMON EX$
10 'NEWSINCE - HAMCALC new programs & upgrades - 11 JAN 96 rev. 22 JAN 07
20 
30 CLS:KEY OFF
40 COLOR 7,0,0
50 '
60 N=0
70 OPEN"I",1,"\hamcalc64\docfiles\newsince.rtf"
80 IF EOF(1)THEN 120
90 INPUT #1,Z$
100 '-300
110 GOTO 80
120 CLOSE
130 DIM A$(N)
140 '
150 OPEN"I",1,"\hamcalc64\docfiles\newsince.rtf"
160 FOR Z=1 TO N
170 INPUT #1,A$(Z)
180 NEXT Z
190 CLOSE
200 '
201 STOP
210 LN=0
220 FOR Z=1 TO N
230 LN=LN+1
240 PRINT A$(Z);
250 IF LN<24 THEN PRINT "";:GOTO 300
260 IF LN=24 THEN GOSUB 340:LN=0:CLS
270 FOR Y=1 TO 24
280 IF LEFT$(A$(Z-Y),1)="*"THEN Z=Z-Y:GOTO 300
290 NEXT Y
300 NEXT Z
310 GOSUB 340
320 CLS:CHAIN EX$ :PRINT ERX$
330 '
340 COLOR 0,7
350 LOCATE 25,24
360 PRINT " Press 1 to continue or 0 to EXIT ";
370 COLOR 7,0
380 Z$=INKEY$:IF Z$=""THEN 380
390 IF Z$="1"THEN 420
400 IF Z$="0"THEN 320
410 GOTO 380
420 RETURN
