home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / future-game (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  76 lines
  1. 1 print"[147]":poke53281,0:poke53280,0:print:print:print"             zukunftsspiel":print"             [195][195][195][195][195][195][195][195][195][195][195][195][195]":print:print"             >by mr.joker<":print:print"             du erfaehrst":print:print"             wie es dir in":print:print"             deiner zukunft":print:print"             ergeht!"
  2. 2 getx$:ifx$=""then2
  3. 3 print"[147]":print"6 namen (jungen o. maedchen)":input" ";qw$:input" ";we$:input" ";er$:input" ";rt$:input" ";ty$:input" ";yu$:print"6 zahlen (30-110)":input" ";ui$:input" ";io$:input" ";op$:input" ";as$:input" ";sd$:input" ";df$:print"6 zahlen (0-10)":input" ";fg$:input" ";gh$:input" ";hj$:input" ";jk$:input" ";kl$:input" ";zx$
  4. 4 print"6 berufe":input" ";xc$:input" ";cv$:input" ";vb$:input" ";bn$:input" ";nm$:input" ";mn$:print"6 autos":input" ";nb$:input" ";bv$:input" ";vc$:input" ";cx$:input" ";xz$:input" ";lk$:print"6 haustiere":input" ";kj$:input" ";jh$:input" ";hg$:input" ";gf$:input" ";fd$:input" ";ds$:print"6 staedte":input" ";sa$:input" ";po$:input" ";oi$
  5. 5 input" ";iu$:input" ";uy$:input" ";yt$:print"6 wohnugen":input" ";tr$:input" ";re$:input" ";ew$:input"[160]";wq$:input" ";qe$:input" ";wr$
  6. 6 qa=int(6*rnd(1))+1:qs=int(6*rnd(1))+1:qd=int(6*rnd(1))+1:qf=int(6*rnd(1))+1:qg=int(6*rnd(1))+1:qh=int(6*rnd(1))+1:qj=int(6*rnd(1))+1:qk=int(6*rnd(1))+1:goto54
  7. 7 printqw$:goto55
  8. 8 printwe$:goto55
  9. 9 printer$:goto55
  10. 10 printrt$:goto55
  11. 11 printty$:goto55
  12. 12 printyu$:goto55
  13. 13 printui$:goto56
  14. 14 printio$:goto56
  15. 15 printop$:goto56
  16. 16 printas$:goto56
  17. 17 printsd$:goto56
  18. 18 printdf$:goto56
  19. 19 printfg$:goto57
  20. 20 printgh$:goto57
  21. 21 printhj$:goto57
  22. 22 printjk$:goto57
  23. 23 printkl$:goto57
  24. 24 printzx$:goto57
  25. 25 printxc$:goto58
  26. 26 printcv$:goto58
  27. 27 printvb$:goto58
  28. 28 printbn$:goto58
  29. 29 printnm$:goto58
  30. 30 printmn$:goto58
  31. 31 printnb$:goto59
  32. 32 printbv$:goto59
  33. 33 printvc$:goto59
  34. 34 printcx$:goto59
  35. 35 printxz$:goto59
  36. 36 printlk$:goto59
  37. 37 printkj$:goto60
  38. 38 printjh$:goto60
  39. 39 printhg$:goto60
  40. 40 printgf$:goto60
  41. 41 printfd$:goto60
  42. 42 printds$:goto60
  43. 43 printsa$:goto61
  44. 44 printpo$:goto61
  45. 45 printoi$:goto61
  46. 46 printiu$:goto61
  47. 47 printuy$:goto61
  48. 48 printyt$:goto61
  49. 49 printtr$:goto62
  50. 50 printre$:goto62
  51. 51 printew$:goto62
  52. 52 printwq$:goto62
  53. 53 printqe$:goto62:printwr$:goto62
  54. 54 print"ehepartner":onqagoto7,8,9,10,11,12
  55. 55 print"alter er":onqsgoto13,14,15,16,17,18
  56. 56 print"kinder":onqdgoto19,20,21,22,23,24
  57. 57 print"beruf    ":onqfgoto25,26,27,28,29,30
  58. 58 print"auto":onqggoto31,32,33,34,35,36
  59. 59 print"haustier ":onqhgoto37,38,39,40,41,42
  60. 60 print"wohnort":onqjgoto43,44,45,46,47,48
  61. 61 print"wohnart":onqkgoto49,50,51,52,53
  62. 62 qs=qs+3:print"alter sie ":print"84":print"beruf sie":onqfgoto63,64,65,66,67,68
  63. 63 print"sekritaerin":goto69
  64. 64 print"arzthelferin":goto69
  65. 65 print"stewardess":goto69
  66. 66 print"hausfrau":goto69
  67. 67 print"verkaeuferin":goto69
  68. 68 print"hausfrau":goto69
  69. 69 print"nochmal (j/n)?"
  70. 70 geta$:ifa$=""then70
  71. 71 ifa$="n"thennew
  72. 72 print"gleiche zusammenstellung?"
  73. 73 getq$:ifq$=""then73
  74. 74 ifq$="n"thenrun
  75. 75 goto6
  76.