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"":M$="[206]EAT WAY OF CLEARING A SCREEN...":GOSUB100
1415 FORA=1TO1000:NEXT
1420 SYSCR,1,100,0:FORA=1TO10:NEXT
1430 SYSCR,1,50,1:FORA=1TO1000:NEXT:GOTO220
1497 :
1498 :REM  THE WORKS!
1499 :
1500 SYSCS,0,1:SYSEX,3,0,1:SYSSH,80:FORA=1TO200:NEXT:POKE53281,0
1502 PRINT"";:M$="[207][203],[217][207][213] [193][211][203][197][196] [198][207][210] [201][212]!!!":GOSUB100:FORA=1TO2000:NEXT
1505 IFBM=1THENBM=0:SYSEX,5
1510 SYSCR,6,20,0:POKE53281,6:SYSEX,2,0,0:SYSSL,32:FORA=1TO620:NEXT
1530 SYSEX,5:SYSSL,160:SYSEX,4,0,0:FORA=0TO7:SYSSL,CH(A):FORB=1TO10:NEXT:NEXT
1540 GOSUB120:PRINT""
1545 M$="[205]AY BE HAZARDOUS TO YOUR HEALTH!!!"
1550 GOSUB100:FORA=1TO1000:NEXT:SYSEX,5:POKE53281,0
1555 C1=INT(RND(1)*5)
1560 PRINT"[144]";:FORA=1TO23:GOSUB110:SYSSC,C1,1:NEXT
1570 FORA=1TO100:SYSSC,C1,1:NEXT:FORA=0TO15:SYSSF:NEXT
1580 SYSFS,1,0:F=1:GOTO220
1597 :
1598 :REM  QUIT TO LOADSTAR
1599 :
1600 IFBM=1THENBM=0:SYSEX,5
1605 POKE53281,0
1610 GOSUB140:PRINT"":M$="[193]RE YOU SURE YOU WANT TO RETURN TO":TD=40
1620 GOSUB100:PRINT"":M$=" [204] [207] [193] [196] [211] [212] [193] [210] ":GOSUB100
1630 PRINT"":TD=0:M$="????????????????????????????????????":GOSUB100
1640 PRINT"":M$="[208]RESS [[217]] FOR YES OR [[206]] FOR NO":GOSUB110
1650 GETA$:IFA$=""THENSYSSC,1,0:GOTO1650
1660 IFA$="N"THEN220
1670 IFA$<>"Y"THENFORA=1TO20:SYSSC,0,2:NEXT:GOTO1650
1675 FORA=1TO5:SYSCF,3:SYSCF,0:SYSCF,1:NEXT:SYSCF,10:FORA=1TO1900:NEXT
1677 SYS FS,3,0:PRINT"[147]";:SYSFS,1,1
1680 PRINT"[147]";:POKE53272,21:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
1682 INPUT#15,A$,B$:IFA$<>"63"THEN1690
1684 PRINT"[144][147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8";
1685 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13
1686 END
1690 POKE53281,6:POKE53280,14:PRINT"[154][147]";:END
9999 END
10000 OPEN15,8,15,"I0":PRINT#15,"S0:TRICKS":CLOSE15:SAVE"TRICKS",8:END
60000 POKE214,4:PRINT:PRINT"[129]     [202] [207] [200] [206] [206] [217] ' [211]   [212] [210] [201] [195] [203] [211]"
60005 PRINT" [154][206]INE SCREEN EFFECTS FOR YOUR PROGRAMS"
60008 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[202]OHNNY'S [212]RICKS"
60040 B9$(1)="BY [202]OHNNY [200]ARRIS
60050 B9$(2)[178]"(LEN) 1990 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #74"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]