2 REM 20/SETUP
3 REM(null)
4 POKE788,194:POKE37150,2
5 GOTO18
6 REM(null) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) VAL. MID$. (null)RIGHT$(null)(null)VAL(null)(null) ASCOR LENATN(null)STR$LEN(null), RIGHT$NC.  -  1983
7 POKE788,194:POKE37150,2
8 REM(null)
11 PRINT" [157]";:FORI=0TO40:GETA$:IFA$<>""THENRETURN
14 NEXT:PRINT" [146][157]";:FORI=1TO30:GETA$:IFA$<>""THENPRINT" [157]";:RETURN
17 NEXT:GOTO11
18 REM(null)
19 REM(null)
20 PRINT"[147][144]":POKE36879,25
21 REM(null)
22 REM(null)
23 PRINTCHR$(14+128)CHR$(8)"BANNER HEADLINE"
26 PRINT"FOR THE  VIC-20"
29 PRINT"BY E.J. LIPPERT"
32 PRINT"FOR CARDCO, INC"
35 K=16:GOSUB77
36 IFFRE(0)<17000THENPRINT"[147]YOU HAVE INSUFFICIENT MEMORY. THIS PROGRAM  REQUIRES 16K"
37 IFFRE(0)<17000THENNEW
47 PRINT"[147]":POKE36879,25
50 PRINT""CHR$(14)"[211]PECIFY PRINTER TYPE"
53 PRINT" 1. [197]PSON  [205] [216]  [211]ERIES"
56 PRINT" 2. [197]PSON  [198] [216]  [211]ERIES"
59 PRINT" 3. [211][212][193][210] [199]EMINI [211]ERIES"
62 PRINT" 4. [208]ROWRITER OR [195][201]TOH"
65 PRINT"[197]NTER YOUR CHOICE NOW (1 TO 4 PLEASE)  ";
68 GOSUB11:PU=VAL(A$):IF(PU=0)OR(PU>4)THENGOTO68
71 PRINT"[147]":POKE53280,5
74 GOTO113
77 REM(null) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) VAL.MID$. (null)RIGHT$(null)(null)VAL(null)(null) ASCOR LENATN(null)STR$LEN(null), RIGHT$NC.  -  1983
78 POKE680,223:PRINT"PRESS ANY KEY[146]"
80 IFPEEK(36879)=31THENPOKE36879,25:GOTO86
81 POKE36879,PEEK(36879)+2
86 FORI=1TO20
89 GETA$:IFA$=""THENNEXT:GOTO95
92 GOTO104
95 PRINT"PRESS ANY KEY"
98 FORI=1TO20
101 GETA$:IFA$=""THENNEXT:GOTO78
104 POKE36879,25:RETURN
113 PRINT"[147][208]LEASE SELECT EITHER:"
116 PRINT"1. [199]OTHIC [211]TYLE [212]YPE"
119 PRINT"         [207][210]        "
122 PRINT"2. [205]AGNETIC [211]TYLE [212]YPE"
125 PRINT"[197]NTER [217]OUR [195]HOICE [206]OW"
128 GOSUB11:TS=VAL(A$):IF(TS=0)OR(TS>2)THENGOTO128
129 POKE((256*2)+(15*16)),PU:ONTSGOTO140,150
140 POKE198,6:POKE631,13:POKE632,147:POKE633,82:POKE634,85:POKE635,78:POKE636,13
141 PRINT"LOAD"CHR$(34)"GOTHIC/20"CHR$(34)",8[144]LOADING";:END
150 POKE198,6:POKE631,13:POKE632,147:POKE633,82:POKE634,85:POKE635,78:POKE636,13
151 PRINT"LOAD"CHR$(34)"MAGTYPE/20"CHR$(34)",8[144]LOADING";:END
152 POKE631,131:POKE198,1