home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 74 / 074.d81 / game1game1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  108 lines
  1. 10 c=1:t=49152:goto1000
  2. 20 sw=w
  3. 30 sys49391(sw,c*255,w,d,x,y,l,h,0,0,t):return
  4. 50 a=fre(0):wait198,1:geta$:poke198,0:return
  5. 100 l=141-int(cos(9*(NULL)/6+(NULL)/2)*6+.9):h=28-int(sin(9*(NULL)/6+(NULL)/2)*8+.9)
  6. 105 sys49391(141,l,28,h,0,0,170,9,0,0,50317)
  7. 110 l=141-int(cos(0*(NULL)/6+(NULL)/2)*11+.9):h=28-int(sin(0*(NULL)/6+(NULL)/2)*15+.9)
  8. 130 sys49391(141,l,28,h,0,0,170,9,0,0,50317):return
  9. 300 gosub450:gosub480:w=9:d=7:x=31:y=0:l=y:h=64:gosub20:gosub100:w=1:d=3
  10. 305 l=240:h=94:y=1:a=16-int(peek(8188)/2):forx=atoa+6+peek(8188):gosub20
  11. 310 next:w=peek(8188):d=1:x=a+3:y=2:l=20:h=154:g=0:gosub20
  12. 320 forj=9to0step-1:a=10:gosub370:ifx=9orx=21thenw=1:l=248:x=x+3:gosub20:x=x-3
  13. 330 next:return
  14. 370 y=10:w=3:d=2:l=20324+60*a:x=37-4*j:goto900
  15. 380 poke54273,15:poke54276,33:a=10:c=0:gosub370:poke54276,0:c=1:gosub370
  16. 450 w=11:d=11:x=0:y=14:l=50:h=69:gosub20
  17. 460 w=11:d=11:x=0:y=14:l=50:h=69:t=49908:gosub20:sw=11:w=1:t=49152:d=10
  18. 470 forx=11to28:gosub30:next:w=11:d=11:gosub20:t=49908:gosub20:t=49152:return
  19. 480 w=10:d=7:x=0:y=13:l=118:h=66:goto20
  20. 600 w=21:d=19:x=18:y=2:l=180:h=94:goto20
  21. 650 gosub700:w=15:d=21:x=1:y=2:l=22:h=82:gosub20:w=6-int(peek(8188)/2):d=1:x=2
  22. 655 y=0:l=240:h=94:gosub20:x=x+w:w=w+peek(8188):l=20:h=154:gosub20
  23. 660 w=2:d=4:x=16:y=7:l=100:h=94:gosub20:goto600
  24. 700 sys49744:print"[147]":poke53281,3:poke53280,3:return
  25. 750 x=24:y=5
  26. 760 w=13:d=1:l=126:h=153:gosub20:l=234:h=144:x=x+peek(8187):w=1:goto20
  27. 800 poke198,0
  28. 810 gosub50:ifa$<>" "then810
  29. 820 return
  30. 900 gosub910:goto20
  31. 910 h=int(l/256):l=l-h*256:return
  32. 990 fordd=1toz*100:next:return
  33. 1000 f$="pic1":sl=234:sh=110:gosub9900:dima$(4)
  34. 1005 fork=54272to54295:pokek,0:next:poke54277,25:poke54278,150:poke54272,193
  35. 1030 poke54296,10:sys49799:print"[147]":sys49744:poke53281,14:poke53280,6
  36. 1040 w=1:d=20:y=3:l=234:h=110:forx=3to36:gosub20:next:ifpeek(8189)=0then8000
  37. 1050 w=31:d=5:x=4:y=4:l=250:h=124:gosub20:w=1:d=1:fory=11to19step2:x=6
  38. 1060 l=34904+int(y/2)*10:gosub900:x=7:l=226:h=123:gosub20:next
  39. 1070 w=40:d=1:x=0:y=24:l=8:h=131:gosub20:fork=0to4:x1=10:y1=11+k*2:a$(k)=""
  40. 1080 gosub1500:next:w=40:d=1:x=0:y=24:c=0:gosub20:c=1:w=30:x=5:l=84:h=135
  41. 1090 gosub20:poke198,0
  42. 1100 wait198,1:geta$:ifa$<>chr$(13)then1100
  43. 1110 open2,8,1,"@0:no":fork=0to4:print#2,a$(k):next:close2:goto8000
  44. 1400 sys49391(1,255,1,1,x1,y1,228,136,0,0,49152):return
  45. 1500 poke198,0:gosub1400
  46. 1510 wait198,1:geta$:poke198,0:ifa$=""then1510
  47. 1520 ifa$="_"then1557
  48. 1530 ifa$=chr$(13)then1560
  49. 1540 a=asc(a$)-48:ifa<0ora>9then1510
  50. 1550 a$(k)=a$(k)+mid$(str$(a),2,1)
  51. 1555 l=34944+10*a:w=1:d=1:x=x1:y=y1:gosub900:x1=x1+2+(x1=34)*2:gosub1400
  52. 1556 goto1510
  53. 1557 w=1:d=1:l=234:h=110:x=x1:y=y1:gosub20:x1=x1-2-2*(x1=10)
  54. 1558 a$(k)=mid$(a$(k),1,(x-9)/2):gosub1400:goto1510
  55. 1560 x=x1:y=y1:ifx1>17andx1<31thenw=1:d=1:l=234:h=110:gosub20:return
  56. 1570 poke198,0:l=152:h=132:ifx>30thenl=238:h=136
  57. 1580 w=40:d=2:x=0:y=23:c=0:gosub20:c=1:w=35:d=2:x=3:gosub20
  58. 1590 wait198,1:geta$:poke198,0:ifa$<>chr$(13)then1590
  59. 1600 w=40:d=2:x=0:y=23:c=0:gosub20:c=1:w=40:d=1:x=0:y=24:l=8:h=131:gosub20
  60. 1610 goto1510
  61. 2000 end
  62. 8000 w=c:d=20:y=3:l=234:h=110:forx=3to36:gosub20:next:w=22:d=4:x=9:y=d:l=198
  63. 8030 h=111:gosub20:w=5:x=d:d=c:y=9:l=54:h=115:gosub20
  64. 8035 w=40:d=2:x=0:y=23:l=8:h=131:c=0:gosub20:c=1:d=1:y=24:gosub20
  65. 8040 w=17:d=2:x=10:y=11:l=104:h=115:gosub20:y=9:w=1:d=1:r=10:u=12:p=172:q=117
  66. 8050 ll=12:i=126:j=153:gosub9000:poke8187,x9:ifg=0then8040
  67. 8060 w=1:y=11:h=110:forx=10to27:gosub20:next:w=8:d=1:x=4:y=12:l=46:h=118:gosub20
  68. 8170 w=23:d=2:y=14:x=13:l=126:h=118:gosub20:w=1:d=w:y=12:r=x:u=6:p=74:q=120
  69. 8180 ll=12:i=20:j=154:gosub9000:poke8188,x9:ifg=0then8170
  70. 8400 w=1:d=2:y=14:l=234:h=110:forx=12to35:gosub20:next:w=20:d=1:x=11:y=17:l=134
  71. 8410 h=120:gosub20:w=14:d=2:x=13:y=19:l=78:h=121:gosub20:poke198,0
  72. 8420 gosub50:ifa$<>"y"anda$<>"n"then8420
  73. 8430 poke54296,-15*(a$="y"):w=23:d=1:x=9:y=17:l=102:h=122:gosub20:poke198,0
  74. 8440 gosub50:ifa$="n"then8530
  75. 8450 ifa$<>"y"then8440
  76. 8455 f$="pic2":sl=234:sh=110:gosub9900
  77. 8460 gosub650
  78. 8470 w=21:d=9:x=18:y=5:l=66:h=113:gosub20
  79. 8500 w=15:d=1:x=21:y=23:l=84:h=110:gosub20:gosub750:gosub800:gosub700:gosub300
  80. 8510 w=25:d=8:x=11:y=14:l=118:h=121:gosub20:w=15:d=1:x=12:y=24:l=84:h=110
  81. 8515 gosub20:gosub800:gosub460:w=25:d=8:x=11:y=14:l=70:h=129:gosub20
  82. 8520 gosub800:gosub460:w=25:d=8:x=11:y=14:l=22:h=137:gosub20:gosub800
  83. 8530 goto10000
  84. 9000 g=1:poke198,0:x1=x:y1=y:x9=x1
  85. 9010 gosub1400:gosub50:ifa$=""then9010
  86. 9020 ifa$=chr$(13)thenx9=x-x9+1:goto9100
  87. 9030 ifa$=" "thenl=234:h=110:goto9090
  88. 9035 ifa$="_"thenl=234:h=110:w=1:d=1:x=x1:y=y1:gosub20:x1=x1-1-(x1=r):goto9010
  89. 9040 ifa$=","thenl=74:h=110:goto9090
  90. 9050 h=123:l=226:ifa$="."then9090
  91. 9060 ifa$="-"thenl=l+10:goto9090
  92. 9070 ifa$<"a"ora$>"z"then9010
  93. 9080 l=31084+asc(a$)*10:gosub910
  94. 9090 x=x1:y=y1:gosub20:x1=x1+1+(x1=35):goto9010
  95. 9100 l=234:h=110:w=1:d=1:x=x1:y=y1:gosub20:ifx1=rthenw=u:l=p:h=q:x9=w:gosub20
  96. 9110 d=2:l=234:ifx1<r+ll+1thensys49391(15,255,15,1,r,y,i,j,0,0,49328):return
  97. 9120 y1=y1+2:y=y1:h=110:forx=rto36:gosub20:next:w=24:d=1:x=r:l=188:h=116:gosub20
  98. 9130 z=30:gosub990:w=1:d=3:y=y-2:l=234:h=110:forx=rto36:gosub20:next:g=0:return
  99. 9900 poke251,len(f$):poke252,sl:poke253,sh:fori=1tolen(f$)
  100. 9910 poke678+i,asc(mid$(f$,i,1)):next:sys49709:return
  101. 10000 sys49799:print"[147]":poke53281,14:poke53280,14
  102. 10010 print"[147]            program loading[154]"
  103. 10020 print"";:fori=1104to1121:reada:poke54272+i,14:pokei,a:next
  104. 10030 fori=1304to1306:reada:poke54272+i,14:pokei,a:next
  105. 10040 poke198,2:poke631,13:poke632,13:new:end
  106. 10050 data12,15,1,4,34,7,1,13,5,50,7,1,13,5,50,34,44,56
  107. 10060 data18,21,14
  108.