Listing of file='LETTER.BAS;01' on disk='vmedia/mailing_list-sector.ccvf'
0 GOTO 65000
1 CLEAR 200:REM THIS MAY REQUIRE CHANGES
5 X= 34:Y= 6:H= 13:W= 5:C= 1
6 GOSUB 64000
10 LN= Y
20 GOTO 70
27 REM
28 REM SCROLL SUBROUTINE
29 REM
30 LN= LN+ 1:IF LN< (Y+ H)THEN PLOT 3,X,LN:RETURN
40 ZZ= CALL (0)
50 PLOT 3,X,Y+ H- 1:PRINT SPC( W)""
60 PLOT 3,X,Y+ H- 1:RETURN
67 REM
68 REM PROGRAM STARTS HERE
69 REM
70 PLOT 6,6,12,14
80 A$= " ( HA! HA! )"
90 PLOT 3,15,11
100 PRINT "THIS PROGRAM WAS PRE-RECORDED"
110 PLOT 3,64,0:FOR J= 1TO 2500:NEXT
120 PLOT 15,6,5,3,23,13:PRINT A$
130 PLOT 3,64,0:FOR J= 1TO 1000:NEXT
140 CH= 127:Y1= 13:CO= 5
150 FOR X3= 23TO 51:GOSUB 10000:NEXT X3
160 FOR J= 1TO 500:NEXT J
170 FOR X3= 51TO 63:FOR S= 1TO 62- X3:PLOT 3,127,X3+ S,13,5
175 PLOT ASC (MID$ (A$,S,1)):NEXT S,X3
180 FOR J= 1TO 1000:NEXT J
190 A$= "THIS PROGRAM WAS PRE-RECORDED"
200 CH= 128:X3= 14:Y1= 11:CO= 4:GOSUB 10000
210 GOSUB 10030
220 A$= "THE WONDERFUL WORLD OF..."
230 CO= 3:GOSUB 10000
240 FOR J= 1TO 1500:NEXT J
250 GOSUB 10030
260 A$= "COMPUCOLOR"
270 CH= 127:CO= 1:GOSUB 10000
280 FOR J= 1TO 500:NEXT J
290 GOSUB 10030
300 CH= 128:CO= 1:GOSUB 10000
310 FOR J= 1TO 500:NEXT J
320 GOSUB 10030
330 CH= 15:Y1= 12:GOSUB 10060
340 CH= 14:Y1= 13:GOSUB 10060
350 PLOT 27,27
355 GOSUB 900
360 PLOT 29
390 PLOT 6,5,15,27,24,3,64,0
400 REM C
405 PLOT 2,26,100,26,101,25,101,24,102,23,102,22,102,21,102
410 PLOT 20,102,19,102,18,102,17,101,16,101,15,100,14,99,13,98
415 PLOT 12,97,11,96,11,95,10,94,10,93,10,92,10,91,9,90,9,89
420 PLOT 9,88,9,87,9,86,9,85,9,84,10,83,10,82,11,81,12,80,13,79
425 PLOT 14,79,15,78,16,78,17,78,18,78,19,78,20,78,21,78,22,78
430 PLOT 22,79
435 REM O
440 PLOT 30,91,29,91,28,91,27,90,26,89,25,88,25,87,24,86,24,85
445 PLOT 24,84,24,83,24,82,25,81,26,80,27,81,28,81,29,82,30,83
450 PLOT 31,84,31,85,32,86,32,87,32,88,32,89,32,90,32,91,31,91
455 PLOT 31,92,30,91,30,90,31,89,32,89,33,90,34,90,35,90,35,89
460 REM M
465 PLOT 35,88,35,87,35,86,35,85,35,84,35,83,35,82,35,81,35,82
470 PLOT 35,83,35,84,36,85,37,86,37,87,38,88,39,89,40,89,40,88
475 PLOT 40,87,40,86,40,85,40,84,40,83,40,82,40,81,40,82,40,83
480 PLOT 40,84,40,85,40,86,41,87,42,88,42,89,43,90,44,90,44,89
485 PLOT 44,88,44,87,44,86,44,85,44,84,44,83,44,82,45,81,46,81
490 REM P
495 PLOT 47,82,48,82,49,83,49,84,50,85,50,86,50,87,50,88,50,89
500 PLOT 50,90,50,91,50,90,50,89,50,88,50,87,50,86,50,85,49,84
505 PLOT 49,83,49,82,49,81,49,80,49,79,48,78,48,77,48,76,48,75
510 PLOT 48,74,48,73,48,72,48,73,48,74,48,75,48,76,48,77,48,78
515 PLOT 49,79,49,80,49,81,49,82,49,83,49,84,50,85,50,86,50,87
520 PLOT 51,88,52,89,53,90,54,90,55,90,55,89,55,88,55,87,55,86
525 PLOT 55,85,55,84,55,83,54,82,53,81,52,81,51,81,50,82,51,81
530 PLOT 52,81,53,81,54,81,55,81,56,81
535 REM U
540 PLOT 57,82,58,82,59,83,60,84,60,85,61,86,61,87,62,88,62,89
545 PLOT 62,90,62,89,62,88,61,87,61,86,61,85,61,84,61,83,61,82
550 PLOT 61,81,62,81,63,81,64,82,65,83,66,84,66,85,66,86,67,87
555 PLOT 67,88,67,89,67,90,67,89,67,88,67,87,66,86,66,85,66,84
560 PLOT 66,83,66,82,66,81,67,81
565 REM K
570 PLOT 68,81,69,81,70,82,70,83,70,84,70,85,71,86,71,87,71,88
575 PLOT 71,89,72,90,72,91,72,92,72,93,73,94,73,95,73,96,73,97
580 PLOT 73,98,73,97,73,96,73,95,73,94,72,93,72,92,72,91,72,90
585 PLOT 71,89,71,88,71,87,71,86,72,86,73,86,74,87,75,88,76,89
590 PLOT 77,90,76,89,75,88,74,87,73,86,72,86,72,87,73,87,73,86
595 PLOT 74,85,74,84,74,83,74,82,75,81,76,82,77,83
600 REM O
605 PLOT 80,89,79,88,79,87,78,86,78,85,78,84,78,83,79,82,80,81
610 PLOT 81,81,82,82,83,83,83,84,83,85,83,86,83,87,83,88,82,89
615 PLOT 81,89,81,88,82,88,83,88,84,88,85,88
620 REM L
625 PLOT 86,89,87,90,88,91,89,92,90,93,90,94,90,95,90,96,89,97
630 PLOT 88,96,87,95,87,94,86,93,86,92,86,91,86,90,86,89,86,88
635 PLOT 86,87,86,86,86,85,86,84,86,83,86,82
640 PLOT 87,81,88,80,89,80,90,80,91,81,92,81
645 REM 0
650 PLOT 96,89,95,89,94,88,93,87,93,86,93,85,93,84,93,83,93,82
655 PLOT 94,81,95,81,96,81,97,82,98,83,98,84,98,85,98,86,98,87
660 PLOT 98,88,98,89,97,89,98,89,99,89
665 REM R
670 PLOT 100,89,101,89,101,88,101,87,101,86,101,85,101,84,101,83
675 PLOT 100,82,100,81,100,82,101,83,101,84,101,85,101,86
680 PLOT 102,87,103,88,103,89,104,89,105,89,106,89,107,88
685 REM
690 FOR J= 1TO 1000:NEXT
695 PLOT 77,101,242,68,80:FOR J= 1TO 200:NEXT
700 PLOT 253,68,98,242,76,81:FOR J= 1TO 300:NEXT
705 REM C
710 PLOT 255,29,17,2
715 PLOT 76,65,75,66,74,66,73,66,72,66,71,66,70,65,69,64,69,63
720 PLOT 69,62,69,61,69,60,69,59,70,58,71,57,72,57,73,57,74,57
725 PLOT 75,57,76,58,77,59,68,58
730 PLOT 255:LN= 20
740 FOR J= 1TO 500:NEXT
745 GOSUB 30:PRINT " @"
750 GOSUB 30:PRINT " qp"
755 GOSUB 30:PRINT " mo"
760 FOR J= 1TO 3:GOSUB 30:NEXT J
765 PLOT 3,64,0:FOR J= 1TO 500:NEXT
770 PLOT 3,36,14:PRINT "fh"
775 GOSUB 9000
780 PLOT 3,36,14:PRINT "ee"
785 GOSUB 9000
790 PLOT 3,36,14:PRINT "e "
795 PLOT 3,37,13:PRINT "i"
800 GOSUB 9000
805 PLOT 3,36,14:PRINT " "
810 PLOT 3,36,13:PRINT "ih"
815 PLOT 3,32,14:PRINT " ih"
820 PLOT 3,30,15:PRINT "ih"
825 PLOT 3,23,16:PRINT "teeeeeeeeu"
830 PLOT 3,23,17:PRINT "a b"
835 PLOT 3,23,18:PRINT "vw"
840 PLOT 3,24,17:PRINT " TA DAAA!"
845 PLOT 3,64,0:FOR J= 1TO 2000:NEXT
888 GOSUB 3000:RUN
900 PLOT 3,6,9:PRINT " teef":PLOT 3,6,11:PRINT "a"
905 PLOT 3,6,13:PRINT "a":PLOT 3,6,15:PRINT "vi"
910 PLOT 3,11,9:PRINT "teeu":PLOT 3,11,11:PRINT "a b"
915 PLOT 3,11,13:PRINT "a b":PLOT 3,11,15:PRINT "vw"
920 PLOT 3,16,9:PRINT "p q":PLOT 3,16,11:PRINT "a| ~b"
925 PLOT 3,16,13:PRINT "a |~ b":PLOT 3,16,15:PRINT "a b"
930 PLOT 3,23,9:PRINT "neeu":PLOT 3,23,11:PRINT "lw"
935 PLOT 3,23,13:PRINT "a":PLOT 3,23,15:PRINT "a"
940 PLOT 3,28,9:PRINT "a b":PLOT 3,28,11:PRINT "a b"
945 PLOT 3,28,13:PRINT "a b":PLOT 3,28,15:PRINT "vw"
950 PLOT 3,33,9:PRINT "teef":PLOT 3,33,11:PRINT "a"
955 PLOT 3,33,13:PRINT "a":PLOT 3,33,15:PRINT "vi"
960 PLOT 3,39,9:PRINT "teeu":PLOT 3,39,11:PRINT "a b"
965 PLOT 3,39,13:PRINT "a b":PLOT 3,39,15:PRINT "vw"
970 PLOT 3,44,9:PRINT "a":PLOT 3,44,11:PRINT "a"
975 PLOT 3,44,13:PRINT "a":PLOT 3,44,15:PRINT "l"
980 PLOT 3,49,9:PRINT "teeu":PLOT 3,49,11:PRINT "a b"
985 PLOT 3,49,13:PRINT "a b":PLOT 3,49,15:PRINT "vw"
990 PLOT 3,54,9:PRINT "neeu":PLOT 3,54,11:PRINT "lw"
995 PLOT 3,54,13:PRINT "a j":PLOT 3,54,15:PRINT "a k"
1000 PLOT 3,64,0:FOR J= 1TO 500:NEXT J
1005 PLOT 27,10
1010 FOR J= 57TO 6STEP - 1
1015 PLOT 3,J,8:PRINT " "
1020 NEXT J
1030 RETURN
3000 FOR T= 1TO 31
3005 FOR I1= 16TO 23
3010 FOR I2= 16TO 23
3015 PLOT 30,I2,29,I1,96
3020 NEXT I2:NEXT I1:NEXT T
3025 PLOT 8,14,6,2
3030 RETURN
9000 FOR J= 1TO 25:NEXT J:RETURN
10000 FOR S= 1TO LEN (A$)
10010 PLOT 3,CH,X3+ S,Y1,CO:PLOT ASC (MID$ (A$,S,1))
10020 NEXT S:RETURN
10030 FOR S= LEN (A$)TO 1STEP - 1
10040 PLOT 3,128,14+ S,11,0:PLOT ASC (" ")
10050 NEXT S:RETURN
10060 PLOT 27,27
10070 PLOT CH,3,15,11:PRINT " tf tu pq {d ab tf tu a tu {d"
10080 PLOT 3,15,Y1:PRINT "vi vw ab a vw vi vw l vw a| "
10090 PLOT 3,64,0:FOR J= 1TO 500:NEXT J
10100 FOR S= 29TO 1STEP - 1
10110 PLOT 3,128,14+ S,12,0:PLOT ASC (" ")
10120 PLOT 3,128,14+ S,11,0:PLOT ASC (" ")
10130 NEXT S:RETURN
63097 REM
63098 REM SCROLLING PATCH
63099 REM
64000 GOSUB 65410
64010 Z= 28672+ 128* Y+ X+ X:AD= TM+ 2:GOSUB 65400
64015 Z= 128- W- W:AD= TM+ 25:GOSUB 65400
64020 POKE TM+ 5,H- 1:POKE TM+ 7,W* (C+ 1):POKE TM+ 19,35* (1- C)
64030 RETURN
64097 REM
65000 GOSUB 65410:RESTORE 65030
65030 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126
65040 DATA 17,128,255,25,119,35,-1,13,194,-1,-1
65050 DATA 17,-1,-1,25,5,194,-1,-1,201
65055 IF TM> 65503THEN TM= TM- 32:GOTO 65080
65060 FOR I= 1TO 32:READ A
65065 IF A> = 0AND A< > PEEK (TM+ 1)THEN I= 32:TM= TM- 32
65070 NEXT
65080 RESTORE 65030
65090 FOR I= 1TO 32:READ A:POKE TM+ I,A- (A< 0):NEXT
65100 Z= TM+ 1:AD= 33283:GOSUB 65400
65110 Z= TM:AD= ER:GOSUB 65400
65120 Z= TM+ 6:AD= TM+ 30:GOSUB 65400
65130 Z= TM+ 8:AD= TM+ 22:GOSUB 65400
65190 CLEAR 25:GOTO 1
65400 ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ:RETURN
65410 ER= 32940:TM= 256* PEEK (ER+ 1)+ PEEK (ER):RETURN
65497 REM
65498 REM SCROLLING PATCH
65499 REM