Gift to

11 REM I NITI ALUE
28 CLEAA1 5 81 , DIM C$(I UJ . N$ ll lJlJ , O$( l lle ) .T$(l eej
108 REM '11111' PGM
1 05 X· l , Z-l
11 0 CLS, PRIN T"L·ENO LIST". " R-LIST ENTRI ES " , "T- L I ST TRAFF IC " . " C"L OOK FOR
CALL " , " 1'.. 1'11.:0 CI TY" . " E" EOI T". "X-DELETE CHECK-IN' : PRI NT STRI NG$ (63, " ­
. j : PRINT" 'l'HI S IS A SCRATCH PAD FOR CHECK-INS"
1 3 1 INPUT C$ ( X)
1 35 I F C${X) · THEN GO'r0131
137 1 1' C${X) X· THEN GOTOIS U
14 8 IF C$ (X) .. "L " THEN GOTO 2 88
1 5 8 IF C$(X ) ""R' THEN G0T03fl0
1 6 0 IF C$ (X) . · T " TIiEN G0T04 00
17 0 IF CS (X ) " " F ' THEN G0T05110
180 I F CS( Xj"·C" THEN G0T06 Bll
198 I F C$(X) " " O" THE" G0T07••
1 95 IF CS{XI"" E" THEN G0T09 U
1 97 Y-X , X" X+l
1 98 GOT01 3 8
200 CLS : FOR X.. :z.TOY
21 0 f'RI NT (d20 0. C$ (X )
aas I F C$( X) ."L" THEN GOTO 11 0
228 PRI NT:INPUT"WHAT IS nit: CORRECT CALL SIGN" ; CS (X )
225 GOSUB 1118
23 r PRINT:INPUT"WHAT IS THE HAME · ; H$ {X)
2] 5 I F N$ ( X) . .... TIlEH N$ (X ) ."N!A"
2U PRI NT,INPUT" WHAT IS TIlE QTH" ; O$I X)
~ :~ ~~sfi~(~~;;" THEN O$ (X) -"N!A·
25 0 PRI NT: I NPUT" WH AT I S THE TRAFFIC (NONE-PRES S ENTER)" ; T S (X)
25 2 IF T$ (X) .-- THEN GOTO 26 11
255 GOSOIl lUI
26. CLS :N EXT X
2711 Z"X : GOTQI U
3 11a CLS : PRI NT" . "J "CALL". · NNtE · . " Q'I'H " • · TRAFF IC" : PRINTSTR INGS (63 , . _ " ) :
FOR X=lTOY
3 1 0 PRINTX1" " ; C$ oo . N$ (X ) .0$ (Xl . '1'$ (X)
3 20 W=Wtl : IF W. 10 THEN PRI NT:INPUT"( PRES S ENTER TO CONT I NUE) " ; G$ : W.0 :
CLS
_ oJ
, P RINT " I"; " CALL" ,"NAME","OTH·.·TRAFF IC " : PRI NT ST RI NGS (6 ] , "
3 38 NEXT X
335 PRIH'I' : I NPUT"
3 48 w..,ll: GOT01l8
END OF LIST so F AR ";GS
40B CLS: PRI NT· THI S IS A LI ST OF ALL THE TRAFF IC WE ARE LOOKI NG FOR" : pR
INT STRINGS ( 63 . " * "l
4U FOR x " I TOY
415 I F T$(X )." " THEN NEXT X ELSE PRINT TS( X)1" --- - - BY "1CS (X ) , : N
EXT X
H e pRIl>'T :PRINT: I NpUT " ( P RESS £KTER TO CO....TINOE ) ";G$ : GOTO 11 8
581 CLS : PRI ~"': P R I ~'T: PR I NT ; I " PUT · WH AT CITY ARE 'tOO LOOr;II>G FOR- ;F$
518 FOR X·l TOY : IF F $"'O S (X) THEN PRI NT N$ (X ) ;" " ; CS (X);" I N ·;OS (X); " C
HECKED I N • "I X : 0 -1
5 20 NEXT X
525 IF Q=0 THEN PRI NT F $ ," IS NOT AVAI LABLE YET"
5U p RI NT:PRI HT, I NpUT " (P RES S ENTER TO CONTINUE ) " 1GS
548 O·8 : GOTO 11 &
6U CLS : PRI NT : PRI NT: PR INT , I Np;rr" WH AT CALL SIGN ARE YOU LOOKI NG FOR" ;F
s
610 FOR x-rror : IF F $ ~CS (X I THEN PRINT NS (X ) ; " " ;C$ (X);" IN " ; oS IX) ; "
CIIECr; ED IN ' '' ; X : 0..1
6 15 NEXT X
621 IF Q~ il THEN PRIN T F SI" IS NOT /W ,o. I LAIlLE YET "
6 30 PRINT : PRINT , IN PUT" (P Re s s ENTER TO CONTI NUE} " 1G$
6 41 O· i1:GOT0118
7 U CLS
7 18 pRIN1',INp;rr· WHAT CALL SIGN DO YOU·WA.>fr TO DROP ";F$
7 28 paR X~lTOY : IF F$ -C$(X) TIIEN C$ (Xj·C$ (X)+· · ":OS (X I ~OS (X I+" · ": TS (X
) ....
73 0 NEXT X
741 GOTO 11 0
900 CLS : N·Y : IN PUT "WHAT NUMBER DO YOU WANT TO EDI T-1N
910 CLS : pRI NT: PRINT CS( N). NS( N) . OS(N) .TS(N)
92i1 HaS :PRIH'I':INPUT · WH At' DO YOU WANT TO CHANGE :
1 CALL
2 NA)lE
3 0 TH
4 TRApF I C
5 NOTHING
0"
930"""'ii'"""H~ 1 THE" IH p;rr· WHAT I S TIlE CORRECT CALL SIGS";IIS : CSlll) . HS
941 IF 11.. 2 THEN IN PUT" WHAT IS TIlE CORRECT HAKE· ;R$: I