home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 170 / 170.d81 / b.toon 170 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  4.1 KB  |  143 lines
  1. 10 poke56,56:poke55,0:clr:poke53371,0
  2. 12 t=170:t2=1:t$(0)=str$(t-2):t$(1)=str$(t):l(0)=128:l(1)=64
  3. 14 nm$="[204]ouis [211]olano"
  4. 16 ad$="of [211]tevensville [205][196]"
  5. 20 dv=peek(186):ifdv<8thendv=8
  6. 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]"
  7. 24 sp$="                                        "
  8. 26 eb$(0)="  @    @  "
  9. 27 eb$(1)=" @    @   "
  10. 28 eb$(2)="   @    @ "
  11. 30 poke53281,0:poke53280,0:print"[147]"
  12. 32 x=1:y=0:xx=36:yy=22:gosub100
  13. 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]
  14. 35 [153][163]4)"   (NULL)    (NULL)     (NULL) (NULL)     (NULL) (NULL)  (NULL)  (NULL)
  15. 36 printtab(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
  16. 38 [153]"print#        (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  17. 40 [153]"     (NULL)(NULL)(NULL)(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)val(NULL)(NULL)
  18. 50 ifgthen120
  19. 60 g=1
  20. 70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  21. 72 poke53272,31
  22. 80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  23. 88 sys57812"toon"+t$(0)+".shp",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  24. 90 sys57812"toon"+t$(1)+".shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  25. 92 sc=204*256:syssc,96,92,56
  26. 96 goto120
  27. 100 poke214,y:print
  28. 102 printtab(x)"[176]"left$(hz$,xx)"[174]"
  29. 104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  30. 106 printtab(x)"[173]"left$(hz$,xx)"[189]"
  31. 108 return
  32. 120 gosub680:poke214,9:print:print" 1[154] [202]ust show [155][212]oon"t$(t2)"[154]."
  33. 130 print" 2[154] [211]how [155][212]oon"t$(t2)"[154] and print it on a
  34. 140 [153]"   7-pin (1525-emulating) printer.
  35. 150 print" 3[154] [211]how [155][212]oon"t$(t2)"[154] and print it on an
  36. 160 [153]"   8-pin (valpson-emulating) printer.
  37. 170 ift2=0thenprint" [151]4 [197]nter a caption for [212]oon"t$(1)".":goto180
  38. 172 print" 4[154] [197]nter a caption for [155][212]oon"t$(1)"[154]."
  39. 180 print" 5[154] [212]oggle between [155][212]oon"t$(0)"[154] and[155]"t$(1)"[154]."
  40. 190 print" 6[159] [210]eturn to [204][207][193][196][211][212][193][210].
  41. 200 [151]198,0
  42. 206 [139][187](1)[177].98[167][151]214,3:[153]:[153][163]13)eb$([187](1)[172]3)
  43. 210 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]206
  44. 220 a1[178][197](a$):[139]a1[178]6[167]40000
  45. 222 [139]a1[178]5[167]t2[178]1[171]t2:g[178]1:[137]120
  46. 230 [139]a1[178]4[167][139]t2[178]1[167]690
  47. 240 [139]a1[178]1[167]600
  48. 250 [139]a1[178]2[167]tb[178]80:[137]430
  49. 252 [139]a1[179][177]3[167]200
  50. 260 [141]680
  51. 270 [151]214,11:[153]
  52. 280 [153][163]7)"    str$val(NULL)(NULL)right$(NULL)(NULL)      (NULL)right$str$(NULL)left$
  53. 290 printtab(7)" 1[154] [211]ingle       wide
  54. 300 [153][163]7)" 2cont lenrt          normal
  55. 310 printtab(7)" 3[154] [196]ouble       narrow
  56. 320 [153][163]7)" 4cont str$ouble       wide
  57. 330 printtab(7)" 5[154] [209]uad         narrow
  58. 340 [153][163]7)" 6cont (NULL)uad         normal
  59. 342 printtab(7)" 7[159] [194]ack to the [205]ain [205]enu
  60. 350 [151]198,0
  61. 360 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]360
  62. 370 a2[178][197](a$):[139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  63. 380 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  64. 390 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  65. 400 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  66. 410 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  67. 420 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  68. 422 [139]a2[178]7[167]30
  69. 430 [141]680
  70. 440 [151]214,11:[153]
  71. 450 [153][163]9)"    (NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  72. 460 printtab(9)" 1[154] [204]eft
  73. 470 [153][163]9)" 2cont     lenenter
  74. 480 printtab(9)" 3[154]         [210]ight
  75. 490 [139]a2[179][177]3[175]a2[179][177]5[167]520
  76. 500 [153][163]9)" 4cont   lenenter-left
  77. 510 printtab(9)" 5[154]       [195]enter-right
  78. 512 [153][163]9)" 6open peekack to (NULL)ain (NULL)enu
  79. 520 poke198,0
  80. 530 geta$:ifa$<"1"ora$>"6"then530
  81. 532 ifa$="6"then30
  82. 540 ifa$="1"thentb=0:goto600
  83. 550 ifa$="2"then600
  84. 560 ifa$="3"thentb=tb*2:goto600
  85. 570 ifa2<>3anda2<>5then520
  86. 580 ifa$="4"thentb=53:goto600
  87. 590 tb=266
  88. 600 ift2=0thengosub930
  89. 608 poke251,l(t2):poke252,96:poke253,92:ifg=1thensys51456
  90. 610 sys51459
  91. 620 ifa1=2thensys49152,tb,128:goto660
  92. 630 ifa1=3thensys49155,tb,ds,bt,bt*320,128:goto660
  93. 640 poke198,0
  94. 650 geta$:ifa$=""then650
  95. 660 poke186,dv:sys51459
  96. 670 goto30
  97. 680 poke214,8:print:fori=1to14:printtab(2)left$(sp$,35):next:return
  98. 690 poke251,64:poke252,96:poke253,92:sys51456
  99. 700 poke214,17:print
  100. 710 sys51459
  101. 720 syssc+6,1,23,"[152][197]nter your caption here. [215]hen done,
  102. 730 [158]sc[170]6,1,24,"press asc1. (NULL)ress (NULL)(NULL)atnlenval to begin.
  103. 740 poke198,0
  104. 750 geta$:ifa$<>" "then750
  105. 760 syssc+6,0,23,"                                        "
  106. 770 syssc+6,0,24,"                                        [144]"
  107. 780 syssc+6,1,23," [146][157]"
  108. 790 poke198,0:syssc+3," [146][157]"
  109. 800 geta$:ifa$=""then800
  110. 810 ifa$=chr$(133)thensyssc+3," ":sys51459:g=2:goto200
  111. 820 ifa$=chr$(20)thensyssc+3," [157][157]":goto790
  112. 830 ifa$="[157]"thensyssc+3," [157][157] [146][157]":goto790
  113. 840 ifa$=""thensyssc+3,"  [146][157]":goto790
  114. 850 ifa$=""thensyssc+3," [157] [146][157]":goto790
  115. 860 ifa$="[145]"thensyssc+3," [145][157] [146][157]":goto790
  116. 870 ifa$=chr$(34)then790
  117. 880 ifa$=chr$(13)thensyssc+3," "
  118. 890 ifa$>"[218]"then790
  119. 900 ifa$>"_"anda$<"[193]"then790
  120. 910 syssc+3,a$
  121. 920 goto790
  122. 930 gosub680
  123. 940 x=3:y=10:xx=32:yy=8:gosub100
  124. 950 poke214,12:print
  125. 952 printtab(7)"[155][212]he winner of [212][207][207][206] 168 is[154]"
  126. 954 printtab(20-len(nm$)/2)nm$
  127. 956 printtab(20-len(ad$)/2)ad$
  128. 960 printtab(6)"[155][208]ress a key to see [212]oon"t$(0)"."
  129. 970 poke198,0
  130. 980 geta$:ifa$=""then980
  131. 990 return
  132. 10000 d=peek(186):n$="b.toon 170":open15,d,15,"s0:"+n$:close15:saven$,d:end
  133. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  134. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  135. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  136. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  137. 40040 close2:open2,i,2:close2:ifstthen40060
  138. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  139. 40060 next:return
  140. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  141. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  142. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  143.