1 POKE818,32
2 REM 64/SETUP
3 REM(null)
5 GOTO18
8 REM(null)
11 POKE808,225: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]":POKE53281,1:POKE808,225:POKE818,32
21 REM(null)
22 REM(null)
23 PRINTCHR$(14+128)"BANNER HEADLINER"
26 PRINT"FOR THE COMMODORE 64"
29 PRINT"BY E.J. LIPPERT"
32 PRINT"FOR CARDCO, INC"
35 K=16:GOSUB77
38 PRINT"[147]":A$="WORKING":FORI=0TO21:PRINT""A$:A$=""+A$:FORK=1TO99
41 NEXT:NEXT
44 FORI=0TO400:NEXT
47 PRINT"[147]":POKE53280,14
50 PRINT""CHR$(14)"[215]HAT PRINTER ARE YOU USING ?"
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 HERE   (1-4 PLEASE)[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
68 GOSUB11:PU=VAL(A$):IF(PU=0)OR(PU>4)THENGOTO68
71 PRINT"[147]":POKE53280,5
74 GOTO113
77 PRINT"PRESS ANY KEY TO CONTINUE[146]
80 [151]53280,[181](K[173]4):K[178]K[170]1:[139]K[178]59[167]K[178]8
83 [139]K[178]48[167]K[178]52
86 [129]I[178]1[164]20
89 [161]A$:[139]A$[178]""[167][130]:[137]95
92 [137]104
95 [153]" PRESS ANY KEY TO CONTINUE WAIT"
98 [129]I[178]1[164]20
101 [161]A$:[139]A$[178]""[167][130]:[137]77
104 [151]53280,1:[142]
107 [137]107
110 [159]15,8,15:[132]15,A,B$,C,D:[153]A,B$,C,D:[160]15
113 [153]"LOAD(null)LEASE SELECT EITHER:"
116 [153]"1. CHR$OTHIC (null)TYLE (null)YPE"
119 [153]"          (null)(null)        "
122 [153]"2. (null)AGNETIC (null)TYLE (null)YPE"
125 [153]"VALNTER (null)OUR LENHOICE LEFT$ERE ";
128 [141]11:TS[178][197](A$):[139](TS[178]0)[176](TS[177]2)[167][137]128
129 [151]((256[172]2)[170](15[172]16)),PU:[145]TS[137]140,150
140 [151]198,6:[151]631,13:[151]632,147:[151]633,82:[151]634,85:[151]635,78:[151]636,13
141 [153]"LOAD"[199](34)"GOTHIC/64"[199](34)",8STOP"
142 [153]"STOPLOADING";:[128]
150 [151]198,6:[151]631,13:[151]632,147:[151]633,82:[151]634,85:[151]635,78:[151]636,13
151 [153]"LOAD"[199](34)"MAGTYPE/64"[199](34)",8STOP"
152 [153]"STOPLOADING";:[128]