Two programs: one a simple text editor, the other for tracking countries a ham has contacted towards a DXCC goal.
Gallery
Source Code
11 DIM C$(3) 12 DIM P$(11) 13 DIM N$(10) 14 DIM I$(5) 15 DIM D$(340,32) 100 PRINT TAB 5;"DXCC COUNTRIES LIST" 101 PRINT "PROG. BY W3ZQN, R J LEES, 09/82" 105 PRINT "%T%O% %R%U%N% %U%S%E% %"%G%O%T%O% %1%0%0%"% % % % % % % % % % % %T%O% %S%A%V%E% %U%S%E% %"%G%O%T%O% %9%0%0%0%"% % % % % % % % % %I%F% %"%R%U%N%"% %U%S%E%D%,% %A%L%L% %D%A%T%A% %I%S% %L%O%S%T% " 110 PRINT ,,"EACH DATA LINE HAS:",TAB 2;"COUNTRY NUMBER- 3 SPACES",TAB 10;"PREFIX-11",TAB 10;"NAME -10",TAB 10;"DATA - 5" 120 PRINT ,," DATA IS MO, YR, AND DXCC CODE: (S)ENT/(R)ECEIVED/(C)REDITED" 130 PRINT ,,,,"%E%N%T%E%R% %R%O%U%T%I%N%E% %D%E%S%I%R%E%D%:"," S-SEARCH (LOCATE/CHANGE DATA)"," R-REVIEW (BY PAGES)"," T-TOTALS (WORKED,CREDITED,ETC) I-INPUT (CHANGE DATA BASE)"," E-EXIT (STOP THE PROGRAM)" 140 GOSUB 8000 150 IF INKEY$="S" THEN GOTO 1000 160 IF INKEY$="R" THEN GOTO 3000 170 IF INKEY$="T" THEN GOTO 4000 180 IF INKEY$="I" THEN GOTO 5000 190 IF INKEY$="E" THEN GOTO 7000 200 GOTO 130 1000 PRINT "%S%E%L%E%C%T% %S%E%A%R%C%H% %R%O%U%T%I%N%E%:",TAB 3;"C-BY NUMBER",,TAB 3;"P-BY PREFIX",,TAB 3;"N-BY NAME" 1010 GOSUB 8000 1020 IF INKEY$="C" THEN GOTO 1100 1030 IF INKEY$="P" THEN GOTO 1500 1040 IF INKEY$="N" THEN GOTO 2000 1050 GOTO 1000 1100 PRINT "%E%N%T%E%R% %C%O%U%N%T%R%Y% %N%O%.%:" 1110 INPUT C 1120 IF D$(C,1)=" " THEN GOSUB 8100 1130 IF INKEY$="Y" THEN GOTO 1100 1140 IF INKEY$="N" THEN GOTO 130 1150 CLS 1160 PRINT D$(C) 1170 GOSUB 6000 1180 IF INKEY$="N" THEN GOTO 1250 1190 IF INKEY$="Y" THEN GOSUB 6100 1195 IF INKEY$="Y" THEN GOTO 1100 1200 GOTO 130 1250 GOSUB 6500 1260 GOTO 1195 1500 PRINT "%E%N%T%E%R% %P%R%E%F%I%X" 1510 INPUT P$ 1520 FOR C=1 TO 340 1530 IF D$(C,5 TO 15)=P$ THEN GOTO 1600 1540 NEXT C 1550 GOSUB 8100 1560 IF INKEY$="Y" THEN GOTO 1500 1570 IF INKEY$="N" THEN GOTO 130 1580 GOTO 1550 1600 CLS 1610 PRINT D$(C) 1620 GOSUB 6000 1630 IF INKEY$="N" THEN GOTO 1700 1640 IF INKEY$="Y" THEN GOSUB 6100 1650 IF INKEY$="Y" THEN GOTO 1500 1660 GOTO 130 1700 GOSUB 6500 1710 GOTO 1650 2000 PRINT "%E%N%T%E%R% %C%O%U%N%T%R%Y% %N%A%M%E" 2010 INPUT N$ 2020 FOR C=1 TO 340 2030 IF D$(C,17 TO 26)=N$ THEN GOTO 2100 2040 NEXT C 2050 GOSUB 8100 2060 IF INKEY$="Y" THEN GOTO 2000 2070 IF INKEY$="N" THEN GOTO 130 2080 GOTO 2050 2100 CLS 2110 PRINT D$(C) 2120 GOSUB 6000 2130 IF INKEY$="N" THEN GOTO 2200 2140 IF INKEY$="Y" THEN GOSUB 6100 2150 IF INKEY$="Y" THEN GOTO 2000 2160 GOTO 130 2200 GOSUB 6500 2210 GOTO 2150 3000 PRINT "USE ""B"" (SCROLL) TO PAGE FORWARDHIT ANY KEY TO EXIT ROUTINE" 3010 PRINT ,,"%S%T%A%R%T% %P%A%G%E% %A%T% %W%H%A%T% %C%O%U%N%T%R%Y% %N%O%.%?" 3020 INPUT PS 3025 CLS 3030 FOR B=PS TO 340 STEP 21 3040 FOR C=B TO B+21 3050 IF C=341 THEN GOTO 3080 3060 PRINT D$(C) 3070 NEXT C 3080 GOSUB 8000 3090 IF INKEY$="B" THEN GOTO 3110 3100 IF INKEY$<>"B" THEN GOTO 130 3110 NEXT B 3120 GOTO 130 4000 LET CL=0 4010 LET CW=0 4020 LET CS=0 4030 LET CR=0 4040 LET CC=0 4060 FOR C=1 TO 340 4070 IF D$(C,5)<>" " THEN LET CL=CL+1 4080 IF D$(C,28)<>" " THEN LET CW=CW+1 4090 IF D$(C,32)="S" THEN LET CS=CS+1 4110 IF D$(C,32)="R" THEN LET CR=CR+1 4140 IF D$(C,32)="C" THEN LET CC=CC+1 4150 NEXT C 4160 PRINT CL,"COUNTRIES LISTED" 4170 PRINT ,,CW,"WORKED" 4180 PRINT ,,CL-CW,"NOT WORKED" 4190 PRINT ,,CS,"QSL SENT,NO RET" 4200 PRINT ,,CR,"QSL SENT AND RET" 4210 PRINT ,,CC,"DXCC CREDITED" 4220 PRINT ,,,,"%H%I%T% %A%N%Y% %K%E%Y% %T%O% %R%E%T%U%R%N" 4230 GOSUB 8000 4240 GOTO 130 5000 PRINT "%C%O%U%N%T%R%Y% %N%O%.%?% %(%0% %T%O% %E%X%I%T%)" 5010 INPUT C$ 5012 LET C=VAL C$ 5015 IF C<1 OR C>340 THEN GOTO 5200 5020 CLS 5025 LET D$(C, TO 3)=C$ 5030 PRINT "COUNTRY NUMBER: ";C;" " 5040 PRINT AT 2,0;"%P%R%E%F%I%X%?% %(%1%1% %M%A%X%)" 5050 INPUT P$ 5060 LET D$(C,5 TO 15)=P$ 5070 PRINT AT 2,0;" PREFIX: ";P$ 5080 PRINT AT 4,0;"%N%A%M%E%?% %(%1%0% %M%A%X%)" 5090 INPUT N$ 5100 LET D$(C,17 TO 26)=N$ 5110 PRINT AT 4,0;" NAME: ";N$ 5120 PRINT AT 6,0;"%D%A%T%A%?% %(%M%M%Y%Y%S%/%R%/%C%)" 5130 INPUT I$ 5140 LET D$(C,28 TO 32)=I$ 5150 PRINT AT 6,0;" DATA: ";I$ 5160 PRINT AT 9,0;D$(C) 5170 PRINT AT 13,0;"%H%I%T% %A%N%Y% %K%E%Y% %T%O% %C%O%N%T%I%N%U%E" 5180 GOSUB 8000 5190 GOTO 5000 5200 CLS 5210 GOTO 130 6000 PRINT ,,"CHANGE DATA? %Y%/%N" 6010 GOSUB 8000 6020 RETURN 6100 PRINT AT 20,0;D$(C) 6110 PRINT AT 21,1;D$(C,28 TO ) 6120 INPUT I$ 6130 LET D$(C,28 TO )=I$ 6140 CLS 6150 PRINT D$(C) 6160 GOSUB 6500 6170 RETURN 6500 PRINT ,,"ANOTHER? %Y%/%N" 6519 GOSUB 8000 6520 RETURN 7000 CLS 7010 PRINT "YOU HAVE STOPPED THE PROGRAM",,,"REMEMBER: TO START IT AGAIN USE",TAB 10;"""GOTO 100""; TO SAVE IT";TAB 10;"USE ""GOTO 9000""",TAB 10;"NEVER USE ""RUN"" OR ",TAB 10;"DATA WILL BE LOST" 7020 STOP 8000 SLOW 8005 PAUSE 20 8006 POKE 16437,255 8010 IF INKEY$="" THEN GOTO 8010 8020 FAST 8030 CLS 8040 RETURN 8100 CLS 8105 PRINT "NOT FOUND. TRY AGAIN? %Y%/%N" 8110 GOSUB 8000 8120 RETURN 9000 SAVE "DXC%C" 9010 GOTO 100 1 REM PROGRAM "TYPE" BY W3ZQN- R. J. LEES, 705 JONATHAN RD., KING OF PRUSSIA, PA. 19406, JAN,1983 2 REM REV. 1, 5/83: ADDED LINES 625 AND 925; REVISED LINES 630 AND 930 FROM "GOTO 20" TO "GOTO 30" - THIS ALLOWS EDITING BY LINE NO. AND COLUMN NO. 5 LET L=0 10 LET N=21 20 LET C=0 30 PRINT AT N,C;"\##" 40 SLOW 50 IF INKEY$<>"" THEN GOTO 50 60 IF INKEY$="" THEN GOTO 60 70 FAST 80 PRINT AT N,C;INKEY$; 90 IF INKEY$=CHR$ 118 THEN GOTO 300 100 IF INKEY$=CHR$ 114 THEN GOTO 400 110 IF INKEY$=CHR$ 119 THEN GOTO 500 120 IF INKEY$=CHR$ 117 AND C=0 THEN GOTO 600 130 LET C=C+1 140 IF C=32 THEN GOTO 410 150 IF C<27 THEN PRINT AT N,C;"\##" 160 IF C=27 THEN PRINT AT N,C;"%5" 170 IF C=28 THEN PRINT AT N,C;"%4" 180 IF C=29 THEN PRINT AT N,C;"%3" 190 IF C=30 THEN PRINT AT N,C;"%2" 200 IF C=31 THEN PRINT AT N,C;"%1" 210 GOTO 40 300 PRINT AT N,C;" " 320 GOTO 130 400 PRINT AT N,C;" " 410 LET L=L+1 420 IF L=22 THEN GOTO 700 430 IF N<>21 THEN GOTO 10 440 SCROLL 450 GOTO 20 500 PRINT AT N,C;" " 510 IF C=0 THEN GOTO 530 520 LET C=C-1 530 GOTO 30 600 INPUT EL 610 LET N=21-EL 620 LET L=L-1 625 INPUT C 630 GOTO 30 700 SLOW 710 IF INKEY$<>"" THEN GOTO 710 720 IF INKEY$="" THEN GOTO 720 730 FAST 740 IF INKEY$=CHR$ 117 THEN GOTO 900 750 IF INKEY$=CHR$ 14 THEN GOTO 770 760 GOTO 700 770 COPY 780 PRINT AT 21,0;"-----" 790 SCROLL 800 GOTO 5 900 INPUT EM 910 LET N=22-EM 920 LET L=L-1 925 INPUT C 930 GOTO 30 9000 SAVE "TYP%E" 9010 GOTO 5