API tools faq
paste
Advertisement
Guest User

X11 code

a guest
Aug 28th, 2021
152
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 10.24 KB | None | 0 0
raw download clone embed print report
  1. 1 PRINT"{clear}":M1=0:GOSUB60000:A3=INT(RND(TI)):A3=(INT(20*RND(1))+1)/10:C=C-50000
  2. 2 A4=(INT(20*RND(1))+1)/10:A5=(INT(20*RND(1))+1)/10:A6=(INT(20*RND(1))+1)/10
  3. 3 K7=(INT(20*RND(1))+1)/10:A8=(INT(20*RND(1))+1)/10:A9=(INT(20*RND(1))+1)/10
  4. 4 H1=(INT(20*RND(1))+1)/10:H2=(INT(20*RND(1))+1)/10:H3=(INT(20*RND(1))+1)/10
  5. 5 H4=99:PRINT"{clear}":PRINT"{white}";CHR$(14):POKE657,128:POKE53280,4:POKE53281,0
  6. 10 PRINT"{rvrs on}                - {$c5}CONOMY -             "
  7. 15 PRINT"{down}{$ce}AME: ";J9$;"{shft space}";SZ$
  8. 20 PRINT"{down}{yellow}   1. {$d4}O GET PRICES + TO BUY GOODS"
  9. 48 PRINT"   2. END"
  10. 50 PRINT"{down}{white}{rvrs on}                                        "
  11. 55 INPUT"{down}         {$d9}OUR DECISION ";A1
  12. 60 IFA1=1THENGOTO100
  13. 80 IFA1=2THENGOTO900
  14. 90 GOTO5
  15. 100 PRINT"{clear}":PRINT"{rvrs on}{yellow}               - {$cf}FFERS -               "
  16. 105 PRINT"{down}             1.{$d3}OUTH-{$c1}FRICA"
  17. 110 PRINT"             2.{$ce}AMIBIA"
  18. 115 PRINT"             3.{$c2}OTSWANA"
  19. 120 PRINT"             4.{$cd}OCAMBIQUE"
  20. 125 PRINT"             5.{$da}IMBABWE"
  21. 130 PRINT"             6.{$da}AMIBIA"
  22. 135 PRINT"             7.{$c1}NGOLA"
  23. 140 PRINT"             8.{$cd}ALAWI"
  24. 145 PRINT"             9.{$da}AIRE"
  25. 150 PRINT"            10.{$c3}ONGO"
  26. 155 PRINT"{down}                                        "
  27. 160 INPUT"{down}    {$d0}RICES FROM WHICH COUNTRY ";A1
  28. 165 IFA1=1THENA2=R1*A3:GOSUB1000
  29. 170 IFA1=2THENA2=R2*A4:GOSUB1000
  30. 175 IFA1=3THENA2=R3*A5:GOSUB1000
  31. 180 IFA1=4THENA2=R4*A6:GOSUB1000
  32. 185 IFA1=5THENA2=R5*K7:GOSUB1000
  33. 190 IFA1=6THENA2=R6*A8:GOSUB1000
  34. 192 IFA1=7THENA2=R7*A9:GOSUB1000
  35. 194 IFA1=8THENA2=R8*H1:GOSUB1000
  36. 196 IFA1=9THENA2=R9*H2:GOSUB1000
  37. 197 IFA1=10THENA2=H4:GOSUB1000
  38. 198 GOTO5
  39. 900 M1=B:GOSUB60010:POKE646,0:PRINT"{down}LOAD";CHR$(34);"X2";CHR$(34);",8,1"
  40. 905 PRINT"{down:4}RUN":PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13:POKE633,13
  41. 910 END
  42. 1000 PRINT"{clear}{rvrs on}{white}                                        ":GOSUB4100
  43. 1005 PRINT"{$ce}R. GOODS                 PRICE         "
  44. 1010 PRINT"{$a6:40}"
  45. 1011 A3=(INT(20*RND(1))+1)/10
  46. 1012 B1=JH*AD/2700*((500*KK)/A2):IFB1<1THENB1=1
  47. 1013 IFB1>12THENB1=12
  48. 1014 IFA2=H4THENB1=JH
  49. 1015 GOSUB2000:PRINT"{down}1. WHEAT (1 P./1 YEAR)    ";INT(B1);" $"
  50. 1017 B2=Z*AD/2700*((500*KK)/A2):IFB2<20THENB2=20
  51. 1018 IFB2>1000THENB2=1000
  52. 1019 IFA2=H4THENB2=J7
  53. 1020 GOSUB2011:GOSUB9000:PRINT"2. CATTLE                 ";INT(B2);" $"
  54. 1022 B3=AS*AD/2000*((500*KK)/A2):IFB3<100THENB3=100
  55. 1023 IFB3>5000THENB3=5000
  56. 1024 IFA2=H4THENB3=AS
  57. 1025 GOSUB2022:IFB3<650THENB3=650
  58. 1026 PRINT"3. LAND (PER ACRE)        ";INT(B3);" $"
  59. 1050 PRINT"{rvrs on}{yellow}                                        "
  60. 1055 INPUT"    {$d7}HAT DO YOU WANT TO BUY ";A1:IFA1<1ORA1>3THENGOTO100
  61. 1060 INPUT"    {$c8}OW OFTEN DO YOU WANT TO BUY THAT ";T4
  62. 1061 GOSUB4010
  63. 1065 IFA1=1ANDT4>=0THENI=I+T4:C=C-T4*B1:GOTO1000
  64. 1070 IFA1=2ANDT4>=0THENZ=Z+T4:C=C-T4*B2:GOTO1000
  65. 1075 IFA1=3ANDT4>=0THENA7=A7+T4:C=C-T4*B3:GOTO1000
  66. 1080 GOTO100
  67. 1199 POKE198,0:WAIT198,1:POKE198,0
  68. 1200 RETURN
  69. 2000 IFA2=(R1*A3)THENB1=(B1*1.15)+H5/2
  70. 2001 IFA2=(R2*A4)THENB1=(B1*1.1)+H6
  71. 2002 IFA2=(R3*A5)THENB1=(B1*1.05)+H7/1.5
  72. 2003 IFA2=(R4*A6)THENB1=(B1*1.1)+H8/2
  73. 2004 IFA2=(R5*K7)THENB1=(B1*1.1)+H9
  74. 2005 IFA2=(R6*A8)THENB1=(B1*1.15)+T1/2
  75. 2006 IFA2=(R7*A9)THENB1=(B1*1.15)+T2
  76. 2007 IFA2=(R8*H1)THENB1=(B1*1.1)+T3
  77. 2008 IFA2=(R9*H2)THENB1=(B1*1.1)+H3/2
  78. 2009 IFA2=H4THENB1=JH
  79. 2010 RETURN
  80. 2011 IFA2=(R1*A3)THENB2=(B2*0.05)+10*H5
  81. 2012 IFA2=(R2*A4)THENB2=(B2*1.25)+8*H6
  82. 2013 IFA2=(R3*A5)THENB2=(B2*1.2)+9*H7
  83. 2014 IFA2=(R4*A6)THENB2=(B2*1.15)+6*H8
  84. 2015 IFA2=(R5*A7)THENB2=(B2*1.15)+7*H9
  85. 2016 IFA2=(R6*A8)THENB2=(B2*1.1)+8*T1
  86. 2017 IFA2=(R7*A9)THENB2=(B2*1.3)+9*T2
  87. 2018 IFA2=(R8*H1)THENB2=(B2*1.2)+9*T3
  88. 2019 IFA2=(R9*H2)THENB2=(B2*1.15)+10*H3
  89. 2020 IFA2=H4THENB2=J7
  90. 2021 RETURN
  91. 2022 IFA2=(R1*A3)THENB3=(B3*1.1)+3*H5
  92. 2023 IFA2=(R2*A4)THENB3=(B2*1.35)+4*H6
  93. 2024 IFA2=(R3*A5)THENB3=(B3*1.1)+5*H7
  94. 2025 IFA2=(R4*A6)THENB3=(B3*1.3)+4*H8
  95. 2026 IFA2=(R5*K7)THENB3=(B3*1.25)+3*H9
  96. 2027 IFA2=(R6*A8)THENB3=(B3*1.2)+5*T1
  97. 2028 IFA2=(R7*A9)THENB3=(B3*1.25)+3*T2
  98. 2029 IFA2=(R8*H1)THENB3=(B3*1.4)+2*T3
  99. 2030 IFA2=(R9*H2)THENB3=(B3*1.2)+6*H3
  100. 2031 IFA2=H4THENB3=AS
  101. 2032 RETURN
  102. 4000 M1=R1/120:M2=R2/23:M3=R3/23:M4=R4/23:M5=R5/23:M6=R6/23:M7=R8/23:M8=R8/23
  103. 4001 M9=R9/23:N7=R1/300:RETURN
  104. 4010 IFA1=1ANDA2=(R1*A3)ANDT4<=M1THENM1=M1-T4:R1=R1+T4/10000
  105. 4011 IFA1=1ANDA2=(R1*A3)ANDT4>M1THENT4=M1:R1=R1+T4/10000:M1=M1-T4
  106. 4012 IFA1=1ANDA2=(R2*A4)ANDT4<=M2THENM2=M2-T4:R2=R2+T4/10000
  107. 4013 IFA1=1ANDA2=(R2*A4)ANDT4>M2THENT4=M2:R2=R2+T4/10000:M2=M2-T4
  108. 4014 IFA1=1ANDA2=(R3*A5)ANDT4<=M3THENM3=M3-T4:R3=R3+T4/10000
  109. 4015 IFA1=1ANDA2=(R3*A5)ANDT4>M3THENT4=M3:R3=R3+T4/10000:M3=M3-T4
  110. 4016 IFA1=1ANDA2=(R4*A6)ANDT4<=M4THENM4=M4-T4:R4=R4+T4/10000
  111. 4017 IFA1=1ANDA2=(R4*A6)ANDT4>M4THENT4=M4:R4=R4+T4/10000:M4=M4-T4
  112. 4018 IFA1=1ANDA2=(R5*K7)ANDT4<=M5THENM5=M5-T4:R5=R5+T4/10000
  113. 4019 IFA1=1ANDA2=(R5*K7)ANDT4>M5THENT4=M5:R5=R5+T4/10000:M5=M5-T4
  114. 4020 IFA1=1ANDA2=(R6*A8)ANDT4<=M6THENM6=M6-T4:R6=R6+T4/10000
  115. 4021 IFA1=1ANDA2=(R6*A8)ANDT4>M6THENT4=M6:R6=R6+T4/10000:M6=M6-T4
  116. 4022 IFA1=1ANDA2=(R7*A9)ANDT4<=M7THENM7=M7-T4:R7=R7+T4/10000
  117. 4023 IFA1=1ANDA2=(R7*A9)ANDT4>M7THENT4=M7:R7=R7+T4/10000:M7=M7-T4
  118. 4024 IFA1=1ANDA2=(R8*H1)ANDT4<=M8THENM8=M8-T4:R8=R8+T4/10000
  119. 4025 IFA1=1ANDA2=(R8*H1)ANDT4>M8THENT4=M8:R8=R8+T4/10000:M8=M8-T4
  120. 4026 IFA1=1ANDA2=(R9*H2)ANDT4<=M9THENM9=M9-T4:R9=R9+T4/10000
  121. 4027 IFA1=1ANDA2=(R9*H2)ANDT4>M9THENT4=M9:R9=R9+T4/10000:M9=M9-T4
  122. 4028 IFA1=1ANDA2=H4ANDT4<=N7THENN7=N7-T4
  123. 4029 IFA1=1ANDA2=H4ANDT4>N7THENT4=N7:N7=N7-T4
  124. 4030 IFA1=2ANDA2=(R1*A3)ANDT4<=(M1/1000)THENM1=M1-T4*1000:R1=R1+T4/10
  125. 4031 IFA1=2ANDA2=(R1*A3)ANDT4>(M1/1000)THENT4=M1/1000:M1=M1-T4*1000:R1=R1+T4/10
  126. 4032 IFA1=2ANDA2=(R2*A4)ANDT4<=(M2/1000)THENM2=M2-T4*1000:R2=R2+T4/10
  127. 4033 IFA1=2ANDA2=(R2*A4)ANDT4>(M2/1000)THENT4=M2/1000:M2=M2-T4*1000:R2=R2+T4/10
  128. 4034 IFA1=2ANDA2=(R3*A5)ANDT4<=(M3/1000)THENM3=M3-T4*1000:R3=R3+T4/10
  129. 4035 IFA1=2ANDA2=(R3*A5)ANDT4>(M3/1000)THENT4=M3/1000:M3=M3-T4*1000:R3=R3+T4/10
  130. 4036 IFA1=2ANDA2=(R4*A6)ANDT4<=(M4/1000)THENM4=M4-T4*1000:R4=R4+T4/10
  131. 4037 IFA1=2ANDA2=(R4*A6)ANDT4>(M4/1000)THENT4=M4/1000:M4=M4-T4*1000:R4=R4+T4/10
  132. 4038 IFA1=2ANDA2=(R5*K7)ANDT4<=(M5/1000)THENM5=M5-T4*1000:R5=R5+T4/10
  133. 4039 IFA1=2ANDA2=(R5*K7)ANDT4>(M5/1000)THENT4=M5/1000:M5=M5-T4*1000:R5=R5+T4/10
  134. 4040 IFA1=2ANDA2=(R6*A8)ANDT4<=(M6/1000)THENM6=M6-T4*1000:R6=R6+T4/10
  135. 4041 IFA1=2ANDA2=(R6*A8)ANDT4>(M6/1000)THENT4=M6/1000:M6=M6-T4*1000:R6=R6+T4/10
  136. 4042 IFA1=2ANDA2=(R7*A9)ANDT4<=(M7/1000)THENM7=M7-T4*1000:R7=R7+T4/10
  137. 4043 IFA1=2ANDA2=(R7*A9)ANDT4>(M7/1000)THENT4=M7/1000:M7=M7-T4*1000:R7=R7+T4/10
  138. 4044 IFA1=2ANDA2=(R8*H1)ANDT4<=(M8/1000)THENM8=M8-T4*1000:R8=R8+T4/10
  139. 4045 IFA1=2ANDA2=(R8*H1)ANDT4>(M8/1000)THENT4=M8/1000:M8=M8-T4*1000:R8=R8+T4/10
  140. 4046 IFA1=2ANDA2=(R9*H2)ANDT4<=(M9/1000)THENM9=M9-T4*1000:R9=R9+T4/10
  141. 4047 IFA1=2ANDA2=(R9*H2)ANDT4>(M9/1000)THENT4=M9/1000:M9=M9-T4*1000:R9=R9+T4/10
  142. 4048 IFA1=2ANDA2=H4ANDT4<=(N7/1000)THENN7=N7-T4*1000
  143. 4049 IFA1=2ANDA2=H4ANDT4>(N7/1000)THENT4=N7/1000:N7=N7-T4*1000
  144. 4050 IFA1=3ANDA2=H4ANDT4<=(N7/500)THENN7=N7-T4*500
  145. 4051 IFA1=3ANDA2=H4ANDT4>(N7/500)THENT4=N7/500:N7=N7-T4*500
  146. 4052 IFA1=3ANDA2=(R1*A3)ANDT4<=(M1/500)THENM1=M1-T4*500:R1=R1+T4/5
  147. 4053 IFA1=3ANDA2=(R1*A3)ANDT4>(M1/500)THENT4=M1/500:M1=M1-T4*500:R1=R1+T4/5
  148. 4054 IFA1=3ANDA2=(R2*A4)ANDT4<=(M2/500)THENM2=M2-T4*500:R2=R2+T4/5
  149. 4055 IFA1=3ANDA2=(R2*A4)ANDT4>(M2/500)THENT4=M2/500:M2=M2-T4*500:R2=R2+T4/5
  150. 4056 IFA1=3ANDA2=(R3*A5)ANDT4<=(M3/500)THENM3=M3-T4*500:R3=R3+T4/5
  151. 4057 IFA1=3ANDA2=(R3*A5)ANDT4>(M3/500)THENT4=M3/500:M3=M3-T4*500:R3=R3+T4/5
  152. 4058 IFA1=3ANDA2=(R4*A6)ANDT4<=(M4/500)THENM4=M4-T4*500:R4=R4+T4/5
  153. 4059 IFA1=3ANDA2=(R4*A6)ANDT4>(M4/500)THENT4=M4/500:M4=M4-T4*500:R4=R4+T4/5
  154. 4060 IFA1=3ANDA2=(R5*K7)ANDT4<=(M5/500)THENM5=M5-T4*500:R5=R5+T4/5
  155. 4061 IFA1=3ANDA2=(R5*K7)ANDT4>(M5/500)THENT4=M5/500:M5=M5-T4*500:R5=R5+T4/5
  156. 4062 IFA1=3ANDA2=(R6*A8)ANDT4<=(M6/500)THENM6=M6-T4*500:R6=R6+T4/5
  157. 4063 IFA1=3ANDA2=(R6*A8)ANDT4>(M6/500)THENT4=M6/500:M6=M6-T4*500:R6=R6+T4/5
  158. 4064 IFA1=3ANDA2=(R7*A9)ANDT4<=(M7/500)THENM7=M7-T4*500:R7=R7+T4/5
  159. 4065 IFA1=3ANDA2=(R7*A9)ANDT4>(M7/500)THENT4=M7/500:M7=M7-T4*500:R7=R7+T4/5
  160. 4066 IFA1=3ANDA2=(R8*H1)ANDT4<=(M8/500)THENM8=M8-T4*500:R8=R8+T4/5
  161. 4067 IFA1=3ANDA2=(R8*H1)ANDT4>(M8/500)THENT4=M8/500:M8=M8-T4*500:R8=R8+T4/5
  162. 4068 IFA1=3ANDA2=(R9*H2)ANDT4<=(M9/500)THENM9=M9-T4*500:R9=R9+T4/5
  163. 4069 IFA1=3ANDA2=(R9*H2)ANDT4>(M9/500)THENT4=M9/500:M9=M9-T4*500:R9=R9+T4/5
  164. 4075 RETURN
  165. 4100 PRINT"{$d7}HEAT: ";INT(I);" {$c3}ATTLE: ";INT(Z);" {$cc}AND: ";INT(A7)
  166. 4105 PRINT"{down}{$c6}ORTUNE: ";INT(C);" $"
  167. 4110 PRINT"{down}":RETURN
  168. 9000 IFB2<40THENB2=40
  169. 9005 RETURN
  170. 50000 END
  171. 60000 OPEN2,8,2,"X4,S,R"
  172. 60002 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
  173. 60003 INPUT#2,KK,S1,S2,S3,S4,S5,D1,D2,D3,D4,D5,D6,D7,J9$,O1,G1,O2,G2,O3,G3,O4,G4
  174. 60004 INPUT#2,O5,G5,O6,G6,P1,P2,P3,P4,P5,P6,AG,AF,AD,AC,AB,ER,HZ,TQ,CS,YY,V9,J7
  175. 60005 INPUT#2,L1,L2,L3,L4,J9,J4,J5,J6,J8,B7,G9,M1$,A2$:IFST=64THENCLOSE2
  176. 60006 H5=(INT(20*RND(1))+1)/10:H6=(INT(20*RND(1))+1)/10:GOSUB4000
  177. 60007 H7=(INT(20*RND(1))+1)/10:H8=(INT(20*RND(1))+1)/10
  178. 60008 H9=(INT(20*RND(1))+1)/10:T1=(INT(20*RND(1))+1)/10
  179. 60009 T2=(INT(20*RND(1))+1)/10:T3=(INT(20*RND(1))+1)/10:RETURN
  180. 60010 M1$="N":PRINT"{$d3}AVING ";J9$;"{shft space}";SZ$;"{shft space}!":A2$="S"
  181. 60015 OPEN2,8,2,"@:X5,S,W":PRINT#2,M1$:CLOSE2:OPEN2,8,2,"@:X4,S,W"
  182. 60020 PRINT#2,VG:PRINT#2,B:PRINT#2,A7:PRINT#2,F:PRINT#2,G:PRINT#2,Z:PRINT#2,I
  183. 60025 PRINT#2,E:PRINT#2,RT:PRINT#2,C:PRINT#2,SZ$:PRINT#2,R1:PRINT#2,R2
  184. 60030 PRINT#2,R3:PRINT#2,R4:PRINT#2,R5:PRINT#2,AS:PRINT#2,R6:PRINT#2,R7
  185. 60032 PRINT#2,R8
  186. 60035 PRINT#2,R9:PRINT#2,JH:PRINT#2,DS:PRINT#2,LV:PRINT#2,KK:PRINT#2,S1
  187. 60040 PRINT#2,S2:PRINT#2,S3:PRINT#2,S4:PRINT#2,S5:PRINT#2,D1:PRINT#2,D2
  188. 60045 PRINT#2,D3:PRINT#2,D4:PRINT#2,D5:PRINT#2,D6:PRINT#2,D7:PRINT#2,J9$
  189. 60050 PRINT#2,O1:PRINT#2,G1:PRINT#2,O2:PRINT#2,G2:PRINT#2,O3:PRINT#2,G3
  190. 60055 PRINT#2,O4:PRINT#2,G4:PRINT#2,O5:PRINT#2,G5:PRINT#2,O6:PRINT#2,G6
  191. 60060 PRINT#2,P1:PRINT#2,P2:PRINT#2,P3:PRINT#2,P4:PRINT#2,P5:PRINT#2,P6
  192. 60065 PRINT#2,AG:PRINT#2,AF:PRINT#2,AD:PRINT#2,AC:PRINT#2,AB:PRINT#2,ER
  193. 60070 PRINT#2,HZ:PRINT#2,TQ:PRINT#2,CS:PRINT#2,YY:PRINT#2,V9:PRINT#2,J7
  194. 60075 PRINT#2,L1:PRINT#2,L2:PRINT#2,L3:PRINT#2,L4:PRINT#2,J9
  195. 60080 PRINT#2,J4:PRINT#2,J5:PRINT#2,J6:PRINT#2,J8:PRINT#2,B7:PRINT#2,G9
  196. 60085 PRINT#2,M1$:PRINT#2,A2$:CLOSE2:RETURN
  197. 60999 LOAD"X3",8
  198. 61000 END
  199.  
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!