10 POKE56,31:POKE55,.
11 IF(PEEK(8192)=60)AND(PEEK(8200)=24)THEN14
13 IFA=.THENA=1:LOAD"CONNECT.FONT",8,1
14 CLR:POKE53272,(PEEK(53272)AND240)OR8
15 DIMG$(2)
16 BK$="[164]" :EM=1065
17 H=1:C1=100:C2=1064:C3=2023:Q=42:GOTO720
20 P=-40:GOTO300
30 P=40:GOTO300
40 P=-1:GOTO300
50 P=-41:GOTO300
60 P=39:GOTO300
70 P=1:GOTO300
80 P=-39:GOTO300
90 P=41:GOTO300
100 B=1154:C=1914:D=1174:E=1934:GOTO260
110 B=1934:C=1914:D=1154:E=1174:GOTO260
120 B=1534:C=1124:D=1524:E=1924:GOTO260
130 B=1104:C=1474:D=1944:E=1459:GOTO260
140 B=1084:C=1964:D=1204:E=1804:GOTO260
150 B=1304:C=1936:D=1204:E=1944:GOTO260
160 B=1389:C=1134:D=1903:E=1105:GOTO260
170 B=1124:C=1159:D=1169:E=1982:GOTO260
180 B=1519:C=1520:D=1559:E=1560:GOTO260
190 B=1521:C=1519:D=1522:E=1520:GOTO260
200 B=1982:C=1065:D=1944:E=1102:GOTO260
210 B=1124:C=1484:D=1478:E=1970:GOTO260
220 B=1144:C=1783:D=1184:E=1863:GOTO260
230 PRINT"[147]":POKE53281,.:POKE53280,.
240 A=1564:L=.:Z=54272:S=56320:FORT=ZTOZ+24
250 POKET,0:NEXT:POKEZ+24,15:ONHGOTO100,110,120,130,140,150,160,170,180,190,200,210,220
260 POKEB,49:POKEC,50:POKED,51:POKEE,52:POKEB+Z,1:POKEC+Z,1:POKEE+Z,1
265 POKE1983,42:POKE1983+54272,10
270 POKED+Z,1:POKEZ+5,C1:POKEZ+6,C1:POKEC2,Q:POKEC3,Q:POKEC3+Z,10:POKEC3+Z,10
280 POKE55296+40,10:POKE55296+999,10
290 IFPEEK(S)=127THENPOKEA,81:POKEA+Z,5:P=.:GOTO350
292 K=A:POKEA,81:POKEA+Z,5
295 ONNOTPEEK(S)AND15GOTO20,30,30,40,50,60,60,70,80,90
300 IFP<-1ANDA<1104THENP=.
310 IFP>1ANDA>1983THENP=.
320 A=A+P:IFA<>KANDL>.THENPOKEK,46:N=N+1
330 IFA<>KANDPEEK(A)<>32THEN390
340 IFL=.THENPOKEK,32
350 I=I+1
360 IFI<GTHEN380
370 I=.:J=INT(RND(1)*1000)+1020:IFPEEK(J)=32ANDJ>1063THENPOKEJ,42:POKEJ+Z,10
380 GOTO290
390 POKEZ+4,33:POKEZ,100:POKEZ+1,100:M=PEEK(A):IFM=46THENN=N+3:GOTO470
400 IFM=42THEN670
410 IFM=49THENL=L+1:EM=B+(-P):IFL<>1THEN490
420 IFM=50THENL=L+2:IFL<>3THEN490
430 IFM=51THENL=L+3:IFL<>6THEN490
440 IFM=52THENL=L+4:IFL<>10THEN490
450 IFM=81THEN600
460 IFM=42THEN490
470 IFN>500THENN=500
475 POKEZ,.:POKEZ+1,.:IFL=11THEN600
480 GOTO340
490 POKEEM,32:POKEA-39+Z,7:POKEA-41+Z,7:POKEA+39+Z,7:POKEA+41+Z,7:POKEK,32
500 POKEA+Z,7:FORT=1TO20:POKEZ+4,129:POKEA,86:POKEA-39,78:POKEA-41,77
510 POKEA+39,78:POKEA+41,77:FORTT=1TO10:NEXT:POKEA,91:POKEA+39,32
520 POKEA+41,32:POKEA-39,32:POKEA-41,32:POKEZ+4,33:NEXT:POKEA,32
530 Y=Y-1:GOSUB710:IFY=.THEN550
540 P=.:N=.:GOTO240
550 POKEZ,0:POKEZ+1,0:PRINT"[147]GAME OVER."
560 PRINT"[147][129]FINAL SCORE=[158]";SC
570 PRINT"[154]  PRESS THE [159]FIRE BUTTON [154]TO TRY AGAIN!"
572 PRINT"[159]         PRESS CTRL Q[146] TO QUIT!"
574 GETA$:IFA$=""THEN60000
575 IF(PEEK(S)AND16)THEN574
590 GOTO16
600 IFM=46THEN340
610 IFL<>10THEN500
620 SC=SC+500-N:IFSC<.THENSC=.
630 PRINT"                                       "
635 PRINT"THIS SCREEN =";500-N;" TOTAL=";SC;" MEN=";Y:POKEZ,1:POKEZ+1,12
640 FORT=1TO15:FORTT=1TO100:NEXT:POKE53280,T+1:NEXT:POKEEM,32
650 IFH=13THENPRINT"1000 BONUS POINTS.":SC=SC+1000:H=.:GOTO630
660 P=.:N=.:H=H+1:GOTO240
670 POKEEM,32:POKEK,32:POKEA+Z,7:FORT=1TO20:POKEZ+4,129:POKEA,86:FORTT=1TO10:NEXT
680 POKEA,91:POKEZ+4,33:NEXT:POKEA,32
690 GOSUB710:Y=Y-1:IFY=.THEN550
700 P=.:N=.:GOSUB714:GOTO240
710 POKEZ,.:POKEZ+1,.
713 PRINT"                                       "
714 PRINT"THIS SCREEN =  TOTAL=";SC;" MEN=";Y
715 RETURN
720 POKE53281,.:POKE53280,.:PRINTCHR$(142);"[147][159]CONNECTOIDS!"
725 PRINT"A JOYSTICK IN PORT 2 IS REQUIRED TO PLAYTHIS GAME!"
730 PRINT"[158]BY KEVIN DEWEY!"
740 PRINT"[153] 1 - EASIEST"
750 PRINT"[153]50 - HARDEST"
755 PRINT"[159]PRESS CTRL Q[146] TO QUIT![145][145]"
760 PRINT"[155]ENTER SKILL LEVEL:  [157][157]";BK$;:NC=2:MO=2:GOSUB810:G=51-VAL(A$):PRINT
761 SC=.
765 IFA$=""THEN60000
770 IFA$=""THENA$="0"
780 IFG=.ANDLEN(A$)=1THENPRINT"[145]";:GOTO760
790 IFG<1ORG>50THENPRINT"[150]PLEASE KEEP IT BETWEEN 1 AND 50![145][145][145]":GOTO760
800 Y=7:GOTO230
810 FORZ8=1TONC
820 GETA$:IFA$=""THEN820
825 IFA$=""THENRETURN
830 IFA$="[147]"ORA$=""ORA$="[148]"ORA$="[145]"ORA$="[157]"ORA$=""THEN820
840 IFA$=CHR$(13)ORA$=CHR$(141)THENPRINT"[157] ";:GOTO1000
850 IFA$=" "ORA$="[160]"THEN980
860 IFA$=CHR$(20)ANDZ8=1THEN820
870 IFA$=CHR$(20)THENZ8=Z8-1:PRINT"[157][157]  [157][157]";BK$;:GOTO820
880 IFA$>"/"ANDA$<":"AND(MOAND2)THEN980:NUMBERS
890 IFA$>" "ANDA$<"*"AND(MOAND4)THEN980:SHIFT NUMBERS
900 IFA$>"[192]"ANDA$<"[219]"AND(MOAND8)THEN980:UPPERCASE CHARACTERS
910 IFA$>"@"ANDA$<"["AND(MOAND16)THEN980:LOWERCASE CHARACTERS
920 IFA$>CHR$(160)ANDA$<CHR$(192)AND(MOAND32)THEN980:COMMODORE CHARACTERS
930 IFA$>=CHR$(0)ANDA$<""AND(MOAND64)THEN980:CTRL CHARACTERS
940 IFA$>")"ANDA$<"0"AND(MOAND128)THEN980:MISC CHARACTERS GROUP 1
950 IFA$>"9"ANDA$<"A"AND(MOAND128)THEN980:MISC CHARACTERS GROUP 2
960 IFA$>"Z"ANDA$<"[129]"AND(MOAND128)THEN980:MISC CHARACTERS GROUP 3
970 GOTO820
980 PRINT"[157]";A$;:POKE212,.:PRINTBK$;
990 G$(Z8)=A$:NEXT
1000 PRINT"[157][146] ";
1010 A$="":FORA=1TOZ8-1:A$=A$+G$(A):NEXT:IFZ8=1THENA$=""
1020 RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 PRINT"[147]";:IFER<>63THENEND
60015 POKE56,160:POKE55,0:CLR:POKE53272,(PEEK(53272)AND240)OR4
60020 LOAD"HELLO CONNECT",8
60030 END