10 POKE56,56:POKE55,0:CLR:POKE53371,0
20 DV=PEEK(186):IFDV<8THENDV=8
21 GOSUB3000
22 HZ$="[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][192][192]"
24 SP$="                                        "
25 EB$(3)="  -    -  "
26 EB$(0)="  @    @  "
27 EB$(1)=" @    @   "
28 EB$(2)="   @    @ "
29 EB$(4)="   @  @   "
30 POKE53281,0:POKE53280,0:PRINT"[147]"
32 X=1:Y=0:XX=36:YY=21:GOSUB100
33 PRINTTAB(4)"[158][198]ENDER [212]UCKER'S"
34 PRINTTAB(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
35 [153][163]4)"   (null)    (null)     (null) (null)     (null) (null)  (null)  (null)
36 PRINTTAB(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
37 [153][163]29)"SYS(null)IEWER"
38 [153]"LIST        (null)RIGHT$(null)(null)VAL(null)(null) FROM (null)(null) 202 "
40 [153]"         (null)(null)SYS(null)CLR(null)-ATNSYS-CLR(null)ATN(null)SYSATNLIST LEN(null)(null)(null)VAL(null)(null)
50 IFGTHEN120
60 G=1
72 POKE53272,31
90 SYS57812"TOON 2.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
92 SC=204*256:SYSSC,96,92,60
94 MD=PEEK(64*256)
96 GOTO120
100 POKE214,Y:PRINT
102 PRINTTAB(X)"[176]"LEFT$(HZ$,XX)"[174]"
104 FORI=1TOYY:PRINTTAB(X)"[221]"LEFT$(SP$,XX)"[221]":NEXT
106 PRINTTAB(X)"[173]"LEFT$(HZ$,XX)"[189]"
108 RETURN
110 MD=PEEK(64*256)
120 PRINT" 1[154] [202]UST SHOW THE TOON.
130 [153]" 2CONT (null)HOW THE TOON AND PRINT IT ON A
140 PRINT"   7-PIN (1525-EMULATING) PRINTER.
150 [153]" 3CONT (null)HOW THE TOON AND PRINT IT ON AN
160 PRINT"   8-PIN ([197]PSON-EMULATING) PRINTER.
170 [153]" 4CONT (null)OOK AT (null)INNERS OF 201.
180 PRINT" 5[159] [210]ETURN TO [204][207][193][196][211][212][193][210].
190 [153]"LIST (null)AKE SURE YOUR PRINTER IS ON-LINE.
200 POKE198,0
201 POKE214,7:PRINT:PRINTTAB(12)TR$(TQ):TQ=(TQ-1)AND3:PRINT"[155]";
206 IFRND(1)>.90THENPOKE214,3:PRINT:PRINTTAB(13)EB$(RND(1)*5)
210 GETA$:IFA$<"1"ORA$>"5"THEN201
220 A1=VAL(A$):IFA1=5THEN40000
230 IFA1=4THENPRINT"[147]":POKE53272,22:LOAD"B.TOONWIN",DV
240 IFA1=1THEN600
250 IFA1=2THENTB=80:GOTO430
260 GOSUB680
270 POKE214,11:PRINT
280 PRINTTAB(7)"    [196][197][206][211][201][212][217]      [215][201][196][212][200]
290 [153][163]7)" 1CONT (null)INGLE       WIDE
300 PRINTTAB(7)" 2[154] [195]RT          NORMAL
310 [153][163]7)" 3CONT STR$OUBLE       NARROW
320 PRINTTAB(7)" 4[154] [196]OUBLE       WIDE
330 [153][163]7)" 5CONT (null)UAD         NARROW
340 PRINTTAB(7)" 6[154] [209]UAD         NORMAL
342 [153][163]7)" 7OPEN PEEKACK TO THE (null)AIN (null)ENU
350 POKE198,0
360 GETA$:IFA$<"1"ORA$>"7"THEN360
370 A2=VAL(A$):IFA2=1THEN DS=0:BT=1:TB=80
380 IFA2=2THEN DS=4:BT=1:TB=120
390 IFA2=3THEN DS=1:BT=1:TB=160
400 IFA2=4THEN DS=1:BT=2:TB=80
410 IFA2=5THEN DS=3:BT=2:TB=160
420 IFA2=6THEN DS=3:BT=3:TB=120
422 IFA2=7THEN30
430 GOSUB680
440 POKE214,11:PRINT
450 PRINTTAB(9)"    [212][193][194][160][208][207][211][201][212][201][207][206]
460 [153][163]9)" 1CONT (null)EFT
470 PRINTTAB(9)" 2[154]     [195]ENTER
480 [153][163]9)" 3CONT         (null)IGHT
490 IFA2<>3ANDA2<>5THEN520
500 PRINTTAB(9)" 4[154]   [195]ENTER-LEFT
510 [153][163]9)" 5CONT       LENENTER-RIGHT
512 PRINTTAB(9)" 6[159] [194]ACK TO [205]AIN [205]ENU
520 [151]198,0
530 [161]A$:[139]A$[179]"1"[176]A$[177]"6"[167]530
532 [139]A$[178]"6"[167]30
540 [139]A$[178]"1"[167]TB[178]0:[137]600
550 [139]A$[178]"2"[167]600
560 [139]A$[178]"3"[167]TB[178]TB[172]2:[137]600
570 [139]A2[179][177]3[175]A2[179][177]5[167]520
580 [139]A$[178]"4"[167]TB[178]53:[137]600
590 TB[178]266
600 [151]251,64:[151]252,96:[151]253,92:[139]G[178]1[167][158]51456
610 [158]51459 :
615 [141]2000:
616 [139]A1[177]1[175]A1[179]4[167]620
617 [139][194](198)[177]0[167]650
620 [139]A1[178]2[167][158]49152,TB,MD:[137]660
630 [139]A1[178]3[167][158]49155,TB,DS,BT,BT[172]320,MD:[137]660
640 [151]198,0
650 [161]A$:[139]A$[178]""[167]650
660 [151]186,DV:[158]51459
670 [137]30
680 [151]214,8:[153]:[129]I[178]1[164]14:[153][163]2)[200](SP$,35):[130]:[142]
2000 [158]SC[170]3,"	STOP"
2004 [129]X[178]0[164]CP:[141]2100:
2005 [158]SC[170]6,20[171][195](A$(X,0))[173]2,23,"WAIT"[170]A$(X,0)
2006 [158]SC[170]6,20[171][195](A$(X,1))[173]2,24,""[170]A$(X,1)
2008 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"Q"[167][151]198,1:[151]631,32:[142]
2009 [139]X[178]0[167]2014
2010 [141]2100:[158]SC[170]6,20[171][195](A$(X,2))[173]2,23,"STOP"[170]A$(X,2):[153]
2011 [158]SC[170]6,20[171][195](A$(X,3))[173]2,24,A$(X,3)
2012 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"Q"[167][151]198,1:[151]631,32:[142]
2014 [130]:[137]2004
2099 [142]
2100 [158]SC[170]6,0,23,"                                        "
2101 [158]SC[170]6,0,24,"                                        "
2102 [142]
3000 [135]CP:[134]A$(CP,3)
3001 [129]X[178]0[164]CP:[129]Y[178]0[164]3:[135]A$(X,Y):[130]:[130]
3002 TR$(0)[178]"(null)(null)SYS(null)CLR(null)-ATNSYS-CLR(null)ATN(null)SYSATN"
3003 TR$(1)[178]"(null)SYS(null)CLR(null)(null)-SYSATNCLR-(null)ATNSYS(null)CLRATN"
3004 TR$(2)[178]"SYS(null)CLR(null)(null)(null)SYS-CLRATN-(null)SYSATNCLR(null)ATN"
3005 TR$(3)[178]"CLR(null)(null)(null)SYS(null)CLR-ATN-SYS(null)CLRATN(null)ATN"
3006 [142]
3050 [131]11
3051 [131]"(null)RESS <(null)> TO VALXIT OR LENONTINUE (null)RINT"
3052 [131]"ATNNY OTHER (null)EY TO LENONTINUE"
3053 [131]"(null)RESS <(null)> TO VALXIT OR LENONTINUE (null)RINT"
3054 [131]"ATNNY OTHER (null)EY TO LENONTINUE"
3055 [131]"LEN(null)-(null)RIGHT$(null)(null)VAL(null) >> (null)TEPHEN (null). PEEKEIGLE"
3056 [131]"  #202    >>     (null)EWRY, (null)ATN    "
3057 [131]"PEEKEAN-GENERATED PTERODACTYL GAS? (null)OU"
3058 [131]"CAN BUY IT AT (null)LEFT$-VAL-(null)  (null)(null) CHR$ATN(null) LENOMPANY"
3096 [131]"LEN(null)-(null)RIGHT$(null)(null)VAL(null) >> MID$OHN (null)APUTA  "
3097 [131]"  #201    >> PEEKREMERTON, (null)ATN"
3098 [131]"RIGHT$ KNOW YOU FEEL RUMPLED ASCRED, BUT YOU
3099 DATA"MUST AWAIT THE INVENTION OF THE MANGLE.
3100 [131]"(null)ANDY LENOBBS","STR$ELPHUS, (null)(null)"
3101 [131]"(null)HANKS! (null)HE ASCLINTSTONES ARE NOW (null)(null)"
3102 [131]"STARS BECAUSE (null)(null)(null) WANTED MORE MONEY!
3103 DATA"[211]TEPHEN [208]. [194]EIGLE","[206]EWRY, [208][193]"
3104 DATA"[198]RED AND [215]ILMA INVITED US TO A COOK"
3105 DATA"OUT, ONLY WE GOTTA BRING THE RIBS."
3106 DATA"[211]TEPHEN [208]. [194]EIGLE","[206]EWRY, [208][193]"
3107 DATA"[198]RED & [215]ILMA WANTED TO KNOW IF WE CAN"
3108 DATA"ATTEND THEIR DAUGHTER'S [194]APTISM."
3109 DATA"[211]TEPHEN [208]. [194]EIGLE","[206]EWRY, [208][193]"
3110 DATA"[199]LAD THE [201][210][211] DEADLINE IS PASSED."
3111 DATA"[212]HOSE STONE TABLETS WERE AWFULLY HEAVY."
3112 DATA"[211]TEPHEN [208]. [194]EIGLE","[206]EWRY, [208][193]"
3113 DATA"[193]NYBODY KNOW WHAT NEXT YEAR'S HEATING"
3114 DATA"BILL IS GONNA BE LIKE?
3115 [131]"(null)TEPHEN (null). PEEKEIGLE","(null)EWRY, (null)ATN"
3116 [131]"RIGHT$'M ON THE WAY TO THE BUTCHER FOR
3117 DATA"[194]RONTOSAURUS BURGERS. [217]UM-YUM!
3118 [131]"(null)TEPHEN (null). PEEKEIGLE","(null)EWRY, (null)ATN"
3119 [131]"(null)ITH THIS TAX REFORM, MAYBE RIGHT$ CAN GET"
3120 [131]"A NEW HAIR-DO AND SOME MODERN CLOTHES!"
3121 [131]"STR$ANIEL MID$. (null)OBINSON","(null)ANSAS LENITY, (null)(null)"
3122 [131]"(null)OW DON'T FORGET, AT MY FAMILY'S HOUSE"
3123 [131]"THEY ARE PETS, NOT SNACKS."
3124 [131]"STR$ANIEL MID$. (null)OBINSON","(null)ANSAS LENITY, (null)(null)"
3125 [131]"(null)HEN YOUR AD SAID '(null)TRONG (null)ILENT (null)YPE'
3126 DATA"[201] PICTURED SOMEONE MORE...EVOLVED."
3200 LOAD"B.TOONWIN1",DV
3990 DATA"PRESS <[209]> TO [197]XIT"," "
10000 D=PEEK(186):N$="TOONWIN":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 LOAD"H",DV