home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side3.d64 / b.odyssey (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  7KB  |  149 lines
  1. 0 :ford=1to100*x:next:ifx>0then return:   :::::::::::::::::::::::::::::::::::::
  2. 2 rem"[141][145][154]  :::::::::::::::::::::::::::::::::::::
  3. 4 [143]"gosuboncont  :::::                           :::::
  4. 6 rem"[141][145][154]  :::::    [150][195]ommodore[160] [203]eyboard    [154]:::::
  5. 8 [143]"gosuboncont  :::::          deflenartoons         cont:::::
  6. 10 rem"[141][145][154]  :::::                           :::::
  7. 12 [143]"gosuboncont  :::::     def(NULL)ovingly made by...   cont:::::
  8. 14 rem"[141][145][154]  :::::         [202]im [199]reen         [154]:::::
  9. 16 [143]"gosuboncont  :::::                           :::::
  10. 18 rem"[141][145][154]  :::::::::::::::::::::::::::::::::::::
  11. 20 [143]"gosuboncont  :::::::::::::::::::::::::::::::::::::list
  12. 22 clr:z=700:fort=zto726:reada:poket,a:next
  13. 24 data 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  14. 26 data 240,255,32,253,174,76,164,170,0
  15. 28 poke53265,11
  16. 29 dv=peek(186):ifdv<8thendv=8
  17. 30 poke53280,9:poke53281,9:print"[147][158][176][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][174]";
  18. 32 fort=1to11:print"[221][159][169][223][169][223][169][158][221]                          [221][159][223][169][223][169][223][158][221]";
  19. 34 print"[221][159][223][169][223][169][223][158][221]                          [221][159][169][223][169][223][169][158][221]";:next
  20. 36 print"[221][159][169][223][169][223][169][158][221]                          [221][159][223][169][223][169][223][158][221]";
  21. 38 print"[158][173][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][189][157][148][192]"
  22. 40 fori=217to242:pokei,peek(i)or128:next
  23. 42 print"[150] [198]olks [201] want you to meet
  24. 44 [153]"     len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)valclose(NULL)val(NULL)val.
  25. 46 print" [200]e's sorta neat
  26. 48 [153]"    and very, very sweet!
  27. 50 print" [194]oy! [193]re you in[157][157][157]for a treat!
  28. 52 [153]" (NULL)o wipe off your feet...
  29. 54 print" [195]ome in and take a seat.
  30. 56 [153]" (NULL)urn on the jukeboxcmdcmdcmdcmdcmdcmdcmdcmdcmdand listen to
  31. 58 print"[159] an [207]ldie but [199]oodie.
  32. 60 [153]" def(NULL)ete will be ready soon!":[151]53265,27
  33. 61 ti$[178]"000000"
  34. 62 [158]57812"-smoke.ml",dv,0:[151]780,0:[151]781,168:[151]782,117:[158]65493
  35. 63 [158]57812"-dungeon",dv,0:[151]780,0:[151]781,0:[151]782,48:[158]65493
  36. 65 [139]ti$[179]"000004"[167]65
  37. 66 [153]"":[129]t[178]1[164]21:[153]"                          ":[130]
  38. 68 [153]"def  sysortantantantantantantantantantantantantantantantantantantantan^
  39. 70 print"  [221]                    [221]
  40. 72 [153]"  (NULL)  def(NULL)hat's the worst  sys(NULL)
  41. 74 print"  [221]                    [221]
  42. 76 [153]"  (NULL) defpoem right$ ever heard! sys(NULL)
  43. 78 print"  [221]                    [221]
  44. 80 [153]"  (NULL)      (NULL)igned (NULL)val(NULL)val   sys(NULL)
  45. 82 print"  [221]                    [221]
  46. 84 [153]"  /tantantantantantantantantantantantantantantantantantantantanexpcont":x[178]20:[141]:[158]30120
  47. 86 [151]53265,11:[151]53280,0:[151]53281,0:[153]"loadreturn";
  48. 88 [153]"sys          toandposnewfreusrtab( tab(usrusrtab( tab(usrfrewaitnewposandto
  49. 90 print"        [169] [201][160][201][160][201][160][201][160][201][160][160][213][160][213][160][213][160][213][160][213] [223]
  50. 92 [153]"       then right$ right$ right$ right$ right$ right$(NULL)close(NULL) (NULL) (NULL) (NULL) (NULL) waitfn"
  51. 94 [153]"       abs(NULL)print(NULL)open(NULL)cont(NULL)clr(NULL)def(NULL)for(NULL)(NULL)verify(NULL)(NULL)clr-(NULL)(NULL)clr-(NULL)verify(NULL)(NULL)for(NULL)def(NULL)clr(NULL)cont(NULL)open(NULL)print(NULL)(NULL)int
  52. 96 print"       [182][214][153][214][159][214][154][214][156][214][150][214][129][214][214][149][214][214][156]-[150][215][215][156]-[214][149][214][214][129][214][150][214][156][214][154][214][159][214][153][214][214][181]
  53. 98 [153]"       systhen right$ right$ right$ right$ right$ mid$(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL) waitfn"
  54. 100 [153]"       abssysright$ right$ right$sqrdefusrusrusrusrusrfrefreusrusrusrusrusrsys(NULL)(NULL) (NULL) (NULL)waitint"
  55. 102 [153]"       then right$closeright$ deffn=str$str$= (NULL)(NULL) =str$str$=thensys (NULL) (NULL) waitfn"
  56. 104 [153]"        sysrnd right$ right$deffnchr$list  defleft$-  -chr$list  defleft$thensys(NULL) (NULL) *wait"
  57. 106 [153]"         (NULL) right$ deffnchr$list cosdefleft$ -- chr$list cosdefleft$thensys (NULL) waitstep
  58. 108 print"         [160][223]  [150][165][173][198][198][177][201]--[213][177][198][198][189][167][158]  [146][169]
  59. 110 [153]"            (NULL)deffn-  -(NULL)  (NULL)-  -thenwaitsysstep
  60. 112 print"            [167][150] - - [221]  [221] - - [146][158][165]"
  61. 114 print"            [161][150]  - [213][203][160][160][202][201] -  [146][158][161]"
  62. 116 print"             [150] -  [202][198][210][210][198][203]  - "
  63. 118 print"            [169]-  - [146][169][163][163][223] -  -[223]
  64. 120 [153]"           cos  - toandposposposposandto -  log"
  65. 122 [153]"          then  - (NULL)list(NULL)(NULL)(NULL)(NULL)sqrsqrsqrsqrdefstep -  waitfn
  66. 124 print"          [167] - - [223][155][207][207][207][208][208][208][150][169] - - [146][165]
  67. 126 [153]"           rnd - - usrfrewaitnewnewfreusr - - *"
  68. 128 [153]"            tab(usrusrfrenewposandtotoandposnewwaitfreusrusrtab(    ":[151]53265,27
  69. 130 x[178]20:[141]:[141] 284:[141]198
  70. 132 [153]"listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  71. 134 [153]"(NULL)                                     closewait(NULL)";
  72. 136 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  73. 138 [153]"poke                                      waitdef";:x[178]8:[141]
  74. 140 n[178]n[170]1:[145]n[137]142,146,150,154,158,162,166,170,174,178,182,186,190,194
  75. 142 [153]"    boy!! that's some neat music....  ":[141]206:[141]214
  76. 144 [141]198:[137]138
  77. 146 [153]"     howdy! i'm commodore pete...     ":[141]206:[141]226
  78. 148 [141]198:[137]138
  79. 150 [153]"     the suavest guy you'll......     ":[141]206:[141]222
  80. 152 [141]198:[137]138
  81. 154 [153]"       ever be likely to meet!!       ":[141]206:[141]214
  82. 156 [141]198:[137]138
  83. 158 [153]"  but enough about beautiful old me!! ":[141]206:[141]214
  84. 160 [141]198:[137]138
  85. 162 [153]" let me tell you about this wonderful ":[141]206:[141]222
  86. 164 [141]198:[137]138
  87. 166 [153]" odyssey of c-64 delightful goodies!  ":[141]206:[141]214
  88. 168 [141]198:[137]138
  89. 170 [153]"these are commodore keyboard cartoons ":[141]206:[141]214
  90. 172 [141]198:[137]138
  91. 174 [153]"   that are dumb, silly, stupid and   ":[141]206:[141]222
  92. 176 [141]198:[137]138
  93. 178 [153]"  sometimes even a little humorous!!  ":[141]206:[141]214
  94. 180 [141]198:[137]138
  95. 182 [153]"  you can't help chuckling a little!  ":[141]206:[141]222
  96. 184 [141]198:[137]138
  97. 186 [153]"  all these goodies brought to you... ":[141]206:[141]214
  98. 188 [141]198:[137]138
  99. 190 [153]"       by...  who else, but...        ":[141]206:[141]222
  100. 192 [141]198:[137]138
  101. 194 [153]"            my evil twin....          ":[141]206:[141]214
  102. 196 [141]198:[137]212
  103. 198 [158]z,15,19,"deftoandandposposposposandandto
  104. 200 printtab(15)"[223][155][204][204][204][204][186][186][186][186][150][169]
  105. 202 [153][163]16)"tab(usrfrewaitnewnewfreusrtab(
  106. 204 printtab(16)" -    - [146]":ford=1to500:next:return
  107. 206 sysz,16,21,"[150][223][155][207][207][207][208][208][208][150][169]
  108. 208 [153][163]17)"usrfrewaitnewnewfreusr":x[178]10:[141]
  109. 210 x[178]1.2:[151]53272,21:[141]:[151]53272,28:[141]:[142]
  110. 212 x[178].8:[129]tf[178]1[164]10:[151]53272,21:[141]:[151]53272,28:[141]:[130]:[137] 230
  111. 214 [129]t[178]1[164]3:[158]z,15,11,"list  cmdcmdloglist "[166]6)"on  cmdcmdcoslist ":x[178].4:[141]
  112. 216 [158]z,15,11,"*list cmdcmd  "[166]6)"onr