home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar - Compleat Programmer
/
comprog1.d81
/
b.tricks
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
7KB
|
220 lines
5 poke650,128:poke56,56:poke55,0:clr:print"[147]";:a=rnd(-ti)
10 gosub60000
20 sys57812"tricks.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
30 sys57812"brunswick font",8,0:poke780,0:poke781,0:poke782,56:sys65493
40 goto200
97 :
98 :rem screen subroutines
99 :
100 printtab(20-(len(m$)-of)/2);:fora=1tolen(m$):printmid$(m$,a,1);
105 next:print:return
110 printtab(20-(len(m$)-of)/2);:printm$:return
120 print""cl$;
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]"
124 fora=1to23:print"[221] [221]":next
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
130 print""cl$;
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]"
134 fora=1to7:forb=1to3:print" [221]"b$(b)cl$"[221]":next:next
136 print" [221]"b$(1)cl$"[221]":print" [221]"b$(2)cl$"[221]"
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
140 print""cl$;:ifch=0then130
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]"
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
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
197 :
198 :rem set up
199 :
200 cs=49644:f2=1:poke53281,0:poke53280,0:print"[147]";:poke53272,31
201 dimch(7),c(10),d(10),c$(2),b$(3)
202 fora=0to7:readch(a):next:rem data for characters
203 data 228,239,249,226,120,119,99,32
204 fora=1to9:readc(a):next:rem data for colors
205 data6,14,3,13,1,13,3,14,6
206 fora=1to10:readd(a):next
207 data7,1,7,10,8,2,9,2,8,10
208 fora=1to12:b$(1)=b$(1)+"![154]![159]!":next
209 b$(2)="[159]!"+left$(b$(1),70):b$(3)="[154]!"+left$(b$(2),70)
210 sl=49152:rem screen fill
211 sh=49203:rem screen shake
212 fs=49241:rem flicker
213 ex=49482:rem explosion
214 cs=49644:rem color swap
215 sf=49712:rem fade
216 cf=49761:rem color fill
217 sc=49811:rem color scroll
218 cr=50085:rem curtain
220 p=1:n=2:syscf,0:syssl,32:iff9=0thenf9=1:td=30
230 cl$="[158]":gosub120
250 cl$="[158]":print"[154]":m$="[196]emo of [202]ohnny's [212]ricks":gosub100
270 print:m$="[208]ress the key of the routine that":gosub110
280 m$="you want to see.":gosub110
282 print:print
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
290 m$="[221] [154][193] - [211]creen [198]ill[158] [221]":gosub110
300 m$="[221] [154][194] - [211]creen [211]hake[158] [221]":gosub110
305 m$="[221] [154][195] - [198]licker[158] [221]":gosub110
310 m$="[221] [154][196] - [197]xplosion[158] [221]":gosub110
320 m$="[221] [154][197] - [197]xplosion [207]ff[158] [221]":gosub110
330 m$="[221] [154][198] - [195]olor [211]wap[158] [221]":gosub110
340 m$="[221] [154][199] - [211]creen [198]ade[158] [221]":gosub110
350 m$="[221] [154][200] - [195]olor [198]ill[158] [221]":gosub110
360 m$="[221] [154][201] - [195]olor [211]croll[158] [221]":gosub110
370 m$="[221] [154][202] - [195]urtain[158] [221]":gosub110
380 m$="[221] [154][203] - [212]he [215]orks![158] [221]":gosub110
390 of=0:print"[158]";:m$="[221] [204] - [204][207][193][196][211][212][193][210] [221]":gosub110
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
395 iff=1thensysfs,10,1:f=0
396 poke198,0
397 :
398 :rem menu get
399 :
400 geta$:ifa$<"a"ora$>"l"then450
410 onasc(a$)-64goto500,600,700,800,900,1000,1100,1200,1300,1400,1500,1600
450 ifa$<>""thensyssh,5:goto400
460 syscs,c(p),c(n):syscs,d(p),d(n):p=n:n=n+1:ifn>9thenn=1
470 goto400
497 :
498 :rem screen fill
499 :
500 gosub120:print"":m$="[211]creen [198]ill":gosub100
510 print"":m$="[211]ort of a [214]enetian blind effect.":gosub100
515 fora=1to2500:next
520 foraa=0to2:fora=6to0step-1:syssl,ch(a):forb=1to50:next:next:syssl,160
530 fora=0to7:syssl,ch(a):forb=1to50:next:next:next
540 goto220
597 :
598 :rem screen shake
599 :
600 gosub130:print"[159]":m$="[211]creen [211]hake":gosub100
605 fora=1to1000:next
610 print"[158]":m$="[198]asten your seat belts":gosub100
620 fora=1to2000:next:forb=1to3:sys sh,255:next:goto220
697 :
698 :rem screen flicker
699 :
700 gosub140:print"[154]":m$="[211]creen [198]lickering":gosub100
710 print"[150]":m$="[215]atch closely...":gosub100
720 fora=1to3000:next:sys fs,15,0:fora=1to1000:next
730 sys fs,10,1:fora=1to500:next:goto220
797 :
798 :rem explosion
799 :
800 onint(rnd(1)*3)+1gosub120,130,140
801 print"[156]":m$="[197]xplosion [207]n":gosub100
802 ifbm=1thenbm=0:sysex,5:fora=1to150:next:poke53281,0
803 print"":m$="[212]his is my favorite...":gosub100
804 c=0:sys ex,c,0,0:bm=1
806 print"[158]";:m$="[212]o change the effect, press [198]1":gosub110
808 print"[158]";:m$="[212]o return to the menu, press [211][208][193][195][197]":gosub110
810 geta$:ifa$="[133]"thensysex,5:c=c+1:f=1:ifc>4thenc=0
815 iff=1thenf=0:fora=1to10:next:sysex,c,0,0
820 ifa$<>" "then810
830 goto220
897 :
898 :rem explosion off
899 :
900 gosub120:print"":ifbm=0thenm$="[201]t isn't on...":gosub100:goto950
910 bm=0:sysex,5:print"":fora=1to500:next:poke53281,0
920 m$="[207]k, it's off now. [215]hew!":gosub100
950 fora=1to2500:next:goto220
997 :
998 :rem color swap
999 :
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]"
1005 gosub110:of=2
1010 m$="[221] [217]ou can do some pretty[159] [221]":gosub110
1020 m$="[221] neat things with this.[159] [221]":gosub110:of=0
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
1080 fora=1to92:syscs,6,0:syscs,14,6:syscs,3,14:syscs,0,3:next
1083 goto220
1097 :
1098 :rem screen fade
1099 :
1100 gosub140:print"[150]":m$="[211]creen [198]ade":gosub100
1110 print"":m$="[201]t just fades to black...":gosub100
1115 print:m$="[215]orks best on a monochrome monitor":gosub100
1117 fora=1to2300:next
1120 fora=1to16:syssf:forb=1to100:next:next
1130 fora=1to1000:next:goto220
1197 :
1198 :rem color fill
1199 :
1200 gosub140:print"[150]":m$="[195]olor [198]ill":gosub100
1210 print"":m$="[212]his changes text color quickly.":gosub100
1220 fora=1to1500:next
1230 fora=1to20:syscf,int(rnd(1)*15+1):forb=1to500:next:next:goto220
1297 :
1298 :rem color scroll
1299 :
1300 onint(rnd(1)*3)+1gosub120,130,140
1305 ifbm=1then1390
1310 print"":m$="[195]olor [211]croll":gosub110
1320 print"":m$="[212]o change the effect, press [198]1":gosub110
1330 print:m$="[212]o change the type, press [198]3":gosub110
1340 print:m$="and to return, press [211][208][193][195][197]":gosub110:c=0:t=0
1350 geta$:ifa$="[133]"thenc=c+1:ifc>4thenc=0
1360 ifa$="[134]"thent=t+1:ift>2thent=0
1370 ifa$<>" "thensyssc,c,t:goto1350
1380 goto220
1390 print"":m$="[212]his can't be used with [197]xplosion":gosub100
1395 print"":m$="[211]orry...":gosub100:fora=1to1200:next:goto220
1397 :
1398 :rem curtain
1399 :
1400 gosub130:print"[158]":m$="[195]urtain":gosub100
1410 print"