Loadstar 204/204.d81/toonwin

Commodore BASIC | 2022-08-26 | 5KB | 164 lines

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