Program for tracking user group memberships.
Content
Image Gallery
Source Code
1 CLS : PRINT AT 10,6; FLASH 1;"DO NOT STOP THE TAPE"; FLASH 0: LOAD ""CODE
2 POKE 26703,5: POKE 26704,251
3 REM Variables used- n,i,l,r=used for loops; b,d=used for counters; c=used for gosub to reach sub- routines; z=m+g for return labels; m=number of members; g=number of T/SUG's
4 LET t$="Mail List"
5 LET a$="Members"
6 LET b$="T/S U.G."
7 DIM m$(50,90)
8 DIM g$(20,120)
9 CLS
10 PRINT INVERSE 1;AT 2,(32-LEN t$)/2;t$
20 PRINT AT 4,4;"1) Compile Membership List";AT 6,4;"2) Print Membership List";AT 8,4;"3) Compile T/S U.G. List";AT 10,4;"4) Print T/S U.G. List";AT 12,4;"5) Print Return Labels";AT 14,4;"6) Load Data Files";AT 16,4;"7) Save Data Files";AT 18,4;"8) Save Program Logic"
30 PRINT FLASH 1;AT 20,6;"<ENTER> Your Choice."
40 INPUT c
50 IF c<1 OR c>8 THEN GO TO 40
60 CLS : GO SUB c*1000
70 GO TO 9
80 STOP
1000 PRINT "How many people are on the"'"membership list? ": INPUT m
1010 CLS : FOR n=1 TO m
1020 INPUT "Name: ";m$(n, TO 30): PRINT n;".";m$(n, TO 30)
1030 INPUT "Address: ";m$(n,31 TO 60): PRINT m$(n,31 TO 60)
1040 INPUT "City, State, ZIP Code: ";m$(n,61 TO ): PRINT m$(n,61 TO )
1050 PRINT : NEXT n
1060 RETURN
2000 PRINT "Would you like to (V)iew the","list or (P)rint the list? (V/P)": INPUT q$
2010 IF q$="V" OR q$="v" THEN GO TO 2500
2020 FOR n=1 TO m
2030 LPRINT m$(n, TO 30)
2040 LPRINT m$(n,31 TO 60)
2050 LPRINT m$(n,61 TO )
2060 LPRINT : LPRINT : LPRINT
2070 NEXT n
2080 RETURN
2500 CLS : FOR n=1 TO m
2510 PRINT m$(n, TO 30)
2520 PRINT m$(n,31 TO 60)
2530 PRINT m$(n,61 TO )
2540 PRINT
2550 NEXT n
2560 INPUT "PRINT? (Y/N) OR M FOR MENU ";q$
2570 IF q$="N" OR q$="n" THEN GO TO 2500
2575 IF q$="M" OR q$="m" THEN RETURN
2580 GO TO 2020
3000 PRINT "How many people are on the"'"T/S U.G. list? ": INPUT g
3010 CLS : FOR i=1 TO g
3020 INPUT "Address Line 1: ";g$(i, TO 30): PRINT i;".";g$(i, TO 30)
3030 INPUT "Address Line 2: ";g$(i,31 TO 60): PRINT g$(i,31 TO 60)
3040 INPUT "Address Line 3: ";g$(i,61 TO 90): PRINT g$(i,61 TO 90)
3050 INPUT "Address Line 4: ";g$(i,91 TO ): PRINT g$(i,91 TO )
3060 PRINT
3070 NEXT i
3080 RETURN
4000 PRINT "Would you like to (V)iew the"'"list or (P)rint the list? (V/P)": INPUT q$
4010 IF q$="V" OR q$="v" THEN GO TO 4500
4020 FOR i=1 TO g
4030 LPRINT g$(i, TO 30)
4040 LPRINT g$(i,31 TO 60)
4050 LPRINT g$(i,61 TO 90)
4060 LPRINT g$(i,91 TO )
4070 LPRINT : LPRINT
4080 NEXT i
4090 RETURN
4500 CLS : FOR i=1 TO g
4510 PRINT g$(i, TO 30)
4520 PRINT g$(i,31 TO 60)
4530 PRINT g$(i,61 TO 90)
4540 PRINT g$(i,91 TO )
4550 PRINT
4560 NEXT i
4570 INPUT "PRINT? (Y/N) OR M FOR MENU ";q$
4580 IF q$="N" OR q$="n" THEN GO TO 4500
4585 IF q$="M" OR q$="m" THEN RETURN
4590 GO TO 4020
5000 LET z=m+g
5010 FOR r=1 TO z
5020 LPRINT "T/SUG of Fort Worth, Texas"
5030 LPRINT "David Baulch"
5040 LPRINT "4424 Geddes Ave."
5050 LPRINT "Fort Worth, TX 76107"
5060 LPRINT : LPRINT
5070 NEXT r
5080 RETURN
6000 PRINT "Press <ENTER> to ""LOAD"" the"'"membership list.": INPUT d$
6010 LOAD a$ DATA m$()
6020 LET b=0
6030 FOR l=1 TO 50
6040 IF m$(l,1)=" " THEN GO TO 6060
6050 LET b=b+1
6060 NEXT l
6070 LET m=b
6080 CLS : PRINT "Press <ENTER> to ""LOAD"" the"'"T/S U.G. list.": INPUT d$
6090 LOAD b$ DATA g$()
6100 LET d=0
6110 FOR l=1 TO 20
6120 IF g$(l,1)=" " THEN GO TO 6140
6130 LET d=d+1
6140 NEXT l
6150 LET g=d
6160 RETURN
7000 PRINT "Set recorder up for a ""SAVE""."''"Put a new tape in the recorder."
7010 PRINT : PRINT "You will be saving two data"''"files. The first is the member-"''"ship list, and the second is the"''"T/S U.G. list."
7020 INPUT "Press <ENTER> to ""SAVE"" file 1";d$
7030 SAVE a$ DATA m$()
7040 INPUT "Press <ENTER> to ""SAVE"" file 2";d$
7050 SAVE b$ DATA g$()
7060 RETURN
8000 PRINT "Set recorder up for a ""SAVE""."''"Put a new tape in the recorder."
8010 PRINT : PRINT "You will be saving two parts of"''"the program. The first is the"''"program it self and the second"''"is the ""printer"" code."
8020 INPUT "Press <ENTER> to ""SAVE"" program ";d$
8030 SAVE "mail list" LINE 1
8040 INPUT "Press <ENTER> to ""SAVE"" ""pr"" CODE";d$
8050 SAVE "pr"CODE 64256,1111
8060 RETURN Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.