0 IFL=.THENPRINT"[147]"TAB(10)"[159]ALFREDO'S LOST CAUSE"
1 IFL=.ANDPEEK(816)=231ANDPEEK(817)=195THENPOKE816,165:POKE817,244
2 POKE832,.:IFL=.THENL=1:LOAD"ML",8,1
3 IFL=1THENPOKE55,.:POKE56,32:CLR
6 A(1)=56:A(2)=248:A(3)=184:A(4)=120:A(5)=56:A(6)=248:A(7)=184
7 A(8)=120:A(9)=56:A(10)=248:A(.)=184:B(1)=199:B(2)=199:B(3)=200:B(4)=201
8 B(5)=202:B(6)=202:B(7)=203:B(8)=204:B(9)=205:B(10)=205:B(.)=206
9 H=49173:V=53248:SD=54272
11 IFL=0THENL=2:LOAD"JOEPLAY32768",8,1
12 IFL=2THENL=3:LOAD"M.SOMEGUYS",8,1
15 A=.:GOSUB 9000
20 SYS32768,40960:POKE56325,55:SYS49152:SYS49158
30 SYS49161,.
40 POKE53280,.
50 SYS49164,1
60 SYSH,.,150,319,150
70 SYSH,180,150,180,75
80 SYSH,180,75 ,319,75
85 POKE2040,13:POKE2041,14:POKE2042,15
86 J=1:GOSUB8000
89 Z=0:A=1:FR=25:TM=170:SP=1:C=183:GOSUB7000
122 A=3:GOSUB9000
125 J=2:GOSUB8000
130 SYS49176,145,150,165,150
135 GOSUB4005
140 SYSH,145,150,145,199
150 SYSH,165,150,165,199
160 A=1:B=170:FORC=183TO229STEP6:GOSUB9000:NEXT C
200 :
202 :
205 A=.:GOSUB9000:SYS49158
210 SYSH,145,1,145,199:SYS H,165,1,165,199
215 A=1:B=170:FORC=50TO229STEP6:GOSUB9000:NEXT C
220 :
230 :
235 A=0:GOSUB9000:SYS49158
240 SYSH,145,1,145,50:SYSH,165,1,165,50
245 SYSH,1,50,319,50:SYSH,1,150,319,150
250 SYSH,1,50,1,150:SYS49176,145,50,165,50
255 A=1:B=170:FORC=50TO180STEP6:GOSUB9000:NEXTC
260 A=2:B=170:C=180:GOSUB9000
261 GOSUB4015
265 FORW=1TO1000:NEXTW
267 A=0:GOSUB9000
270 J=3:GOSUB8000
275 A=1:GOSUB9000
280 Z=0:FR=170:TM=320:SP=4:C=183:GOSUB7000
400 REM
404 REM
405 A=0:GOSUB9000:SYS49158
410 SYSH,1,50,80,50:SYSH,1,150,80,150
415 SYSH,80,1,80,50:SYSH,80,150,80,199
425 PRINT"";
426 PRINT"FFFFFFFFFFFFFFFFFFFFFFFFFFFFF";
430 Z=0:FR=24:TM=98:SP=3:C=183:GOSUB7000
455 B=F:C=183:GOSUB9000
465 J=4:GOSUB8000
470 FORB=98TO140STEP2:C=C+1:GOSUB9000:NEXTB
472 GOSUB4035
475 Z=0:FR=142:TM=320:SP=3:C=205:GOSUB7000
510 REM
520 REM
521 A=0:GOSUB9000:SYS49158:SYS49164,1
525 PRINT"";
526 PRINT"FFFFFFFFFFFFFFFF";
530 SYSH,240,75,319,150:SYSH,240,75,319,75
535 SYS49179,"LIVE WIRE",115,1
540 SYSH,159,10,159,162
545 Z=0:FR=25:TM=170:SP=1:C=205:GOSUB7000
577 FORU=1TO500:NEXT
580 A=1:GOSUB9000:J=5:GOSUB8000
582 GOSUB4045
585 N=53265:FORU=1TO025:POKEN+15,U:POKEN,PEEK(N)AND239:POKEN,PEEK(N)OR16:NEXTU
590 POKE53280,0
595 Z=0:C=205
600 FORF=170TO275STEP9
605 Z=Z+1:IFZ<3THEN620
610 IFA=1THENA=2:Z=0:GOTO620
615 A=1:Z=0
620 B=F:C=C-12:GOSUB9000
625 NEXTF
627 R=F
630 FORC=61TO107STEP3:A=2:B=R:GOSUB9000:NEXTC
633 C=C-1
635 A=3:B=R:GOSUB9000
645 A=0:B=R:GOSUB9000:J=3:GOSUB8000:A=1:B=R:GOSUB9000
650 Z=0:FR=R:TM=320:SP=3:GOSUB7000
685 REM
695 REM
697 PRINT"[147]"
700 A=0:GOSUB9000:SYS49158:SYS49164,1
705 SYSH,1,75,319,75
710 Z=0:FR=24:TM=250:SP=3:GOSUB7000
745 SYS49176,200,75,319,75
750 SYSH,200,75,319,180
755 A=1:GOSUB9000
760 J=6:GOSUB8000
765 F=B:FORY=1TO11:C=C+3:B=F:GOSUB9000:NEXT Y
770 A=2:GOSUB9000
775 FORF=249TO319STEP5:B=F:C=C+4.1:GOSUB9000:NEXT F
780 REM
790 REM
795 SYS49158:A=0:GOSUB 9000
797 SYS49152:SYS 49158:SYS 49164,1
800 SYSH,1,1,160,150:SYS H,160,150,160,175:SYSH,160,175,300,175
805 SYSH,300,175,300,150:SYS H,300,150,210,150:SYS H,210,150,50,1
810 SYSH,145,090,145,100
815 A=2:C=51:FOR F=33 TO 115STEP2:B=F:C=C+(.9*2):GOSUB9000:NEXTF
820 A=3:GOSUB9000
825 A=3:FOR F=115TO150STEP2:B=F:C=C+(.9*2):GOSUB9000:NEXTF
830 A=0:GOSUB9000:J=7:GOSUB8000:A=1:B=158:C=146:GOSUB9000
835 FOR Y=120TO145:SYS 49176,130,Y,150,Y:NEXTY
840 SYSH,130,120,130,199:SYS H,150,140,150,199
845 FORU=1TO400:NEXTU
850 FORC=146TO229STEP4:GOSUB9000:NEXTC
855 REM
865 REM
870 A=0:GOSUB9000:SYS49158:SYS49164,1
875 SYSH,130,1,130,15:SYS H,150,1,150,15
880 SYSH,20,15,130,15:SYS H,150,15,250,15
885 SYSH,20,15,20,229: SYS H,250,15,250,199
890 J=8:GOSUB8000:A=2:FORC=50TO229STEP4:GOSUB9000:NEXTC
895 REM
905 REM
907 SYS49152
910 A=0:GOSUB9000:SYS49158:SYS49164,1
915 SYSH,20,1,20,199:SYSH,250,1,250,75
920 SYSH,250,75,319,75:SYSH,200,110,319,110
925 SYSH,200,110,200,199
930 SYSH,20,60,250,60
935 A=2:FORC=50TO105STEP3:GOSUB9000:NEXTC
940 FORO=60TO70STEP 3
945 SYSH,20,60,140,O:SYSH,140,O,250,60
947 C=C+2:GOSUB9000
950 SYS49176,20,60,140,O:SYS49176,140,O,250,60
955 NEXTO
960 FORO=70TO60STEP-3
970 SYSH,20,60,140,O:SYSH,140,O,250,60
972 C=C-2:GOSUB9000
975 SYS49176,20,60,140,O:SYS49176,140,O,250,60
980 NEXTO
985 SYSH,20,60,250,60
990 Z=0:FR=158:TM=250:SP=3:GOSUB7000
1025 A=2:B=F:GOSUB9000
1030 FORI=1TO25:C=C+1.5:B=F:GOSUB9000:NEXTI
1032 C=C-1
1035 J=9:GOSUB8000
1040 Z=0:FR=250:TM=319:SP=3:GOSUB7000
1080 REM
1083 REM
1085 A=0:GOSUB9000
1090 SYS49158:SYS49164,1
1095 SYSH,1,110,319,110:SYSH,1,75,140,75:SYSH,140,75,150,65
1100 SYSH,150,65,319,65
1105 Z=0:FR=24:TM=319:SP=3:GOSUB7000
1140 REM
1150 REM
1155 A=0:GOSUB9000:SYS49158
1160 SYSH,1,65,319,65:SYSH,1,110,319,110
1165 SYSH,240,70,260,70:SYSH,260,70,260,105:SYSH,260,105,240,105
1170 SYSH,240,105,240,70:SYS49179,"EXIT",265,75
1175 Z=0:FR=24:TM=175:SP=3:GOSUB7000
1210 SYSH,135,65,135,110:SYSH,180,65,180,110
1215 A=0:GOSUB9000:J=5:GOSUB8000:A=3:C=C+3:GOSUB9000
1220 FORI=0TO12:SYS49173,135+I,66,135+I,109:SYS49173,180-I,66,180-I,109
1221 SYS49176,135+I,66,135+I,109:SYS 49176,180-I,66,180-I,109
1222 NEXTI
1225 J=9:GOSUB8000
1230 FORI=0TO4:SYS49173,147+I,66,147+I,109:SYS49173,168-I,66,168-I,109
1235 SYS49176,147+I,66,147+I,109:SYS49176,168-I,66,168-I,109
1240 NEXTI
1245 SYS49173,147+I,66,147+I,109:SYS49173,168-I,66,168-I,109
1250 FORD=500TO.STEP-15:FORU=.TOD:NEXT:GOSUB9100:NEXT
1253 A=0:GOSUB9000
1254 FORZZ=149TO152:SYSH+3,ZZ,66,ZZ,109:SYSH+3,ZZ+13,66,ZZ+13,109:NEXTZZ
1257 SYSH,157,66,157,109:SYSH,158,66,158,109
1260 SYS49179,"THE  END",133,100
1265 GOSUB4055
1280 SYS49179,"* PRESS ANY KEY TO QUIT *",66,150:POKE198,.
1290 GETA$:IFA$=""THEN1290
1300 SYS49155:POKE178,64:PRINT"[147]";:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
1310 INPUT#15,ER:CLOSE15:IFER<>63THENEND
1320 POKE55,0:POKE56,160:LOAD"HELLO CONNECT",8
4000 :
4005 S=54272:POKES+24,15:POKES+5,190:POKES+6,25:FORX=127TO10STEP-17:POKES+1,2*X
4010 POKES+1,129-X:POKES+4,17:FORL=1TO4:NEXTL:POKES+1,4:NEXTX:POKES+4,16:RETURN
4015 RETURN
4025 S=54272:POKES+5,9:POKES+6,9:POKES+24,15:POKES+4,17:FORL=1TO40:POKES+1,62-L
4030 POKES+1,L:POKES+4,17:NEXTL:POKES+4,16:RETURN
4035 S=54272:POKES+24,15:POKES+6,240:POKES+4,17:FORLA=1TO2:FORLX=255TO1STEP-55
4040 POKES+1,LX/2:POKES+1,255-LX/2:NEXTLX:NEXTLA:POKES+4,16:RETURN
4045 S=54272:POKES+24,15:POKES+6,240:POKES+4,17:FORLA=1TO10:FORLX=1TO255STEP25
4050 POKES+1,LX:NEXTLX:NEXTLA:POKES+4,32:RETURN
4055 S=54272:POKES+1,14:POKES+5,3:POKES+6,240:POKES+24,15:POKES+4,17
4060 FORLD=8TO2STEP-1:POKES+1,LD:POKES+4,33:POKES+4,33:POKES+1,LD*2:POKES+4,17
4065 POKES+1,LD*4:POKES+4,33:POKES+1,LD*8:POKES+4,17:NEXTLD:POKES+4,16:RETURN
7000 FORF=FRTOTMSTEPSP
7005 Z=Z+1:IFZ<3THEN7020
7010 IFA=1THENA=2:Z=.:GOTO7020
7015 A=1:Z=.
7020 B=F:GOSUB9000:IF(J=3ORJ=9)ANDZ=.THENGOSUB9100
7025 NEXT F
7030 RETURN
8000 REM
8015 IF J=11THENJ=0
8020 POKE 53115,A(J):POKE53116,B(J):SYS 53112
8030 RETURN
9000 IFA=.THENPOKEV+21,.:RETURN
9005 POKEV,BAND255:POKEV+16,-(B>255):POKEV+1,C:POKE2040,12+A:POKEV+21,1:RETURN
9100 POKESD+24,.:POKESD+24,15:RETURN