5 POKE53280,0:POKE53281,0:PRINT"[147]"
7 GOSUB60000
10 SYS57812"HARDCOPY.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
20 A$="[156][221][152][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][156][221]"
30 PRINT"[147][156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
40 FORI=1TO22:PRINTA$;:NEXT
50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
60 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
70 POKE214,6:PRINT:PRINTTAB(5)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 PRINTTAB(5)"[221]                            [221]
90 [153][163]5)"(null) 1CONT] (null)RINT (null)CREEN ((null)EXT (null)ODE)SYS(null)
95 PRINTTAB(5)"[221] 2[154]] [208]RINT [211]CREEN ([199]RFX [205]ODE)[158][221]
100 [153][163]5)"(null) 3CONT] (null)RINT LENENTER ((null)EXT (null)ODE)SYS(null)
105 PRINTTAB(5)"[221] 4[154]] [208]RINT [195]ENTER ([199]RFX [205]ODE)[158][221]
110 [153][163]5)"(null) 5CONT] (null)(null)ATNSTR$(null)(null)ATN(null)                SYS(null)
120 PRINTTAB(5)"[221]                            [221]
130 [153][163]5)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
140 [161]K$:[139]K$[178]""[167]140
142 [159]4,4,7:[160]4:[139]ST[179][177]0[167]FL[178]1:[141]200:[137]140
145 [141]200
150 [139]K$[178]"1"[167][153][163]8)"SYS49152,0,0,39,24,7,0,0":[158]49152,0,0,39,24,7,0,0
155 [139]K$[178]"2"[167][153][163]8)"SYS49152,0,0,39,24,7,8,15":[158]49152,0,0,39,24,7,8,15
160 [139]K$[178]"3"[167][153][163]8)"SYS49152,6,8,33,14,7,0,0":[158]49152,6,8,33,14,7,0,0
165 [139]K$[178]"4"[167][153][163]8)"SYS49152,6,8,33,14,7,8,15":[158]49152,6,8,33,14,7,8,15
170 [139]K$[178]"5"[167]1000
180 [137]140
190 :
200 [151]214,17:[153]
210 [153][163]5)"OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
220 [153][163]5)"(null)                            (null)"
230 [153][163]5)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPONON"
235 [139]FL[167]FL[178]0:[153][163]8)"(null)URN YOUR PRINTER ON!!!"
240 [142]
1000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
1010 [132]15,ER%:[160]15
1020 [139]ER%[179][177]63[167][153]"LOAD":[128]
1030 [151]646,[194](53281)
1040 [153]"LOADLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
1050 [153]"RUN"
1060 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
1070 :
9999 :
10000 [159]15,8,15,"S0:BYTES":[160]15:[148]"0:BYTES",8:[128]
60000 B9$[178]"                                      "
60010 [151]214,14:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
60020 [129]I[178]0[164]7:[153]B9$:[130]:[153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 B9$(0)[178]"PEEK(null)(null)VAL(null): (null)EXT AND CHR$RAPHIC LEFT$ARDCOPY"
60040 B9$(1)[178]"BY PEEKARBARA (null)CHULAK"
60050 B9$(2)[178]"(LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #83"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]