home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.tricks (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  7KB  |  220 lines
  1. 5 poke650,128:poke56,56:poke55,0:clr:print"[147]";:a=rnd(-ti)
  2. 10 gosub60000
  3. 20 sys57812"tricks.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 30 sys57812"brunswick font",8,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 40 goto200
  6. 97 :
  7. 98 :rem screen subroutines
  8. 99 :
  9. 100 printtab(20-(len(m$)-of)/2);:fora=1tolen(m$):printmid$(m$,a,1);
  10. 105 next:print:return
  11. 110 printtab(20-(len(m$)-of)/2);:printm$:return
  12. 120 print""cl$;
  13. 122 print"[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][174]"
  14. 124 fora=1to23:print"[221]                                    [221]":next
  15. 126 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][189]";:return
  16. 130 print""cl$;
  17. 132 print"[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][174]"
  18. 134 fora=1to7:forb=1to3:print" [221]"b$(b)cl$"[221]":next:next
  19. 136 print" [221]"b$(1)cl$"[221]":print" [221]"b$(2)cl$"[221]"
  20. 138 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][189]";:return
  21. 140 print""cl$;:ifch=0then130
  22. 142 print"[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][174]"
  23. 144 fora=1to23:print" [221][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][182][146]"cl$"[221]":next
  24. 146 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][189]";:return
  25. 197 :
  26. 198 :rem set up
  27. 199 :
  28. 200 cs=49644:f2=1:poke53281,0:poke53280,0:print"[147]";:poke53272,31
  29. 201 dimch(7),c(10),d(10),c$(2),b$(3)
  30. 202 fora=0to7:readch(a):next:rem            data for characters
  31. 203 data 228,239,249,226,120,119,99,32
  32. 204 fora=1to9:readc(a):next:rem            data for colors
  33. 205 data6,14,3,13,1,13,3,14,6
  34. 206 fora=1to10:readd(a):next
  35. 207 data7,1,7,10,8,2,9,2,8,10
  36. 208 fora=1to12:b$(1)=b$(1)+"![154]![159]!":next
  37. 209 b$(2)="[159]!"+left$(b$(1),70):b$(3)="[154]!"+left$(b$(2),70)
  38. 210 sl=49152:rem screen fill
  39. 211 sh=49203:rem screen shake
  40. 212 fs=49241:rem flicker
  41. 213 ex=49482:rem explosion
  42. 214 cs=49644:rem color swap
  43. 215 sf=49712:rem fade
  44. 216 cf=49761:rem color fill
  45. 217 sc=49811:rem color scroll
  46. 218 cr=50085:rem curtain
  47. 220 p=1:n=2:syscf,0:syssl,32:iff9=0thenf9=1:td=30
  48. 230 cl$="[158]":gosub120
  49. 250 cl$="[158]":print"[154]":m$="[196]emo of [202]ohnny's [212]ricks":gosub100
  50. 270 print:m$="[208]ress the key of the routine that":gosub110
  51. 280 m$="you want to see.":gosub110
  52. 282 print:print
  53. 285 print"[158]";:m$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":gosub110:of=2
  54. 290 m$="[221]  [154][193] - [211]creen [198]ill[158]   [221]":gosub110
  55. 300 m$="[221]  [154][194] - [211]creen [211]hake[158]  [221]":gosub110
  56. 305 m$="[221]  [154][195] - [198]licker[158]       [221]":gosub110
  57. 310 m$="[221]  [154][196] - [197]xplosion[158]     [221]":gosub110
  58. 320 m$="[221]  [154][197] - [197]xplosion [207]ff[158] [221]":gosub110
  59. 330 m$="[221]  [154][198] - [195]olor [211]wap[158]    [221]":gosub110
  60. 340 m$="[221]  [154][199] - [211]creen [198]ade[158]   [221]":gosub110
  61. 350 m$="[221]  [154][200] - [195]olor [198]ill[158]    [221]":gosub110
  62. 360 m$="[221]  [154][201] - [195]olor [211]croll[158]  [221]":gosub110
  63. 370 m$="[221]  [154][202] - [195]urtain[158]       [221]":gosub110
  64. 380 m$="[221]  [154][203] - [212]he [215]orks![158]    [221]":gosub110
  65. 390 of=0:print"[158]";:m$="[221]  [204] - [204][207][193][196][211][212][193][210]      [221]":gosub110
  66. 393 m$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub110
  67. 395 iff=1thensysfs,10,1:f=0
  68. 396 poke198,0
  69. 397 :
  70. 398 :rem  menu get
  71. 399 :
  72. 400 geta$:ifa$<"a"ora$>"l"then450
  73. 410 onasc(a$)-64goto500,600,700,800,900,1000,1100,1200,1300,1400,1500,1600
  74. 450 ifa$<>""thensyssh,5:goto400
  75. 460 syscs,c(p),c(n):syscs,d(p),d(n):p=n:n=n+1:ifn>9thenn=1
  76. 470 goto400
  77. 497 :
  78. 498 :rem  screen fill
  79. 499 :
  80. 500 gosub120:print"":m$="[211]creen [198]ill":gosub100
  81. 510 print"":m$="[211]ort of a [214]enetian blind effect.":gosub100
  82. 515 fora=1to2500:next
  83. 520 foraa=0to2:fora=6to0step-1:syssl,ch(a):forb=1to50:next:next:syssl,160
  84. 530 fora=0to7:syssl,ch(a):forb=1to50:next:next:next
  85. 540 goto220
  86. 597 :
  87. 598 :rem  screen shake
  88. 599 :
  89. 600 gosub130:print"[159]":m$="[211]creen [211]hake":gosub100
  90. 605 fora=1to1000:next
  91. 610 print"[158]":m$="[198]asten your seat belts":gosub100
  92. 620 fora=1to2000:next:forb=1to3:sys sh,255:next:goto220
  93. 697 :
  94. 698 :rem  screen flicker
  95. 699 :
  96. 700 gosub140:print"[154]":m$="[211]creen [198]lickering":gosub100
  97. 710 print"[150]":m$="[215]atch closely...":gosub100
  98. 720 fora=1to3000:next:sys fs,15,0:fora=1to1000:next
  99. 730 sys fs,10,1:fora=1to500:next:goto220
  100. 797 :
  101. 798 :rem  explosion
  102. 799 :
  103. 800 onint(rnd(1)*3)+1gosub120,130,140
  104. 801 print"[156]":m$="[197]xplosion [207]n":gosub100
  105. 802 ifbm=1thenbm=0:sysex,5:fora=1to150:next:poke53281,0
  106. 803 print"":m$="[212]his is my favorite...":gosub100
  107. 804 c=0:sys ex,c,0,0:bm=1
  108. 806 print"[158]";:m$="[212]o change the effect, press [198]1":gosub110
  109. 808 print"[158]";:m$="[212]o return to the menu, press [211][208][193][195][197]":gosub110
  110. 810 geta$:ifa$="[133]"thensysex,5:c=c+1:f=1:ifc>4thenc=0
  111. 815 iff=1thenf=0:fora=1to10:next:sysex,c,0,0
  112. 820 ifa$<>" "then810
  113. 830 goto220
  114. 897 :
  115. 898 :rem  explosion off
  116. 899 :
  117. 900 gosub120:print"":ifbm=0thenm$="[201]t isn't on...":gosub100:goto950
  118. 910 bm=0:sysex,5:print"":fora=1to500:next:poke53281,0
  119. 920 m$="[207]k, it's off now.  [215]hew!":gosub100
  120. 950 fora=1to2500:next:goto220
  121. 997 :
  122. 998 :rem  color swap
  123. 999 :
  124. 1000 gosub130:print"[159]":of=4:m$="[176][192][192][192][192][192][192][154][195][207][204][207][210][159][192][192][154][211][215][193][208][159][192][192][192][192][192][192][192][192][174]"
  125. 1005 gosub110:of=2
  126. 1010 m$="[221] [217]ou can do some pretty[159]  [221]":gosub110
  127. 1020 m$="[221] neat things with this.[159]  [221]":gosub110:of=0
  128. 1030 m$="[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][189]":gosub110
  129. 1080 fora=1to92:syscs,6,0:syscs,14,6:syscs,3,14:syscs,0,3:next
  130. 1083 goto220
  131. 1097 :
  132. 1098 :rem  screen fade
  133. 1099 :
  134. 1100 gosub140:print"[150]":m$="[211]creen [198]ade":gosub100
  135. 1110 print"":m$="[201]t just fades to black...":gosub100
  136. 1115 print:m$="[215]orks best on a monochrome monitor":gosub100
  137. 1117 fora=1to2300:next
  138. 1120 fora=1to16:syssf:forb=1to100:next:next
  139. 1130 fora=1to1000:next:goto220
  140. 1197 :
  141. 1198 :rem  color fill
  142. 1199 :
  143. 1200 gosub140:print"[150]":m$="[195]olor [198]ill":gosub100
  144. 1210 print"":m$="[212]his changes text color quickly.":gosub100
  145. 1220 fora=1to1500:next
  146. 1230 fora=1to20:syscf,int(rnd(1)*15+1):forb=1to500:next:next:goto220
  147. 1297 :
  148. 1298 :rem  color scroll
  149. 1299 :
  150. 1300 onint(rnd(1)*3)+1gosub120,130,140
  151. 1305 ifbm=1then1390
  152. 1310 print"":m$="[195]olor [211]croll":gosub110
  153. 1320 print"":m$="[212]o change the effect, press [198]1":gosub110
  154. 1330 print:m$="[212]o change the type, press [198]3":gosub110
  155. 1340 print:m$="and to return, press [211][208][193][195][197]":gosub110:c=0:t=0
  156. 1350 geta$:ifa$="[133]"thenc=c+1:ifc>4thenc=0
  157. 1360 ifa$="[134]"thent=t+1:ift>2thent=0
  158. 1370 ifa$<>" "thensyssc,c,t:goto1350
  159. 1380 goto220
  160. 1390 print"":m$="[212]his can't be used with [197]xplosion":gosub100
  161. 1395 print"":m$="[211]orry...":gosub100:fora=1to1200:next:goto220
  162. 1397 :
  163. 1398 :rem  curtain
  164. 1399 :
  165. 1400 gosub130:print"[158]":m$="[195]urtain":gosub100
  166. 1410 print"