home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / connectoids (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  4.0 KB  |  129 lines
  1. 10 poke56,31:poke55,.
  2. 11 if(peek(8192)=60)and(peek(8200)=24)then14
  3. 13 ifa=.thena=1:load"connect.font",8,1
  4. 14 clr:poke53272,(peek(53272)and240)or8
  5. 15 dimg$(2)
  6. 16 bk$="[164]" :em=1065
  7. 17 h=1:c1=100:c2=1064:c3=2023:q=42:goto720
  8. 20 p=-40:goto300
  9. 30 p=40:goto300
  10. 40 p=-1:goto300
  11. 50 p=-41:goto300
  12. 60 p=39:goto300
  13. 70 p=1:goto300
  14. 80 p=-39:goto300
  15. 90 p=41:goto300
  16. 100 b=1154:c=1914:d=1174:e=1934:goto260
  17. 110 b=1934:c=1914:d=1154:e=1174:goto260
  18. 120 b=1534:c=1124:d=1524:e=1924:goto260
  19. 130 b=1104:c=1474:d=1944:e=1459:goto260
  20. 140 b=1084:c=1964:d=1204:e=1804:goto260
  21. 150 b=1304:c=1936:d=1204:e=1944:goto260
  22. 160 b=1389:c=1134:d=1903:e=1105:goto260
  23. 170 b=1124:c=1159:d=1169:e=1982:goto260
  24. 180 b=1519:c=1520:d=1559:e=1560:goto260
  25. 190 b=1521:c=1519:d=1522:e=1520:goto260
  26. 200 b=1982:c=1065:d=1944:e=1102:goto260
  27. 210 b=1124:c=1484:d=1478:e=1970:goto260
  28. 220 b=1144:c=1783:d=1184:e=1863:goto260
  29. 230 print"[147]":poke53281,.:poke53280,.
  30. 240 a=1564:l=.:z=54272:s=56320:fort=ztoz+24
  31. 250 poket,0:next:pokez+24,15:onhgoto100,110,120,130,140,150,160,170,180,190,200,210,220
  32. 260 pokeb,49:pokec,50:poked,51:pokee,52:pokeb+z,1:pokec+z,1:pokee+z,1
  33. 265 poke1983,42:poke1983+54272,10
  34. 270 poked+z,1:pokez+5,c1:pokez+6,c1:pokec2,q:pokec3,q:pokec3+z,10:pokec3+z,10
  35. 280 poke55296+40,10:poke55296+999,10
  36. 290 ifpeek(s)=127thenpokea,81:pokea+z,5:p=.:goto350
  37. 292 k=a:pokea,81:pokea+z,5
  38. 295 onnotpeek(s)and15goto20,30,30,40,50,60,60,70,80,90
  39. 300 ifp<-1anda<1104thenp=.
  40. 310 ifp>1anda>1983thenp=.
  41. 320 a=a+p:ifa<>kandl>.thenpokek,46:n=n+1
  42. 330 ifa<>kandpeek(a)<>32then390
  43. 340 ifl=.thenpokek,32
  44. 350 i=i+1
  45. 360 ifi<gthen380
  46. 370 i=.:j=int(rnd(1)*1000)+1020:ifpeek(j)=32andj>1063thenpokej,42:pokej+z,10
  47. 380 goto290
  48. 390 pokez+4,33:pokez,100:pokez+1,100:m=peek(a):ifm=46thenn=n+3:goto470
  49. 400 ifm=42then670
  50. 410 ifm=49thenl=l+1:em=b+(-p):ifl<>1then490
  51. 420 ifm=50thenl=l+2:ifl<>3then490
  52. 430 ifm=51thenl=l+3:ifl<>6then490
  53. 440 ifm=52thenl=l+4:ifl<>10then490
  54. 450 ifm=81then600
  55. 460 ifm=42then490
  56. 470 ifn>500thenn=500
  57. 475 pokez,.:pokez+1,.:ifl=11then600
  58. 480 goto340
  59. 490 pokeem,32:pokea-39+z,7:pokea-41+z,7:pokea+39+z,7:pokea+41+z,7:pokek,32
  60. 500 pokea+z,7:fort=1to20:pokez+4,129:pokea,86:pokea-39,78:pokea-41,77
  61. 510 pokea+39,78:pokea+41,77:fortt=1to10:next:pokea,91:pokea+39,32
  62. 520 pokea+41,32:pokea-39,32:pokea-41,32:pokez+4,33:next:pokea,32
  63. 530 y=y-1:gosub710:ify=.then550
  64. 540 p=.:n=.:goto240
  65. 550 pokez,0:pokez+1,0:print"[147]game over."
  66. 560 print"[147][129]final score=[158]";sc
  67. 570 print"[154]  press the [159]fire button [154]to try again!"
  68. 572 print"[159]         press ctrl q[146] to quit!"
  69. 574 geta$:ifa$=""then60000
  70. 575 if(peek(s)and16)then574
  71. 590 goto16
  72. 600 ifm=46then340
  73. 610 ifl<>10then500
  74. 620 sc=sc+500-n:ifsc<.thensc=.
  75. 630 print"                                       "
  76. 635 print"this screen =";500-n;" total=";sc;" men=";y:pokez,1:pokez+1,12
  77. 640 fort=1to15:fortt=1to100:next:poke53280,t+1:next:pokeem,32
  78. 650 ifh=13thenprint"1000 bonus points.":sc=sc+1000:h=.:goto630
  79. 660 p=.:n=.:h=h+1:goto240
  80. 670 pokeem,32:pokek,32:pokea+z,7:fort=1to20:pokez+4,129:pokea,86:fortt=1to10:next
  81. 680 pokea,91:pokez+4,33:next:pokea,32
  82. 690 gosub710:y=y-1:ify=.then550
  83. 700 p=.:n=.:gosub714:goto240
  84. 710 pokez,.:pokez+1,.
  85. 713 print"                                       "
  86. 714 print"this screen =  total=";sc;" men=";y
  87. 715 return
  88. 720 poke53281,.:poke53280,.:printchr$(142);"[147][159]connectoids!"
  89. 725 print"a joystick in port 2 is required to playthis game!"
  90. 730 print"[158]by kevin dewey!"
  91. 740 print"[153] 1 - easiest"
  92. 750 print"[153]50 - hardest"
  93. 755 print"[159]press ctrl q[146] to quit![145][145]"
  94. 760 print"[155]enter skill level:  [157][157]";bk$;:nc=2:mo=2:gosub810:g=51-val(a$):print
  95. 761 sc=.
  96. 765 ifa$=""then60000
  97. 770 ifa$=""thena$="0"
  98. 780 ifg=.andlen(a$)=1thenprint"[145]";:goto760
  99. 790 ifg<1org>50thenprint"[150]please keep it between 1 and 50![145][145][145]":goto760
  100. 800 y=7:goto230
  101. 810 forz8=1tonc
  102. 820 geta$:ifa$=""then820
  103. 825 ifa$=""thenreturn
  104. 830 ifa$="[147]"ora$=""ora$="[148]"ora$="[145]"ora$="[157]"ora$=""then820
  105. 840 ifa$=chr$(13)ora$=chr$(141)thenprint"[157] ";:goto1000
  106. 850 ifa$=" "ora$="[160]"then980
  107. 860 ifa$=chr$(20)andz8=1then820
  108. 870 ifa$=chr$(20)thenz8=z8-1:print"[157][157]  [157][157]";bk$;:goto820
  109. 880 ifa$>"/"anda$<":"and(moand2)then980:numbers
  110. 890 ifa$>" "anda$<"*"and(moand4)then980:shift numbers
  111. 900 ifa$>"[192]"anda$<"[219]"and(moand8)then980:uppercase characters
  112. 910 ifa$>"@"anda$<"["and(moand16)then980:lowercase characters
  113. 920 ifa$>chr$(160)anda$<chr$(192)and(moand32)then980:commodore characters
  114. 930 ifa$>=chr$(0)anda$<""and(moand64)then980:ctrl characters
  115. 940 ifa$>")"anda$<"0"and(moand128)then980:misc characters group 1
  116. 950 ifa$>"9"anda$<"a"and(moand128)then980:misc characters group 2
  117. 960 ifa$>"z"anda$<"[129]"and(moand128)then980:misc characters group 3
  118. 970 goto820
  119. 980 print"[157]";a$;:poke212,.:printbk$;
  120. 990 g$(z8)=a$:next
  121. 1000 print"[157][146] ";
  122. 1010 a$="":fora=1toz8-1:a$=a$+g$(a):next:ifz8=1thena$=""
  123. 1020 return
  124. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  125. 60010 print"[147]";:ifer<>63thenend
  126. 60015 poke56,160:poke55,0:clr:poke53272,(peek(53272)and240)or4
  127. 60020 load"hello connect",8
  128. 60030 end
  129.