10 REM LAMERZ KEEP OUT!!!!!(null)
90 V=53248:POKE53272,20
100 POKE53280,0:POKE53281,0
110 PRINT"[147]"
190 GOSUB2000
200 GOSUB1000
210 GOSUB3000
220 GOSUB4000
230 GOSUB5000
240 GOTO 6000
999 END
1000 :
1010 REM INTRO
1020 :
1090 T$="MAC/ERD "
1100 FORX=30TO1STEP-1:PRINT"[147]";RIGHT$(T$,X):NEXTX
1110 T$="PRESENTS "
1120 FORX=39TO1STEP-1:PRINT"[147]";RIGHT$(T$,X):NEXTX
1130 T$="A RULING PRODUCTION  "
1140 FORX=60TO1STEP-2:PRINT"[147]";RIGHT$(T$,X):NEXTX
1150 C$="[144][159][156][158][129][149][150][151][152][153][154][155]"
1152 FORY=17TO1STEP-1
1155 PRINT"[147]";:FORX=1TO3:PRINT:NEXTX
1160 FORX=1TO16STEP2 :PRINTMID$(C$,X,1);:PRINTTAB(Y);"CISAB"
1170 PRINTMID$(C$,X+1,1);:PRINTTAB(34-Y);"CISAB":NEXTX
1180 NEXTY
1190 PRINT"[147]"
1200 FORX=1TO5
1210 GOSUB2500
1220 FORY=15TO0STEP-1:POKE53280,Y:POKE53281,Y:NEXTY
1230 NEXTX
1999 RETURN
2000 :
2010 REM INIT SID
2020 :
2030 FORX=54272TO54296:POKEX,0:NEXT
2040 RETURN
2500 :
2510 REM SOUND
2520 :
2530 POKE54296,15:POKE54277,190:POKE54278,248
2540 POKE54273,17:POKE54272,37:POKE54276,17
2550 FORT=1TO250:NEXTT
2560 POKE54276,16
2999 RETURN
3000 :
3001 REM CIRCLE
3002 :
3005 T$="                                        HEY MAC FROM ERD HERE... THE "
3010 T$=T$+"NTSC ELITE RULING DIVISION... WHAT YOU'RE LOOKING AT HERE IS A NICE"
3020 T$=T$+" PEICE OF CODE IF I DO SAY SO MYSELF... HEY BIOTICUS, BEAT "
3030 T$=T$+"THIS!!!!!!!                                        "
3100 FORX=0TO62:POKE832+X,255:NEXTX
3110 POKE2040,13:POKEV+21,1:POKEV+0,100:POKEV+1,100:POKEV+39,3
3200 FORX=1TOLEN(T$):PRINT"";MID$(T$,X,40)
3210 A=A+.1:X1=(COS(A)+1)*110:Y1=(SIN(A)+1)*80
3215 X1=X1+30:Y1=Y1+50
3220 POKEV+0,X1:POKEV+1,Y1
3230 NEXTX
3998 POKEV+21,0
3999 RETURN
4000 :
4010 REM PART 2
4020 :
4100 T$="                                        AND THIS IS A REALTIME STAR "
4110 T$=T$+"FEILD GENERATER... IBET BIOTICUS COULD TEECH ME A BETTER WAY OF "
4120 T$=T$+"DOING THIS...                                        NOT!!!! THIS"
4130 T$=T$+" ROUTENE IS ALLREADY IN A WORD, PERFECTON!!"
4200 FORX=1TOLEN(T$):PRINT"";MID$(T$,X,40)
4300 S=RND(1)*900:POKE55396+S,RND(1)*15:POKE1124+S,81
4310 S=RND(1)*900:POKE55396+S,RND(1)*15:POKE1124+S,81
4400 NEXTX
4999 RETURN
5000 :
5010 REM DYCP
5020 :
5030 PRINT"[147]"
5050 D$=""
5060 C$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][145][145][145][145][145][145][145][145][145][145][145]"
5100 T$="          AND NOW WE HAVE ARIVED AT THE"
5110 T$=T$+" GRAND FINALLY OF THIS PRODUCTON... THE GRATEST DYCP YOUVE EVER"
5120 T$=T$+" SEEN!!  I COULDNT MAKE A MEGADYCP BUT MABE NEXT TIME!!!"
5130 T$=T$+"        "
5200 FORX=1TOLEN(T$)
5210 Y2=Y2+.3
5220 Y3=Y2
5230 FORY=0TO6
5240 PRINT"";TAB(Y);C$;
5250 PRINTLEFT$(D$,(COS(Y3)+1)*5);MID$(T$,X+Y,1)
5260 Y3=Y3+.3
5270 NEXTY
5280 NEXTX
5999 RETURN
6000 :
6010 REM ENDING/CREDITS
6020 :
6030 PRINT"[147]"
6040 PRINT"ALL CODE/GFX/SOUND BY MAC/ERD"
6050 PRINT
6060 PRINT"COPYWRITE 2001"
6070 PRINT
6080 PRINT"P.S. LIGHT I HOPE THIS IS GOOD ENUF!!!"
6090 T=TI+360
6091 IFT>TITHEN6091
6092 POKE214,12:PRINT:PRINTTAB(15)"BYE BYE FOR NOW
6093 T[178]TI[170]180
6094 [139]T[177]TI[167]6094
6095 [137]40000
9999 [128]
10000 D[178][194](186):N$[178]"CISAB":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[162]