15 POKE53280,14:POKE53281,7
20 IFX=0THENPRINT"[147][144]    [215]ELCOME TO THE [208]RINT [211]HOP [214]IEWER
22 [139]X[178]0[167]X[178]1:[147]"BLOAD.O",8,1
24 [151]56,120:[156]:[151]2,1
30 [158]828,50759,"TEXT/DOT/WIPE.O"
40 [158]828,51456,"UNPACKER"
50 [158]828,32768,"PS.COMBO2.O"
60 I[178]1:LP[178]1:[141]200:I[178]I[171]1
70 [153]"LOADSTOP":[153][166]8)"(null)RINT (null)HOP RIGHT$MAGE (null)IEWER
80 PRINT"[149]  [215]RITTEN BY [193]LAN [199]ARDNER & [202]IM [215]EILER
82 [153]"FOR       LENOPYRIGHT 1987, (null)(null)ATNSTR$(null)(null)ATN(null)
90 FORX=1TOI:IFX=11THENPRINT"
91 [139]X[178][177]11[167][153][166]20);
92 [153]"      "A$(X):[130]:NU[178]1
93 VT$[178]"
95 :
100 PRINTVT$"[145][145]  [198]1-[193]UTO [205]ODE        [195][210][211][210] KEYS MOVE";
101 PRINTVT$"[145]  [198]3-[209]UICK [204]OOK         [200][201][199][200][204][201][199][200][212].
102 [153]VT$"  ASC5-(null)UIT           (null)VAL(null)(null)(null)(null) SELECTS IT.";
103 :
104 [141]10000
105 NU[178]LP:[141]310:[139]FL[178]1[167][158]51459:[137]70
110 [141]4000
120 [137]70
170 [158]51459:[137]70
180 :
190 :
200 [134]A$(21),B$(21)
205 [135]A$(I),B$(I)
210 [139]A$(I)[178]"END"[167][142]
215 [139]B$(I)[178]"*"[167]B$(I)[178]B$(I[171]1)
220 I[178]I[170]1:[137]205
230 :
240 [131] BLACK HAWKS,MARK GUTIS,BRUINS,*,CANADIENS,*
241 [131] CANUCKS,*,CAPITALS,*,DEVILS,*,FLAMES,*,FLYERS,*,ISLANDERS,*,JETS,*
242 [131] KINGS,*,NORDIQUES,*,NORTH STARS,*,OILERS,*,PENGUINS,*,RANGERS,*
243 [131] RED WINGS,*,SABRES,*,WHALERS,*
300 [131]END,END
305 :
310 :
315 [141]20000:LP[178]NU
320 SP[178]0:TF[178]0
322 [139]K$[178]"INPUT"[167][141]2000:[137]385
324 [139]K$[178]"DIM"[167][141]3000:[137]385
325 [139]K$[178]"READ"[167]400
330 K[178]NU
340 [139]K[179]1[176]K[177]I[167]315
350 :
380 N$[178]"PS."[170]A$(K):[158]828,22528,N$:S[178]K
385 [142]
390 :
400 :
410 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
420 [151]928,7:[139]ER[179][177]63[167][153]"LOAD":[128]
425 [151]56,160
430 [147]"HELLO CONNECT",8
2000 :
2002 [129]X[178]NU[164]I:TF[178]1
2010 N$[178]"PS."[170]A$(X):[158]828,22528,N$
2012 S[178]X:[141]4000: [143] PLOT PS
2020 [151]249,224:[151]250,204:[158]50765:[161]A$:[139]A$[178]"Q"[167]X[178]I[170]1
2030 FL[178]1:[130]X
2040 [139]NU[178]1[167][142]
2050 [129]X[178]1[164]NU[171]1:TF[178]1
2060 N$[178]"PS."[170]A$(X):[158]828,22528,N$
2070 S[178]X:[141]4000: [143] PLOT PS
2080 [151]249,224:[151]250,204:[158]50765:[161]A$:[139]A$[178]"Q"[167]X[178]I[170]1
2090 FL[178]1:[130]X
2095 [142]
2100 :
2200 :
3000 :
3001 PX[178]0:PY[178]0:TF[178]1:[151]249,224:[151]250,204:[158]51459:[158]50765:[151]53270,200
3002 TE[178]50759:[158]TE,"PRINT SHOP",244,40:[158]TE,"IS A",268,48
3003 [158]TE,"TRADEMARK",244,56
3004 [158]TE,"OF",276,64:[158]TE,"BRODERBUND",244,72
3005 [158]TE,"SOFTWARE",252,80:[158]TE,"Q TO QUIT",244,110
3006 [129]X[178]1[164]I:N$[178]"PS."[170]A$(X):[158]828,22528,N$
3007 [151]53270,200:[151]33057,PY:[151]33058,PX:[158]32776
3010 PX[178]PX[170]45:[139]PX[177]224[167]PX[178]0:PY[178]PY[170]46
3020 [139][194](198)[179][177]0[167][161]A$:[139]A$[178]"Q"[167]FL[178]1:[142]
3022 FL[178]0:[139]X[173]20[178][181](X[173]20)[167][141]5000:[139]FL[178]1[167][142]
3030 [130]:FL[178]1:[158]TE,"<PRESS A KEY>",118,188
3040 [151]198,0:[146]198,1:[142]
3100 :
3200 :
4000 :
4005 [139]FL[178]0[167][151]249,224:[151]250,204:[158]51459:[158]50765
4007 N$[178]A$(S):[151]53270,200:[158]50759,N$,(240[171][195](N$)[172]8[173]2),72
4008 N$[178]"CREATED BY":[158]50759,N$,200,88
4009 N$[178]B$(S):[158]50759,N$,(240[171][195](N$)[172]8[173]2),104
4010 :
4015 [151]53270,200
4020 [151]33057,8:[151]33058,212:[158]32776
4025 [151]33057,8:[151]33058,1:[158]32768
4030 :
4060 [158]50759,"PRESS A KEY",112,172:[139]TF[178]1[167][158]50759,"[Q TO QUIT]",112,180
4062 TI$[178]"000000":[139]TF[179][177]1[167]4065
4063 [139][194](198)[178]0[175]TI[179]1200[167]4063
4064 [137]4070
4065 [151]198,0:[146]198,1
4070 [139]TF[178]0[167][158]51459
4080 [142]
5000 :
5010 [158]TE,"<PRESS A KEY>",118,188:
5020 [151]198,0:[146]198,1:[161]A$:[151]198,0
5030 [139]A$[178]"Q"[167]FL[178]1:[137]5090
5035 [151]249,224:[151]250,204:[158]50765
5040 [158]TE,"PRINT (null)HOP",244,40:[158]TE,"IS A",268,48
5042 [158]TE,"TRADEMARK",244,56
5044 [158]TE,"OF",276,64:[158]TE,"BRODERBUND",244,72
5046 [158]TE,"SOFTWARE",252,80:[158]TE,"Q TO QUIT",244,110
5048 PX[178]0:PY[178]0
5050 :
5090 [142]
5095 :
10000 :
10010 A$[178]"":[129]X[178]1[164]40:A$[178]A$[170]"*":[130]:A$[178][200](A$,40)
10020 [153]"STOP"A$;:[129]X[178]1[164]23:[153]"*"[166]38)"*";:[130]
10022 [153][200](A$,39)"STOP";:[151]2023,42:[151]56295,0:[142]
10025 :
20000 :
20005 FL[178]0
20010 [153][200](VT$,NU[170]6[171]10[172][182](NU[177]10))[166]2[170]20[172][182](NU[177]10))"STOP==>";
20015 [153]" "A$(NU)"WAIT"
20020 [151]198,0:[146]198,1:[161]K$
20025 [153][200](VT$,NU[170]6[171]10[172][182](NU[177]10))[166]2[170]20[172][182](NU[177]10))"   ";
20027 [153]" WAIT"A$(NU)
20030 [139]K$[178]""[167]NU[178]NU[170]1:[139]NU[177]I[167]NU[178]1
20035 [139]K$[178]""[167]NU[178]NU[170]10:[139]NU[177]I[167]NU[178]1
20040 [139]K$[178]"ON"[167]NU[178]NU[171]1:[139]NU[179]1[167]NU[178]I
20045 [139]K$[178]"CMD"[167]NU[178]NU[171]10:[139]NU[179]1[167]NU[178]I
20050 [139]K$[178][199](13)[167][142]
20060 [139]K$[178]"INPUT"[167][142]
20070 [139]K$[178]"DIM"[167][142]
20080 [139]K$[178]"READ"[167][142]
20090 [137]20010