Author Topic: The Phantom Temple Game  (Read 5472 times)

0 Members and 1 Guest are viewing this topic.

Offline BobSaget9/11

  • Newbie
  • Posts: 5
    • View Profile
The Phantom Temple Game
« on: September 14, 2020, 10:13:42 pm »
I am writing a massive text adventure with 1105 rooms and figured why not share it with all of you. I am still recieving an error stating the file is too large. Maybe you guys can figure it out and help me.
* The Phantom Temple.bas (Filesize: 231.14 KB, Downloads: 113)

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #1 on: September 14, 2020, 10:37:33 pm »
Welcome to the forum BobSaget9/11

Holy Macoroni!

Code: QB64: [Select]
  1. ROOM:
  2. IF r = 1 THEN: GOSUB r1
  3. IF r = 2 THEN: GOSUB r2
  4. IF r = 3 THEN: GOSUB r3
  5. IF r = 4 THEN: GOSUB r4
  6. IF r = 5 THEN: GOSUB r5
  7. IF r = 6 THEN: GOSUB r6
  8. IF r = 7 THEN: GOSUB r7
  9. IF r = 8 THEN: GOSUB r8
  10. IF r = 9 THEN: GOSUB r9
  11. IF r = 10 THEN: GOSUB r10
  12. IF r = 11 THEN: GOSUB r11
  13. IF r = 12 THEN: GOSUB r12
  14. IF r = 13 THEN: GOSUB r13
  15. IF r = 14 THEN: GOSUB r14
  16. IF r = 15 THEN: GOSUB r15
  17. IF r = 16 THEN: GOSUB r16
  18. IF r = 17 THEN: GOSUB r17
  19. IF r = 18 THEN: GOSUB r18
  20. IF r = 19 THEN: GOSUB r19
  21. IF r = 20 THEN: GOSUB r20
  22. IF r = 21 THEN: GOSUB r21
  23. IF r = 22 THEN: GOSUB r22
  24. IF r = 23 THEN: GOSUB r23
  25. IF r = 24 THEN: GOSUB r24
  26. IF r = 25 THEN: GOSUB r25
  27. IF r = 26 THEN: GOSUB r26
  28. IF r = 27 THEN: GOSUB r27
  29. IF r = 28 THEN: GOSUB r28
  30. IF r = 29 THEN: GOSUB r29
  31. IF r = 30 THEN: GOSUB r30
  32. IF r = 31 THEN: GOSUB r31
  33. IF r = 32 THEN: GOSUB r32
  34. IF r = 33 THEN: GOSUB r33
  35. IF r = 34 THEN: GOSUB r34
  36. IF r = 35 THEN: GOSUB r35
  37. IF r = 36 THEN: GOSUB r36
  38. IF r = 37 THEN: GOSUB r37
  39. IF r = 38 THEN: GOSUB r38
  40. IF r = 39 THEN: GOSUB r39
  41. IF r = 40 THEN: GOSUB r40
  42. IF r = 41 THEN: GOSUB r41
  43. IF r = 42 THEN: GOSUB r42
  44. IF r = 43 THEN: GOSUB r43
  45. IF r = 44 THEN: GOSUB r44
  46. IF r = 45 THEN: GOSUB r45
  47. IF r = 46 THEN: GOSUB r46
  48. IF r = 47 THEN: GOSUB r47
  49. IF r = 48 THEN: GOSUB r48
  50. IF r = 49 THEN: GOSUB r49
  51. IF r = 50 THEN: GOSUB r50
  52. IF r = 51 THEN: GOSUB r51
  53. IF r = 52 THEN: GOSUB r52
  54. IF r = 53 THEN: GOSUB r53
  55. IF r = 54 THEN: GOSUB r54
  56. IF r = 55 THEN: GOSUB r55
  57. IF r = 56 THEN: GOSUB r56
  58. IF r = 57 THEN: GOSUB r57
  59. IF r = 58 THEN: GOSUB r58
  60. IF r = 59 THEN: GOSUB r59
  61. IF r = 60 THEN: GOSUB r60
  62. IF r = 61 THEN: GOSUB r61
  63. IF r = 62 THEN: GOSUB r62
  64. IF r = 63 THEN: GOSUB r63
  65. IF r = 64 THEN: GOSUB r64
  66. IF r = 65 THEN: GOSUB r65
  67. IF r = 66 THEN: GOSUB r66
  68. IF r = 67 THEN: GOSUB r67
  69. IF r = 68 THEN: GOSUB r68
  70. IF r = 69 THEN: GOSUB r69
  71. IF r = 70 THEN: GOSUB r70
  72. IF r = 71 THEN: GOSUB r71
  73. IF r = 72 THEN: GOSUB r72
  74. IF r = 73 THEN: GOSUB r73
  75. IF r = 74 THEN: GOSUB r74
  76. IF r = 75 THEN: GOSUB r75
  77. IF r = 76 THEN: GOSUB r76
  78. IF r = 77 THEN: GOSUB r77
  79. IF r = 78 THEN: GOSUB r78
  80. IF r = 79 THEN: GOSUB r79
  81. IF r = 80 THEN: GOSUB r80
  82. IF r = 81 THEN: GOSUB r81
  83. IF r = 82 THEN: GOSUB r82
  84. IF r = 83 THEN: GOSUB r83
  85. IF r = 84 THEN: GOSUB r84
  86. IF r = 85 THEN: GOSUB r85
  87. IF r = 86 THEN: GOSUB r86
  88. IF r = 87 THEN: GOSUB r87
  89. IF r = 88 THEN: GOSUB r88
  90. IF r = 89 THEN: GOSUB r89
  91. IF r = 90 THEN: GOSUB r90
  92. IF r = 91 THEN: GOSUB r91
  93. IF r = 92 THEN: GOSUB r92
  94. IF r = 93 THEN: GOSUB r93
  95. IF r = 94 THEN: GOSUB r94
  96. IF r = 95 THEN: GOSUB r95
  97. IF r = 96 THEN: GOSUB r96
  98. IF r = 97 THEN: GOSUB r97
  99. IF r = 98 THEN: GOSUB r98
  100. IF r = 99 THEN: GOSUB r99
  101. IF r = 100 THEN: GOSUB r100
  102. IF r = 101 THEN: GOSUB r101
  103. IF r = 100 THEN: GOSUB r100
  104. IF r = 101 THEN: GOSUB r101
  105. IF r = 102 THEN: GOSUB r102
  106. IF r = 103 THEN: GOSUB r103
  107. IF r = 104 THEN: GOSUB r104
  108. IF r = 105 THEN: GOSUB r105
  109. IF r = 106 THEN: GOSUB r106
  110. IF r = 107 THEN: GOSUB r107
  111. IF r = 108 THEN: GOSUB r108
  112. IF r = 109 THEN: GOSUB r109
  113. IF r = 110 THEN: GOSUB r110
  114. IF r = 111 THEN: GOSUB r111
  115. IF r = 112 THEN: GOSUB r112
  116. IF r = 113 THEN: GOSUB r113
  117. IF r = 114 THEN: GOSUB r114
  118. IF r = 115 THEN: GOSUB r115
  119. IF r = 116 THEN: GOSUB r116
  120. IF r = 117 THEN: GOSUB r117
  121. IF r = 118 THEN: GOSUB r118
  122. IF r = 119 THEN: GOSUB r119
  123. IF r = 120 THEN: GOSUB r120
  124. IF r = 121 THEN: GOSUB r121
  125. IF r = 122 THEN: GOSUB r122
  126. IF r = 123 THEN: GOSUB r123
  127. IF r = 124 THEN: GOSUB r124
  128. IF r = 125 THEN: GOSUB r125
  129. IF r = 126 THEN: GOSUB r126
  130. IF r = 127 THEN: GOSUB r127
  131. IF r = 128 THEN: GOSUB r128
  132. IF r = 129 THEN: GOSUB r129
  133. IF r = 130 THEN: GOSUB r130
  134. IF r = 131 THEN: GOSUB r131
  135. IF r = 132 THEN: GOSUB r132
  136. IF r = 133 THEN: GOSUB r133
  137. IF r = 134 THEN: GOSUB r134
  138. IF r = 135 THEN: GOSUB r135
  139. IF r = 136 THEN: GOSUB r136
  140. IF r = 137 THEN: GOSUB r137
  141. IF r = 138 THEN: GOSUB r138
  142. IF r = 139 THEN: GOSUB r139
  143. IF r = 140 THEN: GOSUB r140
  144. IF r = 141 THEN: GOSUB r141
  145. IF r = 142 THEN: GOSUB r142
  146. IF r = 143 THEN: GOSUB r143
  147. IF r = 144 THEN: GOSUB r144
  148. IF r = 145 THEN: GOSUB r145
  149. IF r = 146 THEN: GOSUB r146
  150. IF r = 147 THEN: GOSUB r147
  151. IF r = 148 THEN: GOSUB r148
  152. IF r = 149 THEN: GOSUB r149
  153. IF r = 150 THEN: GOSUB r150
  154. IF r = 151 THEN: GOSUB r151
  155. IF r = 152 THEN: GOSUB r152
  156. IF r = 153 THEN: GOSUB r153
  157. IF r = 154 THEN: GOSUB r154
  158. IF r = 155 THEN: GOSUB r155
  159. IF r = 156 THEN: GOSUB r156
  160. IF r = 157 THEN: GOSUB r157
  161. IF r = 158 THEN: GOSUB r158
  162. IF r = 159 THEN: GOSUB r159
  163. IF r = 160 THEN: GOSUB r160
  164. IF r = 161 THEN: GOSUB r161
  165. IF r = 162 THEN: GOSUB r162
  166. IF r = 163 THEN: GOSUB r163
  167. IF r = 164 THEN: GOSUB r164
  168. IF r = 165 THEN: GOSUB r165
  169. IF r = 166 THEN: GOSUB r166
  170. IF r = 167 THEN: GOSUB r167
  171. IF r = 168 THEN: GOSUB r168
  172. IF r = 169 THEN: GOSUB r169
  173. IF r = 170 THEN: GOSUB r170
  174. IF r = 171 THEN: GOSUB r171
  175. IF r = 172 THEN: GOSUB r172
  176. IF r = 173 THEN: GOSUB r173
  177. IF r = 174 THEN: GOSUB r174
  178. IF r = 175 THEN: GOSUB r175
  179. IF r = 176 THEN: GOSUB r176
  180. IF r = 177 THEN: GOSUB r177
  181. IF r = 178 THEN: GOSUB r178
  182. IF r = 179 THEN: GOSUB r179
  183. IF r = 180 THEN: GOSUB r180
  184. IF r = 181 THEN: GOSUB r181
  185. IF r = 182 THEN: GOSUB r182
  186. IF r = 183 THEN: GOSUB r183
  187. IF r = 184 THEN: GOSUB r184
  188. IF r = 185 THEN: GOSUB r185
  189. IF r = 186 THEN: GOSUB r186
  190. IF r = 187 THEN: GOSUB r187
  191. IF r = 188 THEN: GOSUB r188
  192. IF r = 189 THEN: GOSUB r189
  193. IF r = 190 THEN: GOSUB r190
  194. IF r = 191 THEN: GOSUB r191
  195. IF r = 192 THEN: GOSUB r192
  196. IF r = 193 THEN: GOSUB r193
  197. IF r = 194 THEN: GOSUB r194
  198. IF r = 195 THEN: GOSUB r195
  199. IF r = 196 THEN: GOSUB r196
  200. IF r = 197 THEN: GOSUB r197
  201. IF r = 198 THEN: GOSUB r198
  202. IF r = 199 THEN: GOSUB r199
  203. IF r = 200 THEN: GOSUB r200
  204. IF r = 201 THEN: GOSUB r201
  205. IF r = 202 THEN: GOSUB r202
  206. IF r = 203 THEN: GOSUB r203
  207. IF r = 204 THEN: GOSUB r204
  208. IF r = 205 THEN: GOSUB r205
  209. IF r = 206 THEN: GOSUB r206
  210. IF r = 207 THEN: GOSUB r207
  211. IF r = 208 THEN: GOSUB r208
  212. IF r = 209 THEN: GOSUB r209
  213. IF r = 210 THEN: GOSUB r210
  214. IF r = 211 THEN: GOSUB r211
  215. IF r = 212 THEN: GOSUB r212
  216. IF r = 213 THEN: GOSUB r213
  217. IF r = 214 THEN: GOSUB r214
  218. IF r = 215 THEN: GOSUB r215
  219. IF r = 216 THEN: GOSUB r216
  220. IF r = 217 THEN: GOSUB r217
  221. IF r = 218 THEN: GOSUB r218
  222. IF r = 219 THEN: GOSUB r219
  223. IF r = 220 THEN: GOSUB r220
  224. IF r = 221 THEN: GOSUB r221
  225. IF r = 222 THEN: GOSUB r222
  226. IF r = 223 THEN: GOSUB r223
  227. IF r = 224 THEN: GOSUB r224
  228. IF r = 225 THEN: GOSUB r225
  229. IF r = 226 THEN: GOSUB r226
  230. IF r = 227 THEN: GOSUB r227
  231. IF r = 228 THEN: GOSUB r228
  232. IF r = 229 THEN: GOSUB r229
  233. IF r = 230 THEN: GOSUB r230
  234. IF r = 231 THEN: GOSUB r231
  235. IF r = 232 THEN: GOSUB r232
  236. IF r = 233 THEN: GOSUB r233
  237. IF r = 234 THEN: GOSUB r234
  238. IF r = 235 THEN: GOSUB r235
  239. IF r = 236 THEN: GOSUB r236
  240. IF r = 237 THEN: GOSUB r237
  241. IF r = 238 THEN: GOSUB r238
  242. IF r = 239 THEN: GOSUB r239
  243. IF r = 240 THEN: GOSUB r240
  244. IF r = 241 THEN: GOSUB r241
  245. IF r = 242 THEN: GOSUB r242
  246. IF r = 243 THEN: GOSUB r243
  247. IF r = 244 THEN: GOSUB r244
  248. IF r = 245 THEN: GOSUB r245
  249. IF r = 246 THEN: GOSUB r246
  250. IF r = 247 THEN: GOSUB r247
  251. IF r = 248 THEN: GOSUB r248
  252. IF r = 249 THEN: GOSUB r249
  253. IF r = 250 THEN: GOSUB r250
  254. IF r = 251 THEN: GOSUB r251
  255. IF r = 252 THEN: GOSUB r252
  256. IF r = 253 THEN: GOSUB r253
  257. IF r = 254 THEN: GOSUB r254
  258. IF r = 255 THEN: GOSUB r255
  259. IF r = 256 THEN: GOSUB r256
  260. IF r = 257 THEN: GOSUB r257
  261. IF r = 258 THEN: GOSUB r258
  262. IF r = 259 THEN: GOSUB r259
  263. IF r = 260 THEN: GOSUB r260
  264. IF r = 261 THEN: GOSUB r261
  265. IF r = 262 THEN: GOSUB r262
  266. IF r = 263 THEN: GOSUB r263
  267. IF r = 264 THEN: GOSUB r264
  268. IF r = 265 THEN: GOSUB r265
  269. IF r = 266 THEN: GOSUB r266
  270. IF r = 267 THEN: GOSUB r267
  271. IF r = 268 THEN: GOSUB r268
  272. IF r = 269 THEN: GOSUB r269
  273. IF r = 270 THEN: GOSUB r270
  274. IF r = 271 THEN: GOSUB r271
  275. IF r = 272 THEN: GOSUB r272
  276. IF r = 273 THEN: GOSUB r273
  277. IF r = 274 THEN: GOSUB r274
  278. IF r = 275 THEN: GOSUB r275
  279. IF r = 276 THEN: GOSUB r276
  280. IF r = 277 THEN: GOSUB r277
  281. IF r = 278 THEN: GOSUB r278
  282. IF r = 279 THEN: GOSUB r279
  283. IF r = 280 THEN: GOSUB r280
  284. IF r = 281 THEN: GOSUB r281
  285. IF r = 282 THEN: GOSUB r282
  286. IF r = 283 THEN: GOSUB r283
  287. IF r = 284 THEN: GOSUB r284
  288. IF r = 285 THEN: GOSUB r285
  289. IF r = 286 THEN: GOSUB r286
  290. IF r = 287 THEN: GOSUB r287
  291. IF r = 288 THEN: GOSUB r288
  292. IF r = 289 THEN: GOSUB r289
  293. IF r = 290 THEN: GOSUB r290
  294. IF r = 291 THEN: GOSUB r291
  295. IF r = 292 THEN: GOSUB r292
  296. IF r = 293 THEN: GOSUB r293
  297. IF r = 294 THEN: GOSUB r294
  298. IF r = 295 THEN: GOSUB r295
  299. IF r = 296 THEN: GOSUB r296
  300. IF r = 297 THEN: GOSUB r297
  301. IF r = 298 THEN: GOSUB r298
  302. IF r = 299 THEN: GOSUB r299
  303. IF r = 300 THEN: GOSUB r300
  304. IF r = 301 THEN: GOSUB r301
  305. IF r = 302 THEN: GOSUB r302
  306. IF r = 303 THEN: GOSUB r303
  307. IF r = 304 THEN: GOSUB r304
  308. IF r = 305 THEN: GOSUB r305
  309. IF r = 306 THEN: GOSUB r306
  310. IF r = 307 THEN: GOSUB r307
  311. IF r = 308 THEN: GOSUB r308
  312. IF r = 309 THEN: GOSUB r309
  313. IF r = 310 THEN: GOSUB r310
  314. IF r = 311 THEN: GOSUB r311
  315. IF r = 312 THEN: GOSUB r312
  316. IF r = 313 THEN: GOSUB r313
  317. IF r = 314 THEN: GOSUB r314
  318. IF r = 315 THEN: GOSUB r315
  319. IF r = 316 THEN: GOSUB r316
  320. IF r = 317 THEN: GOSUB r317
  321. IF r = 318 THEN: GOSUB r318
  322. IF r = 319 THEN: GOSUB r319
  323. IF r = 320 THEN: GOSUB r320
  324. IF r = 321 THEN: GOSUB r321
  325. IF r = 322 THEN: GOSUB r322
  326. IF r = 323 THEN: GOSUB r323
  327. IF r = 324 THEN: GOSUB r324
  328. IF r = 325 THEN: GOSUB r325
  329. IF r = 326 THEN: GOSUB r326
  330. IF r = 327 THEN: GOSUB r327
  331. IF r = 328 THEN: GOSUB r328
  332. IF r = 329 THEN: GOSUB r329
  333. IF r = 330 THEN: GOSUB r330
  334. IF r = 331 THEN: GOSUB r331
  335. IF r = 332 THEN: GOSUB r332
  336. IF r = 333 THEN: GOSUB r333
  337. IF r = 334 THEN: GOSUB r334
  338. IF r = 335 THEN: GOSUB r335
  339. IF r = 336 THEN: GOSUB r336
  340. IF r = 337 THEN: GOSUB r337
  341. IF r = 338 THEN: GOSUB r338
  342. IF r = 339 THEN: GOSUB r339
  343. IF r = 340 THEN: GOSUB r340
  344. IF r = 341 THEN: GOSUB r341
  345. IF r = 342 THEN: GOSUB r342
  346. IF r = 343 THEN: GOSUB r343
  347. IF r = 344 THEN: GOSUB r344
  348. IF r = 345 THEN: GOSUB r345
  349. IF r = 346 THEN: GOSUB r346
  350. IF r = 347 THEN: GOSUB r347
  351. IF r = 348 THEN: GOSUB r348
  352. IF r = 349 THEN: GOSUB r349
  353. IF r = 350 THEN: GOSUB r350
  354. IF r = 351 THEN: GOSUB r351
  355. IF r = 352 THEN: GOSUB r352
  356. IF r = 353 THEN: GOSUB r353
  357. IF r = 354 THEN: GOSUB r354
  358. IF r = 355 THEN: GOSUB r355
  359. IF r = 356 THEN: GOSUB r356
  360. IF r = 357 THEN: GOSUB r357
  361. IF r = 358 THEN: GOSUB r358
  362. IF r = 359 THEN: GOSUB r359
  363. IF r = 360 THEN: GOSUB r360
  364. IF r = 361 THEN: GOSUB r361
  365. IF r = 362 THEN: GOSUB r362
  366. IF r = 363 THEN: GOSUB r363
  367. IF r = 364 THEN: GOSUB r364
  368. IF r = 365 THEN: GOSUB r365
  369. IF r = 366 THEN: GOSUB r366
  370. IF r = 367 THEN: GOSUB r367
  371. IF r = 368 THEN: GOSUB r368
  372. IF r = 369 THEN: GOSUB r369
  373. IF r = 370 THEN: GOSUB r370
  374. IF r = 371 THEN: GOSUB r371
  375. IF r = 372 THEN: GOSUB r372
  376. IF r = 373 THEN: GOSUB r373
  377. IF r = 374 THEN: GOSUB r374
  378. IF r = 375 THEN: GOSUB r375
  379. IF r = 376 THEN: GOSUB r376
  380. IF r = 377 THEN: GOSUB r377
  381. IF r = 378 THEN: GOSUB r378
  382. IF r = 379 THEN: GOSUB r379
  383. IF r = 380 THEN: GOSUB r380
  384. IF r = 381 THEN: GOSUB r381
  385. IF r = 382 THEN: GOSUB r382
  386. IF r = 383 THEN: GOSUB r383
  387. IF r = 384 THEN: GOSUB r384
  388. IF r = 385 THEN: GOSUB r385
  389. IF r = 386 THEN: GOSUB r386
  390. IF r = 387 THEN: GOSUB r387
  391. IF r = 388 THEN: GOSUB r388
  392. IF r = 389 THEN: GOSUB r389
  393. IF r = 390 THEN: GOSUB r390
  394. IF r = 391 THEN: GOSUB r391
  395. IF r = 392 THEN: GOSUB r392
  396. IF r = 393 THEN: GOSUB r393
  397. IF r = 394 THEN: GOSUB r394
  398. IF r = 395 THEN: GOSUB r395
  399. IF r = 396 THEN: GOSUB r396
  400. IF r = 397 THEN: GOSUB r397
  401. IF r = 398 THEN: GOSUB r398
  402. IF r = 399 THEN: GOSUB r399
  403. IF r = 400 THEN: GOSUB r400
  404. IF r = 401 THEN: GOSUB r401
  405. IF r = 402 THEN: GOSUB r402
  406. IF r = 403 THEN: GOSUB r403
  407. IF r = 404 THEN: GOSUB r404
  408. IF r = 405 THEN: GOSUB r405
  409. IF r = 406 THEN: GOSUB r406
  410. IF r = 407 THEN: GOSUB r407
  411. IF r = 408 THEN: GOSUB r408
  412. IF r = 409 THEN: GOSUB r409
  413. IF r = 410 THEN: GOSUB r410
  414. IF r = 411 THEN: GOSUB r411
  415. IF r = 412 THEN: GOSUB r412
  416. IF r = 413 THEN: GOSUB r413
  417. IF r = 414 THEN: GOSUB r414
  418. IF r = 415 THEN: GOSUB r415
  419. IF r = 416 THEN: GOSUB r416
  420. IF r = 417 THEN: GOSUB r417
  421. IF r = 418 THEN: GOSUB r418
  422. IF r = 419 THEN: GOSUB r419
  423. IF r = 420 THEN: GOSUB r420
  424. IF r = 421 THEN: GOSUB r421
  425. IF r = 422 THEN: GOSUB r422
  426. IF r = 423 THEN: GOSUB r423
  427. IF r = 424 THEN: GOSUB r424
  428. IF r = 425 THEN: GOSUB r425
  429. IF r = 426 THEN: GOSUB r426
  430. IF r = 427 THEN: GOSUB r427
  431. IF r = 428 THEN: GOSUB r428
  432. IF r = 429 THEN: GOSUB r429
  433. IF r = 430 THEN: GOSUB r430
  434. IF r = 431 THEN: GOSUB r431
  435. IF r = 432 THEN: GOSUB r432
  436. IF r = 433 THEN: GOSUB r433
  437. IF r = 434 THEN: GOSUB r434
  438. IF r = 435 THEN: GOSUB r435
  439. IF r = 436 THEN: GOSUB r436
  440. IF r = 437 THEN: GOSUB r437
  441. IF r = 438 THEN: GOSUB r438
  442. IF r = 439 THEN: GOSUB r439
  443. IF r = 440 THEN: GOSUB r440
  444. IF r = 441 THEN: GOSUB r441
  445. IF r = 442 THEN: GOSUB r442
  446. IF r = 443 THEN: GOSUB r443
  447. IF r = 444 THEN: GOSUB r444
  448. IF r = 445 THEN: GOSUB r445
  449. IF r = 446 THEN: GOSUB r446
  450. IF r = 447 THEN: GOSUB r447
  451. IF r = 448 THEN: GOSUB r448
  452. IF r = 449 THEN: GOSUB r449
  453. IF r = 450 THEN: GOSUB r450
  454. IF r = 451 THEN: GOSUB r451
  455. IF r = 452 THEN: GOSUB r452
  456. IF r = 453 THEN: GOSUB r453
  457. IF r = 454 THEN: GOSUB r454
  458. IF r = 455 THEN: GOSUB r455
  459. IF r = 456 THEN: GOSUB r456
  460. IF r = 457 THEN: GOSUB r457
  461. IF r = 458 THEN: GOSUB r458
  462. IF r = 459 THEN: GOSUB r459
  463. IF r = 460 THEN: GOSUB r460
  464. IF r = 461 THEN: GOSUB r461
  465. IF r = 462 THEN: GOSUB r462
  466. IF r = 463 THEN: GOSUB r463
  467. IF r = 464 THEN: GOSUB r464
  468. IF r = 465 THEN: GOSUB r465
  469. IF r = 466 THEN: GOSUB r466
  470. IF r = 467 THEN: GOSUB r467
  471. IF r = 468 THEN: GOSUB r468
  472. IF r = 469 THEN: GOSUB r469
  473. IF r = 470 THEN: GOSUB r470
  474. IF r = 471 THEN: GOSUB r471
  475. IF r = 472 THEN: GOSUB r472
  476. IF r = 473 THEN: GOSUB r473
  477. IF r = 474 THEN: GOSUB r474
  478. IF r = 475 THEN: GOSUB r475
  479. IF r = 476 THEN: GOSUB r476
  480. IF r = 477 THEN: GOSUB r477
  481. IF r = 478 THEN: GOSUB r478
  482. IF r = 479 THEN: GOSUB r479
  483. IF r = 480 THEN: GOSUB r480
  484. IF r = 481 THEN: GOSUB r481
  485. IF r = 482 THEN: GOSUB r482
  486. IF r = 483 THEN: GOSUB r483
  487. IF r = 484 THEN: GOSUB r484
  488. IF r = 485 THEN: GOSUB r485
  489. IF r = 486 THEN: GOSUB r486
  490. IF r = 487 THEN: GOSUB r487
  491. IF r = 488 THEN: GOSUB r488
  492. IF r = 489 THEN: GOSUB r489
  493. IF r = 490 THEN: GOSUB r490
  494. IF r = 491 THEN: GOSUB r491
  495. IF r = 492 THEN: GOSUB r492
  496. IF r = 493 THEN: GOSUB r493
  497. IF r = 494 THEN: GOSUB r494
  498. IF r = 495 THEN: GOSUB r495
  499. IF r = 496 THEN: GOSUB r496
  500. IF r = 497 THEN: GOSUB r497
  501. IF r = 498 THEN: GOSUB r498
  502. IF r = 499 THEN: GOSUB r499
  503. IF r = 500 THEN: GOSUB r500
  504. IF r = 501 THEN: GOSUB r501
  505. IF r = 502 THEN: GOSUB r502
  506. IF r = 503 THEN: GOSUB r503
  507. IF r = 504 THEN: GOSUB r504
  508. IF r = 505 THEN: GOSUB r505
  509. IF r = 506 THEN: GOSUB r506
  510. IF r = 507 THEN: GOSUB r507
  511. IF r = 508 THEN: GOSUB r508
  512. IF r = 509 THEN: GOSUB r509
  513. IF r = 510 THEN: GOSUB r510
  514. IF r = 511 THEN: GOSUB r511
  515. IF r = 512 THEN: GOSUB r512
  516. IF r = 513 THEN: GOSUB r513
  517. IF r = 514 THEN: GOSUB r514
  518. IF r = 515 THEN: GOSUB r515
  519. IF r = 516 THEN: GOSUB r516
  520. IF r = 517 THEN: GOSUB r517
  521. IF r = 518 THEN: GOSUB r518
  522. IF r = 519 THEN: GOSUB r519
  523. IF r = 520 THEN: GOSUB r520
  524. IF r = 521 THEN: GOSUB r521
  525. IF r = 522 THEN: GOSUB r522
  526. IF r = 523 THEN: GOSUB r523
  527. IF r = 524 THEN: GOSUB r524
  528. IF r = 525 THEN: GOSUB r525
  529. IF r = 526 THEN: GOSUB r526
  530. IF r = 527 THEN: GOSUB r527
  531. IF r = 528 THEN: GOSUB r528
  532. IF r = 529 THEN: GOSUB r529
  533. IF r = 530 THEN: GOSUB r530
  534. IF r = 531 THEN: GOSUB r531
  535. IF r = 532 THEN: GOSUB r532
  536. IF r = 533 THEN: GOSUB r533
  537. IF r = 534 THEN: GOSUB r534
  538. IF r = 535 THEN: GOSUB r535
  539. IF r = 536 THEN: GOSUB r536
  540. IF r = 537 THEN: GOSUB r537
  541. IF r = 538 THEN: GOSUB r538
  542. IF r = 539 THEN: GOSUB r539
  543. IF r = 540 THEN: GOSUB r540
  544. IF r = 541 THEN: GOSUB r541
  545. IF r = 542 THEN: GOSUB r542
  546. IF r = 543 THEN: GOSUB r543
  547. IF r = 544 THEN: GOSUB r544
  548. IF r = 545 THEN: GOSUB r545
  549. IF r = 546 THEN: GOSUB r546
  550. IF r = 547 THEN: GOSUB r547
  551. IF r = 548 THEN: GOSUB r548
  552. IF r = 549 THEN: GOSUB r549
  553. IF r = 550 THEN: GOSUB r550
  554. IF r = 551 THEN: GOSUB r551
  555. IF r = 552 THEN: GOSUB r552
  556. IF r = 553 THEN: GOSUB r553
  557. IF r = 554 THEN: GOSUB r554
  558. IF r = 555 THEN: GOSUB r555
  559. IF r = 556 THEN: GOSUB r556
  560. IF r = 557 THEN: GOSUB r557
  561. IF r = 558 THEN: GOSUB r558
  562. IF r = 559 THEN: GOSUB r559
  563. IF r = 560 THEN: GOSUB r560
  564. IF r = 561 THEN: GOSUB r561
  565. IF r = 562 THEN: GOSUB r562
  566. IF r = 563 THEN: GOSUB r563
  567. IF r = 564 THEN: GOSUB r564
  568. IF r = 565 THEN: GOSUB r565
  569. IF r = 566 THEN: GOSUB r566
  570. IF r = 567 THEN: GOSUB r567
  571. IF r = 568 THEN: GOSUB r568
  572. IF r = 569 THEN: GOSUB r569
  573. IF r = 570 THEN: GOSUB r570
  574. IF r = 571 THEN: GOSUB r571
  575. IF r = 572 THEN: GOSUB r572
  576. IF r = 573 THEN: GOSUB r573
  577. IF r = 574 THEN: GOSUB r574
  578. IF r = 575 THEN: GOSUB r575
  579. IF r = 576 THEN: GOSUB r576
  580. IF r = 577 THEN: GOSUB r577
  581. IF r = 578 THEN: GOSUB r578
  582. IF r = 579 THEN: GOSUB r579
  583. IF r = 580 THEN: GOSUB r580
  584. IF r = 581 THEN: GOSUB r581
  585. IF r = 582 THEN: GOSUB r582
  586. IF r = 583 THEN: GOSUB r583
  587. IF r = 584 THEN: GOSUB r584
  588. IF r = 585 THEN: GOSUB r585
  589. IF r = 586 THEN: GOSUB r586
  590. IF r = 587 THEN: GOSUB r587
  591. IF r = 588 THEN: GOSUB r588
  592. IF r = 589 THEN: GOSUB r589
  593. IF r = 590 THEN: GOSUB r590
  594. IF r = 591 THEN: GOSUB r591
  595. IF r = 592 THEN: GOSUB r592
  596. IF r = 593 THEN: GOSUB r593
  597. IF r = 594 THEN: GOSUB r594
  598. IF r = 595 THEN: GOSUB r595
  599. IF r = 596 THEN: GOSUB r596
  600. IF r = 597 THEN: GOSUB r597
  601. IF r = 598 THEN: GOSUB r598
  602. IF r = 599 THEN: GOSUB r599
  603. IF r = 600 THEN: GOSUB r600
  604. IF r = 601 THEN: GOSUB r601
  605. IF r = 602 THEN: GOSUB r602
  606. IF r = 603 THEN: GOSUB r603
  607. IF r = 604 THEN: GOSUB r604
  608. IF r = 605 THEN: GOSUB r605
  609. IF r = 606 THEN: GOSUB r606
  610. IF r = 607 THEN: GOSUB r607
  611. IF r = 608 THEN: GOSUB r608
  612. IF r = 609 THEN: GOSUB r609
  613. IF r = 610 THEN: GOSUB r610
  614. IF r = 611 THEN: GOSUB r611
  615. IF r = 612 THEN: GOSUB r612
  616. IF r = 613 THEN: GOSUB r613
  617. IF r = 614 THEN: GOSUB r614
  618. IF r = 615 THEN: GOSUB r615
  619. IF r = 616 THEN: GOSUB r616
  620. IF r = 617 THEN: GOSUB r617
  621. IF r = 618 THEN: GOSUB r618
  622. IF r = 619 THEN: GOSUB r619
  623. IF r = 620 THEN: GOSUB r620
  624. IF r = 621 THEN: GOSUB r621
  625. IF r = 622 THEN: GOSUB r622
  626. IF r = 623 THEN: GOSUB r623
  627. IF r = 624 THEN: GOSUB r624
  628. IF r = 625 THEN: GOSUB r625
  629. IF r = 626 THEN: GOSUB r626
  630. IF r = 627 THEN: GOSUB r627
  631. IF r = 628 THEN: GOSUB r628
  632. IF r = 629 THEN: GOSUB r629
  633. IF r = 630 THEN: GOSUB r630
  634. IF r = 631 THEN: GOSUB r631
  635. IF r = 632 THEN: GOSUB r632
  636. IF r = 633 THEN: GOSUB r633
  637. IF r = 634 THEN: GOSUB r634
  638. IF r = 635 THEN: GOSUB r635
  639. IF r = 636 THEN: GOSUB r636
  640. IF r = 637 THEN: GOSUB r637
  641. IF r = 638 THEN: GOSUB r638
  642. IF r = 639 THEN: GOSUB r639
  643. IF r = 640 THEN: GOSUB r640
  644. IF r = 641 THEN: GOSUB r641
  645. IF r = 642 THEN: GOSUB r642
  646. IF r = 643 THEN: GOSUB r643
  647. IF r = 644 THEN: GOSUB r644
  648. IF r = 645 THEN: GOSUB r645
  649. IF r = 646 THEN: GOSUB r646
  650. IF r = 647 THEN: GOSUB r647
  651. IF r = 648 THEN: GOSUB r648
  652. IF r = 649 THEN: GOSUB r649
  653. IF r = 650 THEN: GOSUB r650
  654. IF r = 651 THEN: GOSUB r651
  655. IF r = 652 THEN: GOSUB r652
  656. IF r = 653 THEN: GOSUB r653
  657. IF r = 654 THEN: GOSUB r654
  658. IF r = 655 THEN: GOSUB r655
  659. IF r = 656 THEN: GOSUB r656
  660. IF r = 657 THEN: GOSUB r657
  661. IF r = 658 THEN: GOSUB r658
  662. IF r = 659 THEN: GOSUB r659
  663. IF r = 660 THEN: GOSUB r660
  664. IF r = 661 THEN: GOSUB r661
  665. IF r = 662 THEN: GOSUB r662
  666. IF r = 663 THEN: GOSUB r663
  667. IF r = 664 THEN: GOSUB r664
  668. IF r = 665 THEN: GOSUB r665
  669. IF r = 666 THEN: GOSUB r666
  670. IF r = 667 THEN: GOSUB r667
  671. IF r = 668 THEN: GOSUB r668
  672. IF r = 669 THEN: GOSUB r669
  673. IF r = 670 THEN: GOSUB r670
  674. IF r = 671 THEN: GOSUB r671
  675. IF r = 672 THEN: GOSUB r672
  676. IF r = 673 THEN: GOSUB r673
  677. IF r = 674 THEN: GOSUB r674
  678. IF r = 675 THEN: GOSUB r675
  679. IF r = 676 THEN: GOSUB r676
  680. IF r = 677 THEN: GOSUB r677
  681. IF r = 678 THEN: GOSUB r678
  682. IF r = 679 THEN: GOSUB r679
  683. IF r = 680 THEN: GOSUB r680
  684. IF r = 681 THEN: GOSUB r681
  685. IF r = 682 THEN: GOSUB r682
  686. IF r = 683 THEN: GOSUB r683
  687. IF r = 684 THEN: GOSUB r684
  688. IF r = 685 THEN: GOSUB r685
  689. IF r = 686 THEN: GOSUB r686
  690. IF r = 687 THEN: GOSUB r687
  691. IF r = 688 THEN: GOSUB r688
  692. IF r = 689 THEN: GOSUB r689
  693. IF r = 690 THEN: GOSUB r690
  694. IF r = 691 THEN: GOSUB r691
  695. IF r = 692 THEN: GOSUB r692
  696. IF r = 693 THEN: GOSUB r693
  697. IF r = 694 THEN: GOSUB r694
  698. IF r = 695 THEN: GOSUB r695
  699. IF r = 696 THEN: GOSUB r696
  700. IF r = 697 THEN: GOSUB r697
  701. IF r = 698 THEN: GOSUB r698
  702. IF r = 699 THEN: GOSUB r699
  703. IF r = 700 THEN: GOSUB r700
  704. IF r = 701 THEN: GOSUB r701
  705. IF r = 702 THEN: GOSUB r702
  706. IF r = 703 THEN: GOSUB r703
  707. IF r = 704 THEN: GOSUB r704
  708. IF r = 705 THEN: GOSUB r705
  709. IF r = 706 THEN: GOSUB r706
  710. IF r = 707 THEN: GOSUB r707
  711. IF r = 708 THEN: GOSUB r708
  712. IF r = 709 THEN: GOSUB r709
  713. IF r = 710 THEN: GOSUB r710
  714. IF r = 711 THEN: GOSUB r711
  715. IF r = 712 THEN: GOSUB r712
  716. IF r = 713 THEN: GOSUB r713
  717. IF r = 714 THEN: GOSUB r714
  718. IF r = 715 THEN: GOSUB r715
  719. IF r = 716 THEN: GOSUB r716
  720. IF r = 717 THEN: GOSUB r717
  721. IF r = 718 THEN: GOSUB r718
  722. IF r = 719 THEN: GOSUB r719
  723. IF r = 720 THEN: GOSUB r720
  724. IF r = 721 THEN: GOSUB r721
  725. IF r = 722 THEN: GOSUB r722
  726. IF r = 723 THEN: GOSUB r723
  727. IF r = 724 THEN: GOSUB r724
  728. IF r = 725 THEN: GOSUB r725
  729. IF r = 726 THEN: GOSUB r726
  730. IF r = 727 THEN: GOSUB r727
  731. IF r = 728 THEN: GOSUB r728
  732. IF r = 729 THEN: GOSUB r729
  733. IF r = 730 THEN: GOSUB r730
  734. IF r = 731 THEN: GOSUB r731
  735. IF r = 732 THEN: GOSUB r732
  736. IF r = 733 THEN: GOSUB r733
  737. IF r = 734 THEN: GOSUB r734
  738. IF r = 735 THEN: GOSUB r735
  739. IF r = 736 THEN: GOSUB r736
  740. IF r = 737 THEN: GOSUB r737
  741. IF r = 738 THEN: GOSUB r738
  742. IF r = 739 THEN: GOSUB r739
  743. IF r = 740 THEN: GOSUB r740
  744. IF r = 741 THEN: GOSUB r741
  745. IF r = 742 THEN: GOSUB r742
  746. IF r = 743 THEN: GOSUB r743
  747. IF r = 744 THEN: GOSUB r744
  748. IF r = 745 THEN: GOSUB r745
  749. IF r = 746 THEN: GOSUB r746
  750. IF r = 747 THEN: GOSUB r747
  751. IF r = 748 THEN: GOSUB r748
  752. IF r = 749 THEN: GOSUB r749
  753. IF r = 750 THEN: GOSUB r750
  754. IF r = 751 THEN: GOSUB r751
  755. IF r = 752 THEN: GOSUB r752
  756. IF r = 753 THEN: GOSUB r753
  757. IF r = 754 THEN: GOSUB r754
  758. IF r = 755 THEN: GOSUB r755
  759. IF r = 756 THEN: GOSUB r756
  760. IF r = 757 THEN: GOSUB r757
  761. IF r = 758 THEN: GOSUB r758
  762. IF r = 759 THEN: GOSUB r759
  763. IF r = 760 THEN: GOSUB r760
  764. IF r = 761 THEN: GOSUB r761
  765. IF r = 762 THEN: GOSUB r762
  766. IF r = 763 THEN: GOSUB r763
  767. IF r = 764 THEN: GOSUB r764
  768. IF r = 765 THEN: GOSUB r765
  769. IF r = 766 THEN: GOSUB r766
  770. IF r = 767 THEN: GOSUB r767
  771. IF r = 768 THEN: GOSUB r768
  772. IF r = 769 THEN: GOSUB r769
  773. IF r = 770 THEN: GOSUB r770
  774. IF r = 771 THEN: GOSUB r771
  775. IF r = 772 THEN: GOSUB r772
  776. IF r = 773 THEN: GOSUB r773
  777. IF r = 774 THEN: GOSUB r774
  778. IF r = 775 THEN: GOSUB r775
  779. IF r = 776 THEN: GOSUB r776
  780. IF r = 777 THEN: GOSUB r777
  781. IF r = 778 THEN: GOSUB r778
  782. IF r = 779 THEN: GOSUB r779
  783. IF r = 780 THEN: GOSUB r780
  784. IF r = 781 THEN: GOSUB r781
  785. IF r = 782 THEN: GOSUB r782
  786. IF r = 783 THEN: GOSUB r783
  787. IF r = 784 THEN: GOSUB r784
  788. IF r = 785 THEN: GOSUB r785
  789. IF r = 786 THEN: GOSUB r786
  790. IF r = 787 THEN: GOSUB r787
  791. IF r = 788 THEN: GOSUB r788
  792. IF r = 789 THEN: GOSUB r789
  793. IF r = 790 THEN: GOSUB r790
  794. IF r = 791 THEN: GOSUB r791
  795. IF r = 792 THEN: GOSUB r792
  796. IF r = 793 THEN: GOSUB r793
  797. IF r = 794 THEN: GOSUB r794
  798. IF r = 795 THEN: GOSUB r795
  799. IF r = 796 THEN: GOSUB r796
  800. IF r = 797 THEN: GOSUB r797
  801. IF r = 798 THEN: GOSUB r798
  802. IF r = 799 THEN: GOSUB r799
  803. IF r = 800 THEN: GOSUB r800
  804. IF r = 801 THEN: GOSUB r801
  805. IF r = 802 THEN: GOSUB r802
  806. IF r = 803 THEN: GOSUB r803
  807. IF r = 804 THEN: GOSUB r804
  808. IF r = 805 THEN: GOSUB r805
  809. IF r = 806 THEN: GOSUB r806
  810. IF r = 807 THEN: GOSUB r807
  811. IF r = 808 THEN: GOSUB r808
  812. IF r = 809 THEN: GOSUB r809
  813. IF r = 810 THEN: GOSUB r810
  814. IF r = 811 THEN: GOSUB r811
  815. IF r = 812 THEN: GOSUB r812
  816. IF r = 813 THEN: GOSUB r813
  817. IF r = 814 THEN: GOSUB r814
  818. IF r = 815 THEN: GOSUB r815
  819. IF r = 816 THEN: GOSUB r816
  820. IF r = 817 THEN: GOSUB r817
  821. IF r = 818 THEN: GOSUB r818
  822. IF r = 819 THEN: GOSUB r819
  823. IF r = 820 THEN: GOSUB r820
  824. IF r = 821 THEN: GOSUB r821
  825. IF r = 822 THEN: GOSUB r822
  826. IF r = 823 THEN: GOSUB r823
  827. IF r = 824 THEN: GOSUB r824
  828. IF r = 825 THEN: GOSUB r825
  829. IF r = 826 THEN: GOSUB r826
  830. IF r = 827 THEN: GOSUB r827
  831. IF r = 828 THEN: GOSUB r828
  832. IF r = 829 THEN: GOSUB r829
  833. IF r = 830 THEN: GOSUB r830
  834. IF r = 831 THEN: GOSUB r831
  835. IF r = 832 THEN: GOSUB r832
  836. IF r = 833 THEN: GOSUB r833
  837. IF r = 834 THEN: GOSUB r834
  838. IF r = 835 THEN: GOSUB r835
  839. IF r = 836 THEN: GOSUB r836
  840. IF r = 837 THEN: GOSUB r837
  841. IF r = 838 THEN: GOSUB r838
  842. IF r = 839 THEN: GOSUB r839
  843. IF r = 840 THEN: GOSUB r840
  844. IF r = 841 THEN: GOSUB r841
  845. IF r = 842 THEN: GOSUB r842
  846. IF r = 843 THEN: GOSUB r843
  847. IF r = 844 THEN: GOSUB r844
  848. IF r = 845 THEN: GOSUB r845
  849. IF r = 846 THEN: GOSUB r846
  850. IF r = 847 THEN: GOSUB r847
  851. IF r = 848 THEN: GOSUB r848
  852. IF r = 849 THEN: GOSUB r849
  853. IF r = 850 THEN: GOSUB r850
  854. IF r = 851 THEN: GOSUB r851
  855. IF r = 852 THEN: GOSUB r852
  856. IF r = 853 THEN: GOSUB r853
  857. IF r = 854 THEN: GOSUB r854
  858. IF r = 855 THEN: GOSUB r855
  859. IF r = 856 THEN: GOSUB r856
  860. IF r = 857 THEN: GOSUB r857
  861. IF r = 858 THEN: GOSUB r858
  862. IF r = 859 THEN: GOSUB r859
  863. IF r = 860 THEN: GOSUB r860
  864. IF r = 861 THEN: GOSUB r861
  865. IF r = 862 THEN: GOSUB r862
  866. IF r = 863 THEN: GOSUB r863
  867. IF r = 864 THEN: GOSUB r864
  868. IF r = 865 THEN: GOSUB r865
  869. IF r = 866 THEN: GOSUB r866
  870. IF r = 867 THEN: GOSUB r867
  871. IF r = 868 THEN: GOSUB r868
  872. IF r = 869 THEN: GOSUB r869
  873. IF r = 870 THEN: GOSUB r870
  874. IF r = 871 THEN: GOSUB r871
  875. IF r = 872 THEN: GOSUB r872
  876. IF r = 873 THEN: GOSUB r873
  877. IF r = 874 THEN: GOSUB r874
  878. IF r = 875 THEN: GOSUB r875
  879. IF r = 876 THEN: GOSUB r876
  880. IF r = 877 THEN: GOSUB r877
  881. IF r = 878 THEN: GOSUB r878
  882. IF r = 879 THEN: GOSUB r879
  883. IF r = 880 THEN: GOSUB r880
  884. IF r = 881 THEN: GOSUB r881
  885. IF r = 882 THEN: GOSUB r882
  886. IF r = 883 THEN: GOSUB r883
  887. IF r = 884 THEN: GOSUB r884
  888. IF r = 885 THEN: GOSUB r885
  889. IF r = 886 THEN: GOSUB r886
  890. IF r = 887 THEN: GOSUB r887
  891. IF r = 888 THEN: GOSUB r888
  892. IF r = 889 THEN: GOSUB r889
  893. IF r = 890 THEN: GOSUB r890
  894. IF r = 891 THEN: GOSUB r891
  895. IF r = 892 THEN: GOSUB r892
  896. IF r = 893 THEN: GOSUB r893
  897. IF r = 894 THEN: GOSUB r894
  898. IF r = 895 THEN: GOSUB r895
  899. IF r = 896 THEN: GOSUB r896
  900. IF r = 897 THEN: GOSUB r897
  901. IF r = 898 THEN: GOSUB r898
  902. IF r = 899 THEN: GOSUB r899
  903. IF r = 900 THEN: GOSUB r900
  904. IF r = 901 THEN: GOSUB r901
  905. IF r = 902 THEN: GOSUB r902
  906. IF r = 903 THEN: GOSUB r903
  907. IF r = 904 THEN: GOSUB r904
  908. IF r = 905 THEN: GOSUB r905
  909. IF r = 906 THEN: GOSUB r906
  910. IF r = 907 THEN: GOSUB r907
  911. IF r = 908 THEN: GOSUB r908
  912. IF r = 909 THEN: GOSUB r909
  913. IF r = 910 THEN: GOSUB r910
  914. IF r = 911 THEN: GOSUB r911
  915. IF r = 912 THEN: GOSUB r912
  916. IF r = 913 THEN: GOSUB r913
  917. IF r = 914 THEN: GOSUB r914
  918. IF r = 915 THEN: GOSUB r915
  919. IF r = 916 THEN: GOSUB r916
  920. IF r = 917 THEN: GOSUB r917
  921. IF r = 918 THEN: GOSUB r918
  922. IF r = 919 THEN: GOSUB r919
  923. IF r = 920 THEN: GOSUB r920
  924. IF r = 921 THEN: GOSUB r921
  925. IF r = 922 THEN: GOSUB r922
  926. IF r = 923 THEN: GOSUB r923
  927. IF r = 924 THEN: GOSUB r924
  928. IF r = 925 THEN: GOSUB r925
  929. IF r = 926 THEN: GOSUB r926
  930. IF r = 927 THEN: GOSUB r927
  931. IF r = 928 THEN: GOSUB r928
  932. IF r = 929 THEN: GOSUB r929
  933. IF r = 930 THEN: GOSUB r930
  934. IF r = 931 THEN: GOSUB r931
  935. IF r = 932 THEN: GOSUB r932
  936. IF r = 933 THEN: GOSUB r933
  937. IF r = 934 THEN: GOSUB r934
  938. IF r = 935 THEN: GOSUB r935
  939. IF r = 936 THEN: GOSUB r936
  940. IF r = 937 THEN: GOSUB r937
  941. IF r = 938 THEN: GOSUB r938
  942. IF r = 939 THEN: GOSUB r939
  943. IF r = 940 THEN: GOSUB r940
  944. IF r = 941 THEN: GOSUB r941
  945. IF r = 942 THEN: GOSUB r942
  946. IF r = 943 THEN: GOSUB r943
  947. IF r = 944 THEN: GOSUB r944
  948. IF r = 945 THEN: GOSUB r945
  949. IF r = 946 THEN: GOSUB r946
  950. IF r = 947 THEN: GOSUB r947
  951. IF r = 948 THEN: GOSUB r948
  952. IF r = 949 THEN: GOSUB r949
  953. IF r = 950 THEN: GOSUB r950
  954. IF r = 951 THEN: GOSUB r951
  955. IF r = 952 THEN: GOSUB r952
  956. IF r = 953 THEN: GOSUB r953
  957. IF r = 954 THEN: GOSUB r954
  958. IF r = 955 THEN: GOSUB r955
  959. IF r = 956 THEN: GOSUB r956
  960. IF r = 957 THEN: GOSUB r957
  961. IF r = 958 THEN: GOSUB r958
  962. IF r = 959 THEN: GOSUB r959
  963. IF r = 960 THEN: GOSUB r960
  964. IF r = 961 THEN: GOSUB r961
  965. IF r = 962 THEN: GOSUB r962
  966. IF r = 963 THEN: GOSUB r963
  967. IF r = 964 THEN: GOSUB r964
  968. IF r = 965 THEN: GOSUB r965
  969. IF r = 966 THEN: GOSUB r966
  970. IF r = 967 THEN: GOSUB r967
  971. IF r = 968 THEN: GOSUB r968
  972. IF r = 969 THEN: GOSUB r969
  973. IF r = 970 THEN: GOSUB r970
  974. IF r = 971 THEN: GOSUB r971
  975. IF r = 972 THEN: GOSUB r972
  976. IF r = 973 THEN: GOSUB r973
  977. IF r = 974 THEN: GOSUB r974
  978. IF r = 975 THEN: GOSUB r975
  979. IF r = 976 THEN: GOSUB r976
  980. IF r = 977 THEN: GOSUB r977
  981. IF r = 978 THEN: GOSUB r978
  982. IF r = 979 THEN: GOSUB r979
  983. IF r = 980 THEN: GOSUB r980
  984. IF r = 981 THEN: GOSUB r981
  985. IF r = 982 THEN: GOSUB r982
  986. IF r = 983 THEN: GOSUB r983
  987. IF r = 984 THEN: GOSUB r984
  988. IF r = 985 THEN: GOSUB r985
  989. IF r = 986 THEN: GOSUB r986
  990. IF r = 987 THEN: GOSUB r987
  991. IF r = 988 THEN: GOSUB r988
  992. IF r = 989 THEN: GOSUB r989
  993. IF r = 990 THEN: GOSUB r990
  994. IF r = 991 THEN: GOSUB r991
  995. IF r = 992 THEN: GOSUB r992
  996. IF r = 993 THEN: GOSUB r993
  997. IF r = 994 THEN: GOSUB r994
  998. IF r = 995 THEN: GOSUB r995
  999. IF r = 996 THEN: GOSUB r996
  1000. IF r = 997 THEN: GOSUB r997
  1001. IF r = 998 THEN: GOSUB r998
  1002. IF r = 999 THEN: GOSUB r999
  1003. IF r = 1000 THEN: GOSUB r1000
  1004. IF r = 1001 THEN: GOSUB r1001
  1005. IF r = 1002 THEN: GOSUB r1002
  1006. IF r = 1003 THEN: GOSUB r1003
  1007. IF r = 1004 THEN: GOSUB r1004
  1008. IF r = 1005 THEN: GOSUB r1005
  1009. IF r = 1006 THEN: GOSUB r1006
  1010. IF r = 1007 THEN: GOSUB r1007
  1011. IF r = 1008 THEN: GOSUB r1008
  1012. IF r = 1009 THEN: GOSUB r1009
  1013. IF r = 1010 THEN: GOSUB r1010
  1014. IF r = 1011 THEN: GOSUB r1011
  1015. IF r = 1012 THEN: GOSUB r1012
  1016. IF r = 1013 THEN: GOSUB r1013
  1017. IF r = 1014 THEN: GOSUB r1014
  1018. IF r = 1015 THEN: GOSUB r1015
  1019. IF r = 1016 THEN: GOSUB r1016
  1020. IF r = 1017 THEN: GOSUB r1017
  1021. IF r = 1018 THEN: GOSUB r1018
  1022. IF r = 1019 THEN: GOSUB r1019
  1023. IF r = 1020 THEN: GOSUB r1020
  1024. IF r = 1021 THEN: GOSUB r1021
  1025. IF r = 1022 THEN: GOSUB r1022
  1026. IF r = 1023 THEN: GOSUB r1023
  1027. IF r = 1024 THEN: GOSUB r1024
  1028. IF r = 1025 THEN: GOSUB r1025
  1029. IF r = 1026 THEN: GOSUB r1026
  1030. IF r = 1027 THEN: GOSUB r1027
  1031. IF r = 1028 THEN: GOSUB r1028
  1032. IF r = 1029 THEN: GOSUB r1029
  1033. IF r = 1030 THEN: GOSUB r1030
  1034. IF r = 1031 THEN: GOSUB r1031
  1035. IF r = 1032 THEN: GOSUB r1032
  1036. IF r = 1033 THEN: GOSUB r1033
  1037. IF r = 1034 THEN: GOSUB r1034
  1038. IF r = 1035 THEN: GOSUB r1035
  1039. IF r = 1036 THEN: GOSUB r1036
  1040. IF r = 1037 THEN: GOSUB r1037
  1041. IF r = 1038 THEN: GOSUB r1038
  1042. IF r = 1039 THEN: GOSUB r1039
  1043. IF r = 1040 THEN: GOSUB r1040
  1044. IF r = 1041 THEN: GOSUB r1041
  1045. IF r = 1042 THEN: GOSUB r1042
  1046. IF r = 1043 THEN: GOSUB r1043
  1047. IF r = 1044 THEN: GOSUB r1044
  1048. IF r = 1045 THEN: GOSUB r1045
  1049. IF r = 1046 THEN: GOSUB r1046
  1050. IF r = 1047 THEN: GOSUB r1047
  1051. IF r = 1048 THEN: GOSUB r1048
  1052. IF r = 1049 THEN: GOSUB r1049
  1053. IF r = 1050 THEN: GOSUB r1050
  1054. IF r = 1051 THEN: GOSUB r1051
  1055. IF r = 1052 THEN: GOSUB r1052
  1056. IF r = 1053 THEN: GOSUB r1053
  1057. IF r = 1054 THEN: GOSUB r1054
  1058. IF r = 1055 THEN: GOSUB r1055
  1059. IF r = 1056 THEN: GOSUB r1056
  1060. IF r = 1057 THEN: GOSUB r1057
  1061. IF r = 1058 THEN: GOSUB r1058
  1062. IF r = 1059 THEN: GOSUB r1059
  1063. IF r = 1060 THEN: GOSUB r1060
  1064. IF r = 1061 THEN: GOSUB r1061
  1065. IF r = 1062 THEN: GOSUB r1062
  1066. IF r = 1063 THEN: GOSUB r1063
  1067. IF r = 1064 THEN: GOSUB r1064
  1068. IF r = 1065 THEN: GOSUB r1065
  1069. IF r = 1066 THEN: GOSUB r1066
  1070. IF r = 1067 THEN: GOSUB r1067
  1071. IF r = 1068 THEN: GOSUB r1068
  1072. IF r = 1069 THEN: GOSUB r1069
  1073. IF r = 1070 THEN: GOSUB r1070
  1074. IF r = 1071 THEN: GOSUB r1071
  1075. IF r = 1072 THEN: GOSUB r1072
  1076. IF r = 1073 THEN: GOSUB r1073
  1077. IF r = 1074 THEN: GOSUB r1074
  1078. IF r = 1075 THEN: GOSUB r1075
  1079. IF r = 1076 THEN: GOSUB r1076
  1080. IF r = 1077 THEN: GOSUB r1077
  1081. IF r = 1078 THEN: GOSUB r1078
  1082. IF r = 1079 THEN: GOSUB r1079
  1083. IF r = 1080 THEN: GOSUB r1080
  1084. IF r = 1081 THEN: GOSUB r1081
  1085. IF r = 1082 THEN: GOSUB r1082
  1086. IF r = 1083 THEN: GOSUB r1083
  1087. IF r = 1084 THEN: GOSUB r1084
  1088. IF r = 1085 THEN: GOSUB r1085
  1089. IF r = 1086 THEN: GOSUB r1086
  1090. IF r = 1087 THEN: GOSUB r1087
  1091. IF r = 1088 THEN: GOSUB r1088
  1092. IF r = 1089 THEN: GOSUB r1089
  1093. IF r = 1090 THEN: GOSUB r1090
  1094. IF r = 1091 THEN: GOSUB r1091
  1095. IF r = 1092 THEN: GOSUB r1092
  1096. IF r = 1093 THEN: GOSUB r1093
  1097. IF r = 1094 THEN: GOSUB r1094
  1098. IF r = 1095 THEN: GOSUB r1095
  1099. IF r = 1096 THEN: GOSUB r1096
  1100. IF r = 1097 THEN: GOSUB r1097
  1101. IF r = 1098 THEN: GOSUB r1098
  1102. IF r = 1099 THEN: GOSUB r1099
  1103. IF r = 1000 THEN: GOSUB r1100
  1104. IF r = 1101 THEN: GOSUB r1101
  1105. IF r = 1102 THEN: GOSUB r1102
  1106. IF r = 1103 THEN: GOSUB r1103
  1107. IF r = 1104 THEN: GOSUB r1104
  1108. IF r = 1105 THEN: GOSUB r1105
  1109.  
  1110.  

Welcome to the Hotel California

Code: QB64: [Select]
  1. r119:
  2.  
  3. r120:
  4.  
  5. r121:
  6.  
  7. r122:
  8.  
  9. r123:
  10.  
  11. r124:
  12.  
  13. r125:
  14.  
  15. r126:
  16.  
  17. r127:
  18.  
  19. r128:
  20.  
  21. r129:
  22.  
  23. r130:
  24.  
  25. r131:
  26.  
  27. r132:
  28.  
  29. r133:
  30.  
  31. r134:
  32.  
  33. r135:
  34.  
  35. r136:
  36.  
  37. r137:
  38.  
  39. r138:
  40.  
  41. r139:
  42.  
  43. r140:
  44.  
  45. r141:
  46.  
  47. r142:
  48.  
  49. r143:
  50.  
  51. r144:
  52.  
  53. r145:
  54.  
  55. r146:
  56.  
  57. r147:
  58.  
  59. r148:
  60.  
  61. r149:
  62.  
  63. r150:
  64.  
  65. r151:
  66.  
  67. r152:
  68.  
  69. r153:
  70.  
  71. r154:
  72.  
  73. r155:
  74.  
  75. r156:
  76.  
  77. r157:
  78.  
  79. r158:
  80.  
  81. r159:
  82.  
  83. r160:
  84.  
  85. r161:
  86.  
  87. r162:
  88.  
  89. r163:
  90.  
  91. r164:
  92.  
  93. r165:
  94.  
  95. r166:
  96.  
  97. r167:
  98.  
  99. r168:
  100.  
  101. r169:
  102.  
  103. r170:
  104.  
  105. r171:
  106.  
  107. r172:
  108.  
  109. r173:
  110.  
  111. r174:
  112.  
  113. r175:
  114.  
  115. r176:
  116.  
  117. r177:
  118.  
  119. r178:
  120.  
  121. r179:
  122.  
  123. r180:
  124.  
  125. r181:
  126.  
  127. r182:
  128.  
  129. r183:
  130.  
  131. r184:
  132.  
  133. r185:
  134.  
  135. r186:
  136.  
  137. r187:
  138.  
  139. r188:
  140.  
  141. r189:
  142.  
  143. r190:
  144.  
  145. r191:
  146.  
  147. r192:
  148.  
  149. r193:
  150.  
  151. r194:
  152.  
  153. r195:
  154.  
  155. r196:
  156.  
  157. r197:
  158.  
  159. r198:
  160.  
  161. r199:
  162.  
  163. r200:
  164.  
  165. r201:
  166.  
  167. r202:
  168.  
  169. r203:
  170.  
  171. r204:
  172.  
  173. r205:
  174.  
  175. r206:
  176.  
  177. r207:
  178.  
  179. r208:
  180.  
  181. r209:
  182.  
  183. r210:
  184.  
  185. r211:
  186.  
  187. r212:
  188.  
  189. r213:
  190.  
  191. r214:
  192.  
  193. r215:
  194.  
  195. r216:
  196.  
  197. r217:
  198.  
  199. r218:
  200.  
  201. r219:
  202.  
  203. r220:
  204.  
  205. r221:
  206.  
  207. r222:
  208.  
  209. r223:
  210.  
  211. r224:
  212.  
  213. r225:
  214.  
  215. r226:
  216.  
  217. r227:
  218.  
  219. r228:
  220.  
  221. r229:
  222.  
  223. r230:
  224.  
  225. r231:
  226.  
  227. r232:
  228.  
  229. r233:
  230.  
  231. r234:
  232.  
  233. r235:
  234.  
  235. r236:
  236.  
  237. r237:
  238.  
  239. r238:
  240.  
  241. r239:
  242.  
  243. r240:
  244.  
  245. r241:
  246.  
  247. r242:
  248.  
  249. r243:
  250.  
  251. r244:
  252.  
  253. r245:
  254.  
  255. r246:
  256.  
  257. r247:
  258.  
  259. r248:
  260.  
  261. r249:
  262.  
  263. r250:
  264.  
  265. r251:
  266.  
  267. r252:
  268.  
  269. r253:
  270.  
  271. r254:
  272.  
  273. r255:
  274.  
  275. r256:
  276.  
  277. r257:
  278.  
  279. r258:
  280.  
  281. r259:
  282.  
  283. r260:
  284.  
  285. r261:
  286.  
  287. r262:
  288.  
  289. r263:
  290.  
  291. r264:
  292.  
  293. r265:
  294.  
  295. r266:
  296.  
  297. r267:
  298.  
  299. r268:
  300.  
  301. r269:
  302.  
  303. r270:
  304.  
  305. r271:
  306.  
  307. r272:
  308.  
  309. r273:
  310.  
  311. r274:
  312.  
  313. r275:
  314.  
  315. r276:
  316.  
  317. r277:
  318.  
  319. r278:
  320.  
  321. r279:
  322.  
  323. r280:
  324.  
  325. r281:
  326.  
  327. r282:
  328.  
  329. r283:
  330.  
  331. r284:
  332.  
  333. r285:
  334.  
  335. r286:
  336.  
  337. r287:
  338.  
  339. r288:
  340.  
  341. r289:
  342.  
  343. r290:
  344.  
  345. r291:
  346.  
  347. r292:
  348.  
  349. r293:
  350.  
  351. r294:
  352.  
  353. r295:
  354.  
  355. r296:
  356.  
  357. r297:
  358.  
  359. r298:
  360.  
  361. r299:
  362.  
  363. r300:
  364.  
  365. r301:
  366.  
  367. r302:
  368.  
  369. r303:
  370.  
  371. r304:
  372.  
  373. r305:
  374.  
  375. r306:
  376.  
  377. r307:
  378.  
  379. r308:
  380.  
  381. r309:
  382.  
  383. r310:
  384.  
  385. r311:
  386.  
  387. r312:
  388.  
  389. r313:
  390.  
  391. r314:
  392.  
  393. r315:
  394.  
  395. r316:
  396.  
  397. r317:
  398.  
  399. r318:
  400.  
  401. r319:
  402.  
  403. r320:
  404.  
  405. r321:
  406.  
  407. r322:
  408.  
  409. r323:
  410.  
  411. r324:
  412.  
  413. r325:
  414.  
  415. r326:
  416.  
  417. r327:
  418.  
  419. r328:
  420.  
  421. r329:
  422.  
  423. r330:
  424.  
  425. r331:
  426.  
  427. r332:
  428.  
  429. r333:
  430.  
  431. r334:
  432.  
  433. r335:
  434.  
  435. r336:
  436.  
  437. r337:
  438.  
  439. r338:
  440.  
  441. r339:
  442.  
  443. r340:
  444.  
  445. r341:
  446.  
  447. r342:
  448.  
  449. r343:
  450.  
  451. r344:
  452.  
  453. r345:
  454.  
  455. r346:
  456.  
  457. r347:
  458.  
  459. r348:
  460.  
  461. r349:
  462.  
  463. r350:
  464.  
  465. r351:
  466.  
  467. r352:
  468.  
  469. r353:
  470.  
  471. r354:
  472.  
  473. r355:
  474.  
  475. r356:
  476.  
  477. r357:
  478.  
  479. r358:
  480.  
  481. r359:
  482.  
  483. r360:
  484.  
  485. r361:
  486.  
  487. r362:
  488.  
  489. r363:
  490.  
  491. r364:
  492.  
  493. r365:
  494.  
  495. r366:
  496.  
  497. r367:
  498.  
  499. r368:
  500.  
  501. r369:
  502.  
  503. r370:
  504.  
  505. r371:
  506.  
  507. r372:
  508.  
  509. r373:
  510.  
  511. r374:
  512.  
  513. r375:
  514.  
  515. r376:
  516.  
  517. r377:
  518.  
  519. r378:
  520.  
  521. r379:
  522.  
  523. r380:
  524.  
  525. r381:
  526.  
  527. r382:
  528.  
  529. r383:
  530.  
  531. r384:
  532.  
  533. r385:
  534.  
  535. r386:
  536.  
  537. r387:
  538.  
  539. r388:
  540.  
  541. r389:
  542.  
  543. r390:
  544.  
  545. r391:
  546.  
  547. r392:
  548.  
  549. r393:
  550.  
  551. r394:
  552.  
  553. r395:
  554.  
  555. r396:
  556.  
  557. r397:
  558.  
  559. r398:
  560.  
  561. r399:
  562.  
  563. r400:
  564.  
  565. r401:
  566.  
  567. r402:
  568.  
  569. r403:
  570.  
  571. r404:
  572.  
  573. r405:
  574.  
  575. r406:
  576.  
  577. r407:
  578.  
  579. r408:
  580.  
  581. r409:
  582.  
  583. r410:
  584.  
  585. r411:
  586.  
  587. r412:
  588.  
  589. r413:
  590.  
  591. r414:
  592.  
  593. r415:
  594.  
  595. r416:
  596.  
  597. r417:
  598.  
  599. r418:
  600.  
  601. r419:
  602.  
  603. r420:
  604.  
  605. r421:
  606.  
  607. r422:
  608.  
  609. r423:
  610.  
  611. r424:
  612.  
  613. r425:
  614.  
  615. r426:
  616.  
  617. r427:
  618.  
  619. r428:
  620.  
  621. r429:
  622.  
  623. r430:
  624.  
  625. r431:
  626.  
  627. r432:
  628.  
  629. r433:
  630.  
  631. r434:
  632.  
  633. r435:
  634.  
  635. r436:
  636.  
  637. r437:
  638.  
  639. r438:
  640.  
  641. r439:
  642.  
  643. r440:
  644.  
  645. r441:
  646.  
  647. r442:
  648.  
  649. r443:
  650.  
  651. r444:
  652.  
  653. r445:
  654.  
  655. r446:
  656.  
  657. r447:
  658.  
  659. r448:
  660.  
  661. r449:
  662.  
  663. r450:
  664.  
  665. r451:
  666.  
  667. r452:
  668.  
  669. r453:
  670.  
  671. r454:
  672.  
  673. r455:
  674.  
  675. r456:
  676.  
  677. r457:
  678.  
  679. r458:
  680.  
  681. r459:
  682.  
  683. r460:
  684.  
  685. r461:
  686.  
  687. r462:
  688.  
  689. r463:
  690.  
  691. r464:
  692.  
  693. r465:
  694.  
  695. r466:
  696.  
  697. r467:
  698.  
  699. r468:
  700.  
  701. r469:
  702.  
  703. r470:
  704.  
  705. r471:
  706.  
  707. r472:
  708.  
  709. r473:
  710.  
  711. r474:
  712.  
  713. r475:
  714.  
  715. r476:
  716.  
  717. r477:
  718.  
  719. r478:
  720.  
  721. r479:
  722.  
  723. r480:
  724.  
  725. r481:
  726.  
  727. r482:
  728.  
  729. r483:
  730.  
  731. r484:
  732.  
  733. r485:
  734.  
  735. r486:
  736.  
  737. r487:
  738.  
  739. r488:
  740.  
  741. r489:
  742.  
  743. r490:
  744.  
  745. r491:
  746.  
  747. r492:
  748.  
  749. r493:
  750.  
  751. r494:
  752.  
  753. r495:
  754.  
  755. r496:
  756.  
  757. r497:
  758.  
  759. r498:
  760.  
  761. r499:
  762.  
  763. r500:
  764.  
  765. r501:
  766.  
  767. r502:
  768.  
  769. r503:
  770.  
  771. r504:
  772.  
  773. r505:
  774.  
  775. r506:
  776.  
  777. r507:
  778.  
  779. r508:
  780.  
  781. r509:
  782.  
  783. r510:
  784.  
  785. r511:
  786.  
  787. r512:
  788.  
  789. r513:
  790.  
  791. r514:
  792.  
  793. r515:
  794.  
  795. r516:
  796.  
  797. r517:
  798.  
  799. r518:
  800.  
  801. r519:
  802.  
  803. r520:
  804.  
  805. r521:
  806.  
  807. r522:
  808.  
  809. r523:
  810.  
  811. r524:
  812.  
  813. r525:
  814.  
  815. r526:
  816.  
  817. r527:
  818.  
  819. r528:
  820.  
  821. r529:
  822.  
  823. r530:
  824.  
  825. r531:
  826.  
  827. r532:
  828.  
  829. r533:
  830.  
  831. r534:
  832.  
  833. r535:
  834.  
  835. r536:
  836.  
  837. r537:
  838.  
  839. r538:
  840.  
  841. r539:
  842.  
  843. r540:
  844.  
  845. r541:
  846.  
  847. r542:
  848.  
  849. r543:
  850.  
  851. r544:
  852.  
  853. r545:
  854.  
  855. r546:
  856.  
  857. r547:
  858.  
  859. r548:
  860.  
  861. r549:
  862.  
  863. r550:
  864.  
  865. r551:
  866.  
  867. r552:
  868.  
  869. r553:
  870.  
  871. r554:
  872.  
  873. r555:
  874.  
  875. r556:
  876.  
  877. r557:
  878.  
  879. r558:
  880.  
  881. r559:
  882.  
  883. r560:
  884.  
  885. r561:
  886.  
  887. r562:
  888.  
  889. r563:
  890.  
  891. r564:
  892.  
  893. r565:
  894.  
  895. r566:
  896.  
  897. r567:
  898.  
  899. r568:
  900.  
  901. r569:
  902.  
  903. r570:
  904.  
  905. r571:
  906.  
  907. r572:
  908.  
  909. r573:
  910.  
  911. r574:
  912.  
  913. r575:
  914.  
  915. r576:
  916.  
  917. r577:
  918.  
  919. r578:
  920.  
  921. r579:
  922.  
  923. r580:
  924.  
  925. r581:
  926.  
  927. r582:
  928.  
  929. r583:
  930.  
  931. r584:
  932.  
  933. r585:
  934.  
  935. r586:
  936.  
  937. r587:
  938.  
  939. r588:
  940.  
  941. r589:
  942.  
  943. r590:
  944.  
  945. r591:
  946.  
  947. r592:
  948.  
  949. r593:
  950.  
  951. r594:
  952.  
  953. r595:
  954.  
  955. r596:
  956.  
  957. r597:
  958.  
  959. r598:
  960.  
  961. r599:
  962.  
  963. r600:
  964.  
  965. r601:
  966.  
  967. r602:
  968.  
  969. r603:
  970.  
  971. r604:
  972.  
  973. r605:
  974.  
  975. r606:
  976.  
  977. r607:
  978.  
  979. r608:
  980.  
  981. r609:
  982.  
  983. r610:
  984.  
  985. r611:
  986.  
  987. r612:
  988.  
  989. r613:
  990.  
  991. r614:
  992.  
  993. r615:
  994.  
  995. r616:
  996.  
  997. r617:
  998.  
  999. r618:
  1000.  
  1001. r619:
  1002.  
  1003. r620:
  1004.  
  1005. r621:
  1006.  
  1007. r622:
  1008.  
  1009. r623:
  1010.  
  1011. r624:
  1012.  
  1013. r625:
  1014.  
  1015. r626:
  1016.  
  1017. r627:
  1018.  
  1019. r628:
  1020.  
  1021. r629:
  1022.  
  1023. r630:
  1024.  
  1025. r631:
  1026.  
  1027. r632:
  1028.  
  1029. r633:
  1030.  
  1031. r634:
  1032.  
  1033. r635:
  1034.  
  1035. r636:
  1036.  
  1037. r637:
  1038.  
  1039. r638:
  1040.  
  1041. r639:
  1042.  
  1043. r640:
  1044.  
  1045. r641:
  1046.  
  1047. r642:
  1048.  
  1049. r643:
  1050.  
  1051. r644:
  1052.  
  1053. r645:
  1054.  
  1055. r646:
  1056.  
  1057. r647:
  1058.  
  1059. r648:
  1060.  
  1061. r649:
  1062.  
  1063. r650:
  1064.  
  1065. r651:
  1066.  
  1067. r652:
  1068.  
  1069. r653:
  1070.  
  1071. r654:
  1072.  
  1073. r655:
  1074.  
  1075. r656:
  1076.  
  1077. r657:
  1078.  
  1079. r658:
  1080.  
  1081. r659:
  1082.  
  1083. r660:
  1084.  
  1085. r661:
  1086.  
  1087. r662:
  1088.  
  1089. r663:
  1090.  
  1091. r664:
  1092.  
  1093. r665:
  1094.  
  1095. r666:
  1096.  
  1097. r667:
  1098.  
  1099. r668:
  1100.  
  1101. r669:
  1102.  
  1103. r670:
  1104.  
  1105. r671:
  1106.  
  1107. r672:
  1108.  
  1109. r673:
  1110.  
  1111. r674:
  1112.  
  1113. r675:
  1114.  
  1115. r676:
  1116.  
  1117. r677:
  1118.  
  1119. r678:
  1120.  
  1121. r679:
  1122.  
  1123. r680:
  1124.  
  1125. r681:
  1126.  
  1127. r682:
  1128.  
  1129. r683:
  1130.  
  1131. r684:
  1132.  
  1133. r685:
  1134.  
  1135. r686:
  1136.  
  1137. r687:
  1138.  
  1139. r688:
  1140.  
  1141. r689:
  1142.  
  1143. r690:
  1144.  
  1145. r691:
  1146.  
  1147. r692:
  1148.  
  1149. r693:
  1150.  
  1151. r694:
  1152.  
  1153. r695:
  1154.  
  1155. r696:
  1156.  
  1157. r697:
  1158.  
  1159. r698:
  1160.  
  1161. r699:
  1162.  
  1163. r700:
  1164.  
  1165. r701:
  1166.  
  1167. r702:
  1168.  
  1169. r703:
  1170.  
  1171. r704:
  1172.  
  1173. r705:
  1174.  
  1175. r706:
  1176.  
  1177. r707:
  1178.  
  1179. r708:
  1180.  
  1181. r709:
  1182.  
  1183. r710:
  1184.  
  1185. r711:
  1186.  
  1187. r712:
  1188.  
  1189. r713:
  1190.  
  1191. r714:
  1192.  
  1193. r715:
  1194.  
  1195. r716:
  1196.  
  1197. r717:
  1198.  
  1199. r718:
  1200.  
  1201. r719:
  1202.  
  1203. r720:
  1204.  
  1205. r721:
  1206.  
  1207. r722:
  1208.  
  1209. r723:
  1210.  
  1211. r724:
  1212.  
  1213. r725:
  1214.  
  1215. r726:
  1216.  
  1217. r727:
  1218.  
  1219. r728:
  1220.  
  1221. r729:
  1222.  
  1223. r730:
  1224.  
  1225. r731:
  1226.  
  1227. r732:
  1228.  
  1229. r733:
  1230.  
  1231. r734:
  1232.  
  1233. r735:
  1234.  
  1235. r736:
  1236.  
  1237. r737:
  1238.  
  1239. r738:
  1240.  
  1241. r739:
  1242.  
  1243. r740:
  1244.  
  1245. r741:
  1246.  
  1247. r742:
  1248.  
  1249. r743:
  1250.  
  1251. r744:
  1252.  
  1253. r745:
  1254.  
  1255. r746:
  1256.  
  1257. r747:
  1258.  
  1259. r748:
  1260.  
  1261. r749:
  1262.  
  1263. r750:
  1264.  
  1265. r751:
  1266.  
  1267. r752:
  1268.  
  1269. r753:
  1270.  
  1271. r754:
  1272.  
  1273. r755:
  1274.  
  1275. r756:
  1276.  
  1277. r757:
  1278.  
  1279. r758:
  1280.  
  1281. r759:
  1282.  
  1283. r760:
  1284.  
  1285. r761:
  1286.  
  1287. r762:
  1288.  
  1289. r763:
  1290.  
  1291. r764:
  1292.  
  1293. r765:
  1294.  
  1295. r766:
  1296.  
  1297. r767:
  1298.  
  1299. r768:
  1300.  
  1301. r769:
  1302.  
  1303. r770:
  1304.  
  1305. r771:
  1306.  
  1307. r772:
  1308.  
  1309. r773:
  1310.  
  1311. r774:
  1312.  
  1313. r775:
  1314.  
  1315. r776:
  1316.  
  1317. r777:
  1318.  
  1319. r778:
  1320.  
  1321. r779:
  1322.  
  1323. r780:
  1324.  
  1325. r781:
  1326.  
  1327. r782:
  1328.  
  1329. r783:
  1330.  
  1331. r784:
  1332.  
  1333. r785:
  1334.  
  1335. r786:
  1336.  
  1337. r787:
  1338.  
  1339. r788:
  1340.  
  1341. r789:
  1342.  
  1343. r790:
  1344.  
  1345. r791:
  1346.  
  1347. r792:
  1348.  
  1349. r793:
  1350.  
  1351. r794:
  1352.  
  1353. r795:
  1354.  
  1355. r796:
  1356.  
  1357. r797:
  1358.  
  1359. r798:
  1360.  
  1361. r799:
  1362.  
  1363. r800:
  1364.  
  1365. r801:
  1366.  
  1367. r802:
  1368.  
  1369. r803:
  1370.  
  1371. r804:
  1372.  
  1373. r805:
  1374.  
  1375. r806:
  1376.  
  1377. r807:
  1378.  
  1379. r808:
  1380.  
  1381. r809:
  1382.  
  1383. r810:
  1384.  
  1385. r811:
  1386.  
  1387. r812:
  1388.  
  1389. r813:
  1390.  
  1391. r814:
  1392.  
  1393. r815:
  1394.  
  1395. r816:
  1396.  
  1397. r817:
  1398.  
  1399. r818:
  1400.  
  1401. r819:
  1402.  
  1403. r820:
  1404.  
  1405. r821:
  1406.  
  1407. r822:
  1408.  
  1409. r823:
  1410.  
  1411. r824:
  1412.  
  1413. r825:
  1414.  
  1415. r826:
  1416.  
  1417. r827:
  1418.  
  1419. r828:
  1420.  
  1421. r829:
  1422.  
  1423. r830:
  1424.  
  1425. r831:
  1426.  
  1427. r832:
  1428.  
  1429. r833:
  1430.  
  1431. r834:
  1432.  
  1433. r835:
  1434.  
  1435. r836:
  1436.  
  1437. r837:
  1438.  
  1439. r838:
  1440.  
  1441. r839:
  1442.  
  1443. r840:
  1444.  
  1445. r841:
  1446.  
  1447. r842:
  1448.  
  1449. r843:
  1450.  
  1451. r844:
  1452.  
  1453. r845:
  1454.  
  1455. r846:
  1456.  
  1457. r847:
  1458.  
  1459. r848:
  1460.  
  1461. r849:
  1462.  
  1463. r850:
  1464.  
  1465. r851:
  1466.  
  1467. r852:
  1468.  
  1469. r853:
  1470.  
  1471. r854:
  1472.  
  1473. r855:
  1474.  
  1475. r856:
  1476.  
  1477. r857:
  1478.  
  1479. r858:
  1480.  
  1481. r859:
  1482.  
  1483. r860:
  1484.  
  1485. r861:
  1486.  
  1487. r862:
  1488.  
  1489. r863:
  1490.  
  1491. r864:
  1492.  
  1493. r865:
  1494.  
  1495. r866:
  1496.  
  1497. r867:
  1498.  
  1499. r868:
  1500.  
  1501. r869:
  1502.  
  1503. r870:
  1504.  
  1505. r871:
  1506.  
  1507. r872:
  1508.  
  1509. r873:
  1510.  
  1511. r874:
  1512.  
  1513. r875:
  1514.  
  1515. r876:
  1516.  
  1517. r877:
  1518.  
  1519. r878:
  1520.  
  1521. r879:
  1522.  
  1523. r880:
  1524.  
  1525. r881:
  1526.  
  1527. r882:
  1528.  
  1529. r883:
  1530.  
  1531. r884:
  1532.  
  1533. r885:
  1534.  
  1535. r886:
  1536.  
  1537. r887:
  1538.  
  1539. r888:
  1540.  
  1541. r889:
  1542.  
  1543. r890:
  1544.  
  1545. r891:
  1546.  
  1547. r892:
  1548.  
  1549. r893:
  1550.  
  1551. r894:
  1552.  
  1553. r895:
  1554.  
  1555. r896:
  1556.  
  1557. r897:
  1558.  
  1559. r898:
  1560.  
  1561. r899:
  1562.  
  1563. r900:
  1564.  
  1565. r901:
  1566.  
  1567. r902:
  1568.  
  1569. r903:
  1570.  
  1571. r904:
  1572.  
  1573. r905:
  1574.  
  1575. r906:
  1576.  
  1577. r907:
  1578.  
  1579. r908:
  1580.  
  1581. r909:
  1582.  
  1583. r910:
  1584.  
  1585. r911:
  1586.  
  1587. r912:
  1588.  
  1589. r913:
  1590.  
  1591. r914:
  1592.  
  1593. r915:
  1594.  
  1595. r916:
  1596.  
  1597. r917:
  1598.  
  1599. r918:
  1600.  
  1601. r919:
  1602.  
  1603. r920:
  1604.  
  1605. r921:
  1606.  
  1607. r922:
  1608.  
  1609. r923:
  1610.  
  1611. r924:
  1612.  
  1613. r925:
  1614.  
  1615. r926:
  1616.  
  1617. r927:
  1618.  
  1619. r928:
  1620.  
  1621. r929:
  1622.  
  1623. r930:
  1624.  
  1625. r931:
  1626.  
  1627. r932:
  1628.  
  1629. r933:
  1630.  
  1631. r934:
  1632.  
  1633. r935:
  1634.  
  1635. r936:
  1636.  
  1637. r937:
  1638.  
  1639. r938:
  1640.  
  1641. r939:
  1642.  
  1643. r940:
  1644.  
  1645. r941:
  1646.  
  1647. r942:
  1648.  
  1649. r943:
  1650.  
  1651. r944:
  1652.  
  1653. r945:
  1654.  
  1655. r946:
  1656.  
  1657. r947:
  1658.  
  1659. r948:
  1660.  
  1661. r949:
  1662.  
  1663. r950:
  1664.  
  1665. r951:
  1666.  
  1667. r952:
  1668.  
  1669. r953:
  1670.  
  1671. r954:
  1672.  
  1673. r955:
  1674.  
  1675. r956:
  1676.  
  1677. r957:
  1678.  
  1679. r958:
  1680.  
  1681. r959:
  1682.  
  1683. r960:
  1684.  
  1685. r961:
  1686.  
  1687. r962:
  1688.  
  1689. r963:
  1690.  
  1691. r964:
  1692.  
  1693. r965:
  1694.  
  1695. r966:
  1696.  
  1697. r967:
  1698.  
  1699. r968:
  1700.  
  1701. r969:
  1702.  
  1703. r970:
  1704.  
  1705. r971:
  1706.  
  1707. r972:
  1708.  
  1709. r973:
  1710.  
  1711. r974:
  1712.  
  1713. r975:
  1714.  
  1715. r976:
  1716.  
  1717. r977:
  1718.  
  1719. r978:
  1720.  
  1721. r979:
  1722.  
  1723. r980:
  1724.  
  1725. r981:
  1726.  
  1727. r982:
  1728.  
  1729. r983:
  1730.  
  1731. r984:
  1732.  
  1733. r985:
  1734.  
  1735. r986:
  1736.  
  1737. r987:
  1738.  
  1739. r988:
  1740.  
  1741. r989:
  1742.  
  1743. r990:
  1744.  
  1745. r991:
  1746.  
  1747. r992:
  1748.  
  1749. r993:
  1750.  
  1751. r994:
  1752.  
  1753. r995:
  1754.  
  1755. r996:
  1756.  
  1757. r997:
  1758.  
  1759. r998:
  1760.  
  1761. r999:
  1762.  
  1763. r1000:
  1764.  
  1765. r1001:
  1766.  
  1767. r1002:
  1768.  
  1769. r1003:
  1770.  
  1771. r1004:
  1772.  
  1773. r1005:
  1774.  
  1775. r1006:
  1776.  
  1777. r1007:
  1778.  
  1779. r1008:
  1780.  
  1781. r1009:
  1782.  
  1783. r1010:
  1784.  
  1785. r1011:
  1786.  
  1787. r1012:
  1788.  
  1789. r1013:
  1790.  
  1791. r1014:
  1792.  
  1793. r1015:
  1794.  
  1795. r1016:
  1796.  
  1797. r1017:
  1798.  
  1799. r1018:
  1800.  
  1801. r1019:
  1802.  
  1803. r1020:
  1804.  
  1805. r1021:
  1806.  
  1807. r1022:
  1808.  
  1809. r1023:
  1810.  
  1811. r1024:
  1812.  
  1813. r1025:
  1814.  
  1815. r1026:
  1816.  
  1817. r1027:
  1818.  
  1819. r1028:
  1820.  
  1821. r1029:
  1822.  
  1823. r1030:
  1824.  
  1825. r1031:
  1826.  
  1827. r1032:
  1828.  
  1829. r1033:
  1830.  
  1831. r1034:
  1832.  
  1833. r1035:
  1834.  
  1835. r1036:
  1836.  
  1837. r1037:
  1838.  
  1839. r1038:
  1840.  
  1841. r1039:
  1842.  
  1843. r1040:
  1844.  
  1845. r1041:
  1846.  
  1847. r1042:
  1848.  
  1849. r1043:
  1850.  
  1851. r1044:
  1852.  
  1853. r1045:
  1854.  
  1855. r1046:
  1856.  
  1857. r1047:
  1858.  
  1859. r1048:
  1860.  
  1861. r1049:
  1862.  
  1863. r1050:
  1864.  
  1865. r1051:
  1866.  
  1867. r1052:
  1868.  
  1869. r1053:
  1870.  
  1871. r1054:
  1872.  
  1873. r1055:
  1874.  
  1875. r1056:
  1876.  
  1877. r1057:
  1878.  
  1879. r1058:
  1880.  
  1881. r1059:
  1882.  
  1883. r1060:
  1884.  
  1885. r1061:
  1886.  
  1887. r1062:
  1888.  
  1889. r1063:
  1890.  
  1891. r1064:
  1892.  
  1893. r1065:
  1894.  
  1895. r1066:
  1896.  
  1897. r1067:
  1898.  
  1899. r1068:
  1900.  
  1901. r1069:
  1902.  
  1903. r1070:
  1904.  
  1905. r1071:
  1906.  
  1907. r1072:
  1908.  
  1909. r1073:
  1910.  
  1911. r1074:
  1912.  
  1913. r1075:
  1914.  
  1915. r1076:
  1916.  
  1917. r1077:
  1918.  
  1919. r1078:
  1920.  
  1921. r1079:
  1922.  
  1923. r1080:
  1924.  
  1925. r1081:
  1926.  
  1927. r1082:
  1928.  
  1929. r1083:
  1930.  
  1931. r1084:
  1932.  
  1933. r1085:
  1934.  
  1935. r1086:
  1936.  
  1937. r1087:
  1938.  
  1939. r1088:
  1940.  
  1941. r1089:
  1942.  
  1943. r1090:
  1944.  
  1945. r1091:
  1946.  
  1947. r1092:
  1948.  
  1949. r1093:
  1950.  
  1951. r1094:
  1952.  
  1953. r1095:
  1954.  
  1955. r1096:
  1956.  
  1957. r1097:
  1958.  
  1959. r1098:
  1960.  
  1961. r1099:
  1962.  
  1963. r1100:
  1964.  
  1965. r1101:
  1966.  
  1967. r1102:
  1968.  
  1969. r1103:
  1970.  
  1971. r1104:
  1972.  
  1973. r1105:
  1974.  

Quote
Relax," said the night man
"We are programmed to receive
You can check out any time you like
But you can never leave!"


@BobSaget9/11 do you write this by hand or do you have a program do it for you?
« Last Edit: September 14, 2020, 10:41:16 pm by bplus »

Offline BobSaget9/11

  • Newbie
  • Posts: 5
    • View Profile
Re: The Phantom Temple Game
« Reply #2 on: September 14, 2020, 10:40:50 pm »
Yeah, I got no talent when it comes too programming. I'm still working on room descriptions. It won't be finished for like a month or so.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #3 on: September 14, 2020, 10:46:02 pm »
Here is an old command from QB4.5 or earlier:

https://www.qb64.org/wiki/ON...GOTO

Might help but you have so many! ;-))

« Last Edit: September 14, 2020, 10:47:46 pm by bplus »

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #4 on: September 14, 2020, 11:36:06 pm »
If you put all the happenings for each room in a text file with line number markers = room numbers you can makeup a sub to lookup the room and read the text. That should shrink your program down to a more manageable size.

Offline BobSaget9/11

  • Newbie
  • Posts: 5
    • View Profile
Re: The Phantom Temple Game
« Reply #5 on: September 14, 2020, 11:42:37 pm »
That would be cool, but I alas have no idea how to do that.

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: The Phantom Temple Game
« Reply #6 on: September 14, 2020, 11:42:52 pm »
@BobSaget9/11 Are you compiling in 64 bit or 32 bit? I had no problem compiling it in 64 bit on Windows. The only thing I see wrong is a typo on the intro screen.
Shuwatch!

Offline BobSaget9/11

  • Newbie
  • Posts: 5
    • View Profile
Re: The Phantom Temple Game
« Reply #7 on: September 14, 2020, 11:45:48 pm »
I don't know exactly, how does one change it?

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: The Phantom Temple Game
« Reply #8 on: September 14, 2020, 11:48:39 pm »
When you are in the QB64 IDE look at the top left corner. Does it say x64 or x32? There is no changing it, you would just have to download the other one. It fails compiling in 32 bit IDE. It does take an awfully long time to compile even in 64 bit so I would definitely follow bplus's idea and put the room stuff or other pieces into text files and read the stuff you need. It might make it even faster. For instance, you could do something like this. I wrote this for handling JSON files. If you stored your room info as a JSON file you could use this function to read back the info for the room you are in:
Code: QB64: [Select]
  1. OPEN "rooms.txt" FOR BINARY AS #1
  2. Rooms$ = SPACE$(LOF(1))
  3. GET #1, , Rooms$
  4.  
  5. PRINT GetKey("room101", Rooms$)
  6.  
  7. FUNCTION GetKey$ (keyname AS STRING, JSON AS STRING)
  8.     DIM jkey AS STRING
  9.     IF INSTR(JSON, CHR$(34) + keyname + CHR$(34)) THEN
  10.         jkey = MID$(JSON, INSTR(JSON, CHR$(34) + keyname + CHR$(34)) + LEN(keyname))
  11.         jkey = MID$(jkey, INSTR(jkey, ":") + 1)
  12.         IF MID$(jkey, 1, 1) = CHR$(34) THEN
  13.             jkey = MID$(jkey, 2)
  14.         END IF
  15.         jkey = MID$(jkey, 1, INSTR(jkey, CHR$(34)) - 1)
  16.         IF RIGHT$(jkey, 1) = "," THEN
  17.             jkey = MID$(jkey, 1, LEN(jkey) - 1)
  18.         END IF
  19.     ELSE
  20.         GetKey = ""
  21.     END IF
  22.     GetKey = jkey
  23.  

JSON looks like this:

Quote
{"copyright":"Katie Darby","date":"2020-09-05","explanation":"Illuminating planet Earth's night, full moons can have many names. This year the last full moon of northern hemisphere summer was on September 2, known to some as the Full Corn Moon. A few days earlier on August 30 this almost full moon rose just before sunset though, shining through cloudy skies over Cape Canaveral Air Force Station on Florida's Space Coast. A well-timed snapshot caught the glare of rocket engines firing below the lunar disk, a Falcon 9 rocket's first stage successfully returning to Cape Canaveral's landing zone 1. About 9 minutes earlier, the same SpaceX Falcon 9 rocket had launched the SAOCOM 1B satellite toward polar orbit. The fourth launch for this reusable Falcon 9 first stage, it was the first launch to a polar orbit from Cape Canaveral since 1969.","hdurl":"https://apod.nasa.gov/apod/image/2009/Falcon9MoonKatieDarby.jpg","media_type":"image","service_version":"v1","title":"A Falcon 9 Moon","url":"https://apod.nasa.gov/apod/image/2009/Falcon9MoonKatieDarby1200.jpg"}

So if I wanted to get just the info for the 'explanation' key, I would do this:
Code: QB64: [Select]
  1. PRINT GetKey("explanation", JSON$)
You can use a site like https://jsoneditoronline.org/ to create a JSON file or any text editor, really, so long as you make it correctly.

When you get further along I'd be happy to help you with organizing it all in there when I have time (provided you would even want to go with my idea).
« Last Edit: September 15, 2020, 12:06:17 am by SpriggsySpriggs »
Shuwatch!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #9 on: September 15, 2020, 12:14:31 am »
That would be cool, but I alas have no idea how to do that.

Here is an idea:
Code: QB64: [Select]
  1. _TITLE "Read Room numbers" 'b+ 2020-09-14
  2.  
  3.     INPUT "Please enter a room number to get (0 to quit) ", rm
  4.     IF rm = 0 THEN END
  5.     PRINT roomText$(rm)
  6.     PRINT
  7.  
  8. FUNCTION roomText$ (roomNumber)
  9.     match$ = "r" + _TRIM$(STR$(roomNumber)) + ":"
  10.     OPEN "The Phantom Temple.bas" FOR INPUT AS #1
  11.     WHILE NOT EOF(1)
  12.         LINE INPUT #1, fline$
  13.         IF _TRIM$(fline$) = match$ THEN
  14.             WHILE NOT EOF(1)
  15.                 LINE INPUT #1, fline$
  16.                 IF _TRIM$(fline$) <> "RETURN" THEN
  17.                     text$ = text$ + MID$(fline$, 7) + CHR$(10)
  18.                 ELSE
  19.                     roomText$ = text$
  20.                     CLOSE #1
  21.                     EXIT FUNCTION
  22.                 END IF
  23.             WEND
  24.         END IF
  25.     WEND
  26.     CLOSE #1
  27.     roomText$ = "Sorry, " + _TRIM$(STR$(roomNumber)) + " was locked."
  28.  
  29.  

Read Room Numbers.PNG
* Read Room Numbers.PNG (Filesize: 40.98 KB, Dimensions: 1187x560, Views: 88)

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #10 on: September 15, 2020, 12:37:36 am »
Here is a way to not use GOSUB, by using SELECT CASE you skip all the GOSUB / RETURN and the SUB code is much more readable.

Code: QB64: [Select]
  1. _TITLE "Select Case demo" 'b+ 2020-09-15
  2.     INPUT "Please enter a room number to get (0 to quit) ", rm
  3.     IF rm = 0 THEN END
  4.     roomWhat rm
  5.     PRINT
  6.  
  7.  
  8. SUB roomWhat (roomNumber)
  9.  
  10.     SELECT CASE roomNumber
  11.         CASE 1
  12.             PRINT "You are standing before the stone entrance to what could very well be"
  13.             PRINT "your own tomb."
  14.  
  15.  
  16.         CASE 2
  17.             PRINT "You make your way through a vast stone area. A large stone carved figure"
  18.             PRINT "of a forgotten God stands before you. As if it greets you."
  19.  
  20.  
  21.         CASE 3
  22.             PRINT "The faint smell of Lavender is carried on the gentle breeze who's origin"
  23.             PRINT "is unknown."
  24.  
  25.  
  26.         CASE 4
  27.             PRINT "A long stone hall stands before you."
  28.  
  29.  
  30.         CASE 5
  31.             PRINT "You are standing a long hallway. In the distance you can see the gentle flicker"
  32.             PRINT "of a lit torch."
  33.  
  34.  
  35.         CASE 6
  36.             PRINT "The sound of water rushing in the distance draws your curiosity."
  37.  
  38.  
  39.         CASE 7
  40.             PRINT "A faint breeze brushes past you."
  41.  
  42.  
  43.         CASE 8
  44.             PRINT "A feeling of excitement and wonder fills your soul."
  45.  
  46.  
  47.         CASE 9
  48.             PRINT "Your footsteps echo through the hollowed hallways of this forgotten world."
  49.  
  50.  
  51.         CASE 10
  52.             PRINT "Paintings on the stone walls painted in what you hope isn't blood are"
  53.             PRINT "scattered across the area."
  54.  
  55.     END SELECT

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: The Phantom Temple Game
« Reply #11 on: September 15, 2020, 12:41:09 am »
Dang, that's a large SELECT CASE, bplus, considering he has 1105 rooms, it looks like.
Shuwatch!

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: The Phantom Temple Game
« Reply #12 on: September 15, 2020, 12:52:50 am »
Or, you could use _DEFLATE and compress the entirety of all 1105 rooms and their descriptions and then store that on disk. I turned your 232 kilobyte source code into only 36 kilobytes using the built in compressor in QB64. Here is the forum link to a program I wrote for zipping and unzipping files:

https://www.qb64.org/forum/index.php?topic=2951.msg122066#msg122066
Shuwatch!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: The Phantom Temple Game
« Reply #13 on: September 15, 2020, 01:03:42 am »
Yeah, all that text is a data management problem, I was just showing how SELECT CASE would be so much easier to use in a less extreme situation like this :)

Sorta the next step up, but of course some people want to take the elevator ;-)

To sink so much time in a project like this, I would use at least an outside text file.


Offline BobSaget9/11

  • Newbie
  • Posts: 5
    • View Profile
Re: The Phantom Temple Game
« Reply #14 on: September 15, 2020, 09:49:52 pm »
Got her working, thank you everybody :)
« Last Edit: September 15, 2020, 10:01:56 pm by BobSaget9/11 »