Mailing List

1 REM  MAILING LIST ©1987 
   10 CLEAR 29000: DIM a$(8,32): LET go=65535
   20 INK 0: RANDOMIZE USR 30851: GO TO PEEK go
   50 REM F. BREAK PROGRAM
   60 GO TO 10000
   80 REM Q. QUIT PROGRAM
   90 PAUSE 60: CLEAR 65535: NEW 
  100 REM B. LOAD  FILE
  110 GO SUB 300: LOAD n$CODE 39342: RUN 
  150 REM A. SAVE FILE
  160 GO SUB 300: SAVE n$CODE 39342,PEEK 65534*256+560: GO SUB 9050: VERIFY n$CODE : RUN 
  200 REM LPRINT STRING            
  210 REM Driver at 64000 or              Printer Buffer.         
  215 REM This line may be used           to set your printer.     
  220 FOR x=1 TO 8: IF a$(x,1)<>"█" THEN LPRINT a$(x)
  230 NEXT x
  240 LPRINT '': REM             THIS LINE IS USED TO SEPARATE   EACH LABEL (ADJUST FOR YOUR OWN LABELS
  250 PRINT #2;: RANDOMIZE USR 37068: GO TO PEEK go
  255 REM SAVE PROGRAM
  260 GO TO 9900
  300 REM FIND FILE NAME
  310 LET n$="": FOR x=39759 TO 39750 STEP -1: IF PEEK x=32 THEN NEXT x
  320 FOR x=39750 TO x: LET n$=n$+CHR$ PEEK x: NEXT x: RETURN 
 9000 REM LOADER
 9010 INK 7: CLEAR 29000: DIM a$(8,32): LET go=65535: PRINT AT 10,0; INK 0;"STILL LOADING...": LOAD ""CODE : INK 0: IF PEEK 23681<>0 THEN RANDOMIZE USR 30140: GO TO PEEK go
 9020 CLS : LIST 9900: STOP 
 9050 PRINT AT 10,0;" Please Rewind Tape To Verify..."''': INK 7: RETURN 
 9900 REM SAVE PROGRAM
 9910 SAVE "MAILING" LINE 9e3: SAVE "MAILING C"CODE 29000,10300: GO SUB 9050: VERIFY "": VERIFY ""CODE 
 9920 INK 0: IF PEEK 65535=255 THEN RUN