API tools faq
paste
Advertisement
Guest User

X10 code

a guest
Aug 28th, 2021
141
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 12.52 KB | None | 0 0
raw download clone embed print report
  1. 1 PRINT"{clear}{white}":GOSUB380:IFG9=42THENGOTO470
  2. 2 GOSUB25000
  3. 5 PRINT"{clear}":PRINTCHR$(14):V9=4:POKE53280,5:POKE53281,0
  4. 10 PRINT"{white}          - {$d3} {$c8} {$cf} {$d0}{shft space}{$d0} {$c9} {$ce}{shft space}{$c7}{shft space}-"
  5. 15 PRINT"{down}{$d3}OLDIERS: ";INT(D6)
  6. 40 PRINT"{$c5}QUIPMENT FOR ";INT(D5);" SOLDIERS."
  7. 45 PRINT"{$cd}ERCENARIES: ";INT(D7)
  8. 50 PRINT"{$d7}EAPONS FOR ";INT(D4);" SOLDIERS"
  9. 55 PRINT"{$ca}EEPS: ";INT(D3)
  10. 60 PRINT"{$d4}ANKS: ";INT(D1)
  11. 65 PRINT"{$c6}IGHTER-PLANES: ";INT(D2):GOSUB67:GOTO80
  12. 67 GOSUB17000:M1=0:IFD5<=D6THENM1=M1+D5*4
  13. 68 IFD5>D6THENM1=M1+D6*4
  14. 69 IFD4<=D6THENM1=M1+D4
  15. 70 IFD4>D6THENM1=M1+D6
  16. 71 IFD1<0THENC=C+D1*10000
  17. 72 IFD2<0THENC=C+D2*30000
  18. 73 IFD3<0THENC=C+D3*1000
  19. 74 IFD4<0THENC=C+D4*50
  20. 75 IFD5<0THENC=C+D5*10
  21. 76 IFD6<0THENC=C+D6*100
  22. 77 IFD7<0THENC=C+D7*300
  23. 78 KK=(M1+D6*20+D7*10+D3*5+D1*150+D2*200)*(KQ+1.5):GOSUB240
  24. 79 RETURN
  25. 80 PRINT"{$c6}IGHTING POWER: ";INT(KK)
  26. 85 PRINT"{rvrs on}{white}{$c6}ORTUNE: ";INT(C);"{left}                             "
  27. 86 PRINT"{up}                                    "
  28. 90 PRINT"{yellow}1  RECRUTE SOLDIERS         = 100 $"
  29. 95 PRINT"2  CALL FOR MERCENARIES     = 300 $"
  30. 100 PRINT"3  BUY EQUIPMENT            = 10 $"
  31. 105 PRINT"4  BUY WEAPONS              = 50 $"
  32. 110 PRINT"5  BUY JEEPS                = 1500 $"
  33. 115 PRINT"6  BUY TANKS                = 20000 $"
  34. 120 PRINT"7  BUY FIGHTER-PLANES       = 40000 $"
  35. 125 PRINT"8  MAKE A MANOEUVRE         = 50000 $"
  36. 130 PRINT"9 DATES OF OTHER COUNTRIES  = 25000 $"
  37. 135 PRINT"10  MAKE WAR                = ?????"
  38. 140 PRINT"11 FURTHER ON"
  39. 145 POKE198,0:WAIT198,1:POKE198,0
  40. 150 INPUT"{down:12}{$ce}UMBER OF THINGS TO BUY ";LK
  41. 155 INPUT"{$c8}OW OFTEN DO YOU WANT TO BUY THAT ";LL
  42. 160 IFLL<=0THENPRINT"{home}":GOTO10
  43. 165 IFLK=1AND(D6+LL)<=(B/3)THEND6=D6+LL:C=C-LL*100
  44. 170 IFLK=1AND(D6+LL)>(B/3)THENLL=(B/3)-D6:C=C-LL*100
  45. 175 IFLK=2ANDD7<=(D6*2)THEND7=D7+LL:C=C-LL*300
  46. 180 IFLK=2ANDD7>(D6*2)THENLL=D6*2-D7:D7=D6*2:C=C-LL*300
  47. 185 IFLK=3THEND5=D5+LL:C=C-LL*10
  48. 190 IFLK=4THEND4=D4+LL:C=C-LL*50
  49. 195 IFLK=5THEND3=D3+LL:C=C-LL*1500
  50. 200 IFLK=6THEND1=D1+LL:C=C-LL*20000
  51. 205 IFLK=7THEND2=D2+LL:C=C-LL*40000
  52. 210 IFLK=8AND(KQ+LL)>4THENLL=4-KQ:C=C-LL*50000:KQ=4:GOSUB60000
  53. 215 IFLK=8AND(KQ+LL)<=4THENKQ=KQ+LL:C=C-LL*20000:GOSUB40000:GOSUB60000
  54. 220 IFLK=9THENC=C-25000:GOTO50000
  55. 225 IFLK=10THENGOTO400
  56. 230 IFLK=11THENGOTO300
  57. 235 GOTO5
  58. 240 IF(D3+D1+D2)<=(D6+.5*D7)THENRETURN
  59. 241 IFKK>(2*R1)THENKK=2*R1
  60. 245 IFD3>D6THENKK=KK-((D3-D6)*5)
  61. 250 IFD1>D6THENKK=KK-((D1-D6)*150)
  62. 255 IFD2>D6THENKK=KK-((D2-D6)*200)
  63. 260 PRINT"{rvrs on}{$d9}OU HAVE GOT A LACK OF SOLDIERS !!!"
  64. 265 RETURN
  65. 300 POKE198,0:WAIT198,1:POKE198,0:PRINT"{clear}{rvrs on}{down:10}{right:3}{$d3}AVING ";J9$;" ";SZ$;"{shft space}!"
  66. 301 M1$="N":OPEN2,8,2,"@:X5,S,W":PRINT#2,M1$:CLOSE2
  67. 302 IFA7<0THENA7=0:LOAD"X3",8,1
  68. 303 IFB<0THENB=0:LOAD"X3",8,1
  69. 305 OPEN2,8,2,"@:X4,S,W"
  70. 310 PRINT#2,VG:PRINT#2,B:PRINT#2,A7:PRINT#2,F:PRINT#2,G:PRINT#2,Z:PRINT#2,I
  71. 315 PRINT#2,E:PRINT#2,RT:PRINT#2,C:PRINT#2,SZ$:PRINT#2,R1:PRINT#2,R2
  72. 320 PRINT#2,R3:PRINT#2,R4:PRINT#2,R5:PRINT#2,AS:PRINT#2,R6:PRINT#2,R7
  73. 325 PRINT#2,R8:PRINT#2,R9:PRINT#2,JH:PRINT#2,DS:PRINT#2,LV:PRINT#2,KK
  74. 330 PRINT#2,S1:PRINT#2,S2:PRINT#2,S3:PRINT#2,S4:PRINT#2,S5:PRINT#2,D1
  75. 335 PRINT#2,D2:PRINT#2,D3:PRINT#2,D4:PRINT#2,D5:PRINT#2,D6:PRINT#2,D7
  76. 340 PRINT#2,J9$:PRINT#2,O1:PRINT#2,G1:PRINT#2,O2:PRINT#2,G2:PRINT#2,O3
  77. 345 PRINT#2,G3:PRINT#2,O4:PRINT#2,G4:PRINT#2,O5:PRINT#2,G5:PRINT#2,O6
  78. 350 PRINT#2,G6:PRINT#2,P1:PRINT#2,P2:PRINT#2,P3:PRINT#2,P4:PRINT#2,P5
  79. 355 PRINT#2,P6:PRINT#2,AG:PRINT#2,AF:PRINT#2,AD:PRINT#2,AC:PRINT#2,AB
  80. 360 PRINT#2,ER:PRINT#2,HZ:PRINT#2,TQ:PRINT#2,CS:PRINT#2,YY:PRINT#2,V9
  81. 365 PRINT#2,J7:PRINT#2,L1:PRINT#2,L2:PRINT#2,L3:PRINT#2,L4:PRINT#2,J9
  82. 370 PRINT#2,J4:PRINT#2,J5:PRINT#2,J6:PRINT#2,J8:PRINT#2,B7:PRINT#2,G9
  83. 375 PRINT#2,M1$:PRINT#2,A2$:CLOSE2:GOTO10000
  84. 380 A2$="W":OPEN2,8,2,"X4,S,R"
  85. 385 INPUT#2,VG,B,A7,F,G,Z,I,E,RT,C,SZ$,R1,R2,R3,R4,R5,AS,R6,R7,R8,R9,JH,DS,LV
  86. 390 INPUT#2,KK,S1,S2,S3,S4,S5,D1,D2,D3,D4,D5,D6,D7,J9$,O1,G1,O2,G2,O3,G3,O4,G4
  87. 395 INPUT#2,O5,G5,O6,G6,P1,P2,P3,P4,P5,P6,AG,AF,AD,AC,AB,ER,HZ,TQ,CS,YY,V9,J7
  88. 396 INPUT#2,L1,L2,L3,L4,J9,J4,J5,J6,J8,B7,G9,M1$,A2$
  89. 399 IFST=64THENCLOSE2:RETURN
  90. 400 PRINT"{clear}"
  91. 405 PRINT"{red}                {$d7}  {$c1}  {$d2}"
  92. 410 PRINT"               {rvrs on}{white}           "
  93. 415 PRINT"{down:2}{$d7}HOM DO YOU WANT TO ATTACK ?"
  94. 420 PRINT"{rvrs on}{purple}                            "
  95. 425 PRINT"{down}1.  {$d3}OUTH-{$c1}FRICA"
  96. 430 PRINT"2.  {$ce}AMIBIA"
  97. 435 PRINT"3.  {$c2}OTSWANA"
  98. 440 PRINT"4.  {$cd}OCAMBIQUE"
  99. 445 PRINT"5.  {$da}IMBABWE"
  100. 450 PRINT"6.  {$da}AMIBIA"
  101. 455 PRINT"7.  {$c1}NGOLA"
  102. 460 PRINT"8.  {$cd}ALAWI"
  103. 465 PRINT"9.  {$da}AIRE"
  104. 470 POKE649,10:INPUT"{down}: ";VS:IFG9=42THENVS=INT(9*RND(1))+1:G9=0
  105. 475 IFVS=1THENEW=R1:PRINT"{rvrs on}{$cf}PPONENT: {$d3}OUTH-{$c1}FRICA":GOTO530
  106. 480 IFVS=2THENEW=R2:PRINT"{rvrs on}{$cf}PPONENT: {$ce}AMIBIA":GOTO530
  107. 485 IFVS=3THENEW=R3:PRINT"{rvrs on}{$cf}PPONENT: {$c2}OTSWANA":GOTO530
  108. 490 IFVS=4THENEW=R4:PRINT"{rvrs on}{$cf}PPONENT: {$cd}OCAMBIQUE":GOTO530
  109. 495 IFVS=5THENEW=R5:PRINT"{rvrs on}{$cf}PPONENT: {$da}IMBABWE":GOTO530
  110. 500 IFVS=6THENEW=R6:PRINT"{rvrs on}{$cf}PPONENT: {$da}AMIBIA":GOTO530
  111. 505 IFVS=7THENEW=R7:PRINT"{rvrs on}{$cf}PPONENT: {$c1}NGOLA":GOTO530
  112. 510 IFVS=8THENEW=R8:PRINT"{rvrs on}{$cf}PPONENT: {$cd}ALAWI":GOTO530
  113. 515 IFVS=9THENEW=R9:PRINT"{rvrs on}{$cf}PPONENT: {$da}AIRE":GOTO530
  114. 520 GOTO470
  115. 530 IT=5*VG-3000:ZR=INT(10000*RND(1))+VG:FORRZ=1TO200:::NEXTRZ
  116. 531 TR=EW/KK:V1=D1*TR:V2=D2*TR:V3=D3*TR:V4=D4*TR:V5=D5*TR:V6=D6*TR:V7=D7*TR
  117. 535 IFZR<=ITTHENPRINT"{rvrs on}{$d9}OUR OPPONENT ATTACKS FIRST !!!":GOSUB705:GOTO550
  118. 540 IFZR>ITTHENPRINT"{rvrs on}{$d4}ANALAND IS FIRST TO ATTACK !!!":GOSUB705:GOTO1000
  119. 550 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  120. 555 IFD6<=0THENGOTO565
  121. 560 IFF1>F2ANDF1>(D6+D7)THENPRINT"{rvrs on}{$d9}OUR SOLDIERS ARE HIT BADLY !":D6=D6-EW/200
  122. 565 IFF1>F2ANDF1>(D6+D7)THEND7=D7-EW/200
  123. 570 IFD6<0THEND6=0
  124. 575 IFD7<0THEND7=0
  125. 580 IF(D6+D7)<=0THENGOTO760
  126. 585 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6
  127. 590 L=SI+24:FORX=15TO0STEP-1:POKEL,X:POKEA,15:POKEH,0:POKEFH,40:POKEFL,200
  128. 595 POKEW,129:NEXT:POKEW,0:POKEA,0:GOSUB67
  129. 600 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  130. 605 IFV6<=0THENGOTO615
  131. 610 IFF1<F2ANDF2>(V6+V7)THENPRINT"{rvrs on}{$d9}OUR OPPONENT IS HIT BADLY !":V6=V6-KK/200
  132. 615 IFF1<F2ANDF2>(V6+V7)THENV7=V7-KK/200
  133. 620 IFV6<0THENV6=0
  134. 625 IFV7<0THENV7=0
  135. 630 IF(V6+V7)<=0THENGOTO750
  136. 645 POKEW,129:POKEW,0:POKEA,0:GOSUB67
  137. 650 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  138. 655 IFD3<=0THENGOTO670
  139. 660 IFF1>F2ANDF1>D3THENPRINT"{rvrs on}{$d9}OUR JEEPS ARE HIT BADLY !":D3=D3-EW/200
  140. 665 IFD3<0THEND3=0
  141. 670 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  142. 675 IFD3<=0THENGOTO690
  143. 680 IFF1<F2ANDF2>V3THENPRINT"{rvrs on}{$d9}OUR OPPONENT IS HIT BADLY !":V3=V3-KK/200
  144. 685 IFV3<0THENV3=0
  145. 690 GOTO800
  146. 705 PRINT"{$d3}OLDIERS & {$cd}ERCENARIES: ";INT(D6+D7)
  147. 710 PRINT"{$ca}EEPS: ";INT(D3)
  148. 715 PRINT"{$d4}ANKS: ";INT(D1)
  149. 720 PRINT"{$c6}IGHTER-PLANES: ";INT(D2)
  150. 725 GOSUB67:PRINT"{down}{$c6}IGHTING POWER: ";INT(KK)
  151. 730 PRINT"{down}{$c6}IGHTING POWER (OPPONENT): ";INT(EW)
  152. 735 RETURN
  153. 750 PRINT"{rvrs on}{$d9}OUR ENEMY IS DEFEATED !":A7=A7+F2/200:CS=CS+50000:C=C+F2/3
  154. 751 POKE198,0:WAIT198,1:POKE198,0
  155. 752 PRINT"{clear}":PRINT"{rvrs on}              {$d7}AREXPLOITER              "
  156. 753 PRINT"{down}{$cc}AND: ";INT(F2/200);" ACRES"
  157. 754 PRINT"{$c6}ORTUNE: ";INT(F2/3);" $"
  158. 755 B=B/2+A7/3:POKE198,0:WAIT198,1:POKE198,0:GOSUB20000:GOTO300
  159. 760 PRINT"{rvrs on}{$d9}OUR ARMY IS DEFEATED ! {$c8}UGE PARTS OF YOUR POSSESSIONS HAVE BEEN ";
  160. 762 PRINT"TAKEN !":A7=A7-F1/200:B=B/2
  161. 764 Z=0:E=E/4:C=C-(F1/3):CS=CS-50000:D1=0:D2=0:D3=D3/5:D4=0:D5=D5/5:D6=0:D7=0
  162. 766 EW=EW+50000:GOSUB20000:GOTO300
  163. 800 GOSUB67:F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  164. 805 IFF1>F2ANDF1>D1THENPRINT"{rvrs on}{$d9}OUR TANKS ARE HIT BADLY !":D1=D1-EW/300
  165. 810 IFD1<0THEND1=0
  166. 815 GOSUB67:F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  167. 820 IFF1<F2ANDF2>V1THENPRINT"{rvrs on}{$d9}OUR OPPONENT'S TANKS ARE HIT BADLY!":V1=V1-KK/300
  168. 825 IFV1<0THENV1=0
  169. 830 GOSUB67:GOSUB60000
  170. 835 PRINT"{rvrs on}{$d4}HE FIGHTER-PLANES OF YOUR OPPONENT BEGIN TO ATTACK !!!"
  171. 840 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  172. 845 IFF1>F2ANDF1>D2THENPRINT"{rvrs on}{$d9}OUR FIGHTER-PLANES ARE HIT BADLY !":D2=D2-EW/400
  173. 850 GOSUB67
  174. 855 PRINT"{rvrs on}{$d9}OUR FIGHTER-PLANES BEGIN TO ATTACK !!!"
  175. 860 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  176. 865 IFF1<F2ANDF2>V2THENPRINT"{rvrs on}{$d9}OUR OPPONENT IS HIT BADLY !":V2=V2-KK/400
  177. 870 GOSUB67:IFKK<=0OR(D6+D7)<=0THENGOTO760
  178. 875 IFEW<=0OR(V6+V7)<=0THENGOTO750
  179. 1000 TR=EW/KK:V1=D1*TR:V2=D2*TR:V3=D3*TR:V4=D4*TR:V5=D5*TR:V6=D6*TR:V7=D7*TR
  180. 1005 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  181. 1010 IFV6<=0THENGOTO1020
  182. 1015 IFF1<F2ANDF2>(V6+V7)THENPRINT"{rvrs on}{$d9}OUR OPPONENT IS HIT BADLY !":V6=V6-KK/200
  183. 1020 IFF1<F2ANDF2>(V6+V7)THENV7=V7-KK/200
  184. 1025 IFV6<0THENV6=0
  185. 1030 IFV7<0THENV7=0
  186. 1035 IF(V6+V7)<=0THENGOTO750
  187. 1040 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  188. 1045 IFD6<=0THENGOTO1055
  189. 1050 IFF1>F2ANDF1>(D6+D7)THENPRINT"{rvrs on}{$d9}OUR SOLDIERS ARE HIT BADLY !":D6=D6-EW/200
  190. 1055 IFF1>F2ANDF1>(D6+D7)THEND7=D7-EW/200
  191. 1060 IFD6<0THEND6=0
  192. 1065 IFD7<0THEND7=0
  193. 1070 IF(D6+D7)<=0THENGOTO760
  194. 1075 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6
  195. 1080 L=SI+24:FORX=15TO0STEP-1:POKEL,X:POKEA,15:POKEH,0:POKEFH,40:POKEFL,200
  196. 1085 POKEW,129:NEXT:POKEW,0:POKEA,0:GOSUB67
  197. 1090 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  198. 1095 IFD3<=0THENGOTO1110
  199. 1100 IFF1<F2ANDF2>V3THENPRINT"{rvrs on}{$d9}OUR OPPONENT IS HIT BADLY !":V3=V3-KK/200
  200. 1105 IFV3<0THENV3=0
  201. 1110 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1:GOSUB67
  202. 1115 IFD3<=0THENGOTO1130
  203. 1120 IFF1>F2ANDF1>D3THENPRINT"{rvrs on}{$d9}OUR JEEPS ARE HIT BADLY !":D3=D3-EW/200
  204. 1125 IFD3<0THEND3=0
  205. 1130 GOSUB67:F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  206. 1135 IFF1<F2ANDF2>V1THENPRINT"{rvrs on}{$d9}OUR OPPONENT'S TANKS ARE HIT BADLY!":V1=V1-KK/300
  207. 1140 IFV1<0THENV1=0
  208. 1145 GOSUB67:F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  209. 1150 IFF1>F2ANDF1>D1THENPRINT"{rvrs on}{$d9}OUR TANKS ARE HIT BADLY !":D1=D1-EW/300
  210. 1155 IFD1<0THEND1=0
  211. 1160 GOSUB67:GOSUB60000
  212. 1165 PRINT"{rvrs on}{$d9}OUR FIGHTER-PLANES BEGIN TO ATTACK !!!"
  213. 1170 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  214. 1180 GOSUB67
  215. 1185 PRINT"{rvrs on}{$d4}HE FIGHTER-PLANES OF YOUR OPPONENT BEGIN TO ATTACK !!!"
  216. 1190 F1=INT(EW*RND(1))+1:F2=INT(KK*RND(1))+1
  217. 1195 IFF1>F2ANDF1>D2THENPRINT"{rvrs on}{$d9}OUR FIGHTER-PLANES ARE HIT BADLY !":D2=D2-EW/400
  218. 1200 GOSUB67:IFKK<=0OR(D6+D7)<=0THENGOTO760
  219. 1205 IFEW<=0OR(V6+V7)<=0THENGOTO750
  220. 10000 GOSUB20000:POKE646,0:PRINT"{down}LOAD";CHR$(34);"X2";CHR$(34);",8,1
  221. 10005 PRINT"{down:4}RUN"
  222. 10010 PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13:POKE633,13:END
  223. 17000 M1=0:IFV5<=V6THENM1=M1+V5*4
  224. 17005 IFV5>V6THENM1=M1+V6*4
  225. 17010 IFV4<=V6THENM1=M1+V4
  226. 17015 IFV4>V6THENM1=M1+V6
  227. 17020 EW=(M1+V6*20+V7*10+V3*5+V1*150+V2*200)*(5.5)
  228. 17025 IF(V3+V1+V2)<=(V6+.5*V7)THENRETURN
  229. 17030 IFV3>V6THENEW=EW-((V3-V6)*5)
  230. 17035 IFV1>V6THENEW=EW-((V1-V6)*150)
  231. 17040 IFV2>V6THENEW=EW-((V2-V6)*200)
  232. 17045 RETURN
  233. 20000 GOSUB17000:IFVS=1THENR1=EW:G9=42
  234. 20005 IFVS=2THENR2=EW:IFR2>KKTHENG9=42
  235. 20010 IFVS=3THENR3=EW:IFR3>KKTHENG9=42
  236. 20015 IFVS=4THENR4=EW:IFR4>KKTHENG9=42
  237. 20020 IFVS=5THENR5=EW:IFR5>KKTHENG9=42
  238. 20025 IFVS=6THENR6=EW:IFR6>KKTHENG9=42
  239. 20030 IFVS=7THENR7=EW:IFR7>KKTHENG9=42
  240. 20035 IFVS=8THENR8=EW:IFR8>KKTHENG9=42
  241. 20040 IFVS=9THENR9=EW:IFR9>KKTHENG9=42
  242. 20045 RETURN
  243. 25000 IF(KK+1000000)>=R1THENVS=1:GOTO475
  244. 25020 A2=INT((.5*VG)*RND(1))+1:IFA2<=9THENG9=42:GOTO470
  245. 25025 A2=INT(KK*RND(1))+1:IFA2<=9THENG9=42:GOTO470
  246. 25030 RETURN
  247. 40000 PRINT"{CLEAR}"
  248. 40005 PRINT"{rvrs ON}{purple}          {$cd}{shft space:2}{$c1}{shft space:2}{$ce}{shft space:2}{$cf}{$c5}  {$d5}  {$d6}{shft space:2}{$d2}{shft space:2}{$c5}       "
  249. 40010 RETURN
  250. 50000 PRINT"{CLEAR}"
  251. 50005 PRINT"1. {$d3}OUTH-{$c1}FRICA   {$c6}{$d0}: ";INT(R1)
  252. 50010 PRINT"2. {$ce}AMIBIA        {$c6}{$d0}: ";INT(R2)
  253. 50015 PRINT"3. {$c2}OTSWANA       {$c6}{$d0}: ";INT(R3)
  254. 50020 PRINT"4. {$cd}OCAMBIQUE     {$c6}{$d0}: ";INT(R4)
  255. 50025 PRINT"5. {$da}IMBABWE       {$c6}{$d0}: ";INT(R5)
  256. 50030 PRINT"6. {$da}AMIBIA        {$c6}{$d0}: ";INT(R6)
  257. 50035 PRINT"7. {$c1}NGOLA         {$c6}{$d0}: ";INT(R7)
  258. 50040 PRINT"8. {$cd}ALAWI         {$c6}{$d0}: ";INT(R8)
  259. 50045 PRINT"9. {$da}AIRE          {$c6}{$d0}: ";INT(R9)
  260. 50050 POKE198,0:WAIT198,1:POKE198,0:GOTO5
  261. 60000 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
  262. 60005 POKEL,15:POKETH,15:POKETL,15:POKEA,0*16+0:POKEH,15*16
  263. 60010 POKEW,65
  264. 60015 FORX=100TO0STEP-8:POKEFH,40:POKEFL,X:NEXT
  265. 60020 FORX=250TO0STEP-1:POKEFH,40:POKEFL,X:NEXT
  266. 60025 POKEW,0
  267. 60030 RETURN
  268. 60040 END
  269.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!