home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #2 / Floppy_Magazine_88-2_1988_Megasystems_Oy_fi_Side_B.d64 / 1988 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  197 lines
  1. 1 rem"[141][147] kalenteri 1988
  2. 2 [143]"gosub (c) floppis & jukka sakki
  3. 3 rem" tama on tehty 8.3.1988 (tj 56)
  4. 4 [143]" (the incredible programmer strikes       again)
  5. 5 rem"
  6. 10 [143]"gosub jos haluat paremman kuvan
  7. 11 rem" vaihda rivi 175 seuraavanlaiseksi
  8. 12 [143]" ifx$="a"thenp$=p$+"" wait"
  9. 13 [143]"gosub mutta!! kaikki pritterit ei
  10. 14 rem" ehka ymmarra em. merkkeja !!!!
  11. 15 [143]" ja mps802kin tekee valilla jotain ihme  tiltteja??gosubgosub
  12. 16 rem"[141][141][141]list 17-[141][145][145][145][145]"(NULL)
  13. 40 open15,4,15:close15:ifstthenprint"[147]laita[146] pritteri[146] paalle[146] !!":goto40
  14. 42 print"(vaikuttaa kuvan korkeuteen)[145][145][145]
  15. 44 [133]"onko printterisi mps802   ecmdcmdcmd";r$
  16. 46 [139]r$[179][177]"e"[175]r$[179][177]"k"[167]44
  17. 48 [159]3,4:[139]r$[178]"e"[167]90
  18. 50 [159]6,4,6:[152]6,[199](23)
  19. 90 [153]"loadevery body tells a story...
  20. 100 t$="                                  "
  21. 130 p$="":reada:ifa=-1then250
  22. 170 p$=p$+left$(t$,a):reada$:forx=1tolen(a$):x$=mid$(a$,x,1)
  23. 175 ifx$="a"thenp$=p$+"[166]"
  24. 176 rem
  25. 177 rem alla toinen versio rivista 175
  26. 178 rem     175 ifx$="a"thenp$=p$+" [146]"
  27. 179 rem
  28. 180 ifx$="b"thenp$=p$+"[191]"
  29. 185 ifx$="d"thenp$=p$+"."
  30. 190 ifx$="e"thenp$=p$+" "
  31. 200 next:print#3,p$:goto130
  32. 250 print#3:print#3:print#3
  33. 251 ifr$="k"thenprint#6,chr$(36)
  34. 252 a$="     m  t  k  t  p  l  s     m  t  k  t  p  l  s     m  t  k  t  p  l  s"
  35. 253 ifr$="k"thenprint#3,chr$(14)"            *  1 9 8 8  *
  36. 254 [139]r$[179][177]"k"[167][152]3,"                                *  1 9 8 8  *"
  37. 255 [152]3:[152]3
  38. 257 [152]3,"          tammikuu                helmikuu               maaliskuu"
  39. 259 [152]3,a$
  40. 260 b$[178]"                 1  2  3     1  2  3  4  5  6  7        1  2  3  4  5  6
  41. 261 print#3,b$
  42. 262 b$="     4  5  6  7  8  9 10     8  9 10 11 12 13 14     7  8  9 10 11 12 13
  43. 263 [152]3,b$
  44. 264 b$[178]"    11 12 13 14 15 16 17    15 16 17 18 19 20 21    14 15 16 17 18 19 20
  45. 265 print#3,b$
  46. 266 b$="    18 19 20 21 22 23 24    22 23 24 25 26 27 28    21 22 23 24 25 26 27
  47. 267 [152]3,b$
  48. 268 b$[178]"    25 26 27 28 29 30 31    29                      28 29 30 31
  49. 269 print#3,b$
  50. 271 print#3:print#3
  51. 273 print#3,"          huhtikuu                toukokuu               kesakuu"
  52. 274 print#3,a$
  53. 275 b$="                 1  2  3                       1           1  2  3  4  5
  54. 276 [152]3,b$
  55. 277 b$[178]"     4  5  6  7  8  9 10     2  3  4  5  6  7  8     6  7  8  9 10 11 12
  56. 278 print#3,b$
  57. 279 b$="    11 12 13 14 15 16 17     9 10 11 12 13 14 15    13 14 15 16 17 18 19
  58. 280 [152]3,b$
  59. 281 b$[178]"    18 19 20 21 22 23 24    16 17 18 19 20 21 22    20 21 22 23 24 25 26
  60. 282 print#3,b$
  61. 283 b$="    25 26 27 28 29 30       23 24 25 26 27 28 29    27 28 29 30
  62. 284 [152]3,b$:[152]3,"                            30 31":[152]3
  63. 285 [152]3,"          heinakuu                 elokuu                syyskuu"
  64. 286 [152]3,a$
  65. 287 b$[178]"                 1  2  3     1  2  3  4  5  6  7              1  2  3  4
  66. 288 print#3,b$
  67. 289 b$="     4  5  6  7  8  9 10     8  9 10 11 12 13 14     5  6  7  8  9 10 11
  68. 290 [152]3,b$
  69. 291 b$[178]"    11 12 13 14 15 16 17    15 16 17 18 19 20 21    12 13 14 15 16 17 18
  70. 292 print#3,b$
  71. 293 b$="    18 19 20 21 22 23 24    22 23 24 25 26 27 28    19 20 21 22 23 24 25
  72. 294 [152]3,b$
  73. 295 b$[178]"    25 26 27 28 29 30 31    29 30 31                26 27 28 29 30
  74. 296 print#3,b$:print#3
  75. 298 print#3,"          lokakuu                 marraskuu              joulukuu"
  76. 299 goto420
  77. 300 data33,deddd
  78. 301 data29,dbbdbedeeeebd
  79. 302 data24,debbeddbdbabdbddeeebd
  80. 303 data22,dbdbdbddddbaabbdbdbddebd
  81. 305 data20,dbbdbbbdbbbdbaabbdbdbdbddeb
  82. 306 data18,dbdbdbdbbbdbdbdbabbdbdbdbdedeed
  83. 307 data17,ddbdbdbdbdbabbdbaabdbddbdbddeeeed
  84. 308 data16,ddbdbbbdbdbbdbdbbaabbadbdbdbdbddeeed
  85. 309 data15,ddbdbdbdbdbbdedbbbaabddbdbdbdbdbdeeed
  86. 310 data14,dbbdbbdbbbdbdbdbdbabbdbdbdbdbddebddeedd
  87. 311 data14,bbdebdbdbdeddbdbbdbbdbdbddbeebbdbdbddedd
  88. 312 data13,dbdbdbbbdeeebdbbbabdbddedbdbdeebbedbddededd
  89. 313 data13,bddbdbbdeeedbdaabdbddeeededbdbdebddebdedeedd
  90. 314 data12,ddebdbdbdeedbdbabdbdedeededdbddbdebddbbdedeebd
  91. 315 data11,dbdebdbdeeedbdbabdbdedeeeededdbabbdebbebbeeddedd
  92. 316 data11,ddebbdbdbdedbdbabbdeeeeeeeeddbdbabdebbebbdeeedebd
  93. 317 data11,bddbdedbddedbaabbeeeeeeeeeddbaaaadeebbdebbdeeeeeed
  94. 318 data10,dbdbbbdbbbddbdaaabdeeeeeedbbdddeebaedbbdebbdeeeeeeed
  95. 319 data10,bddbbdbaabdbabeeddbbeeebedbbaaadabbeddbddebbdeeeeded
  96. 320 data9,ddebbbaaabdebdbadaaabdeededadaabbdbbebabddbbbdedeeeedd
  97. 321 data9,dedbdbaabeadbdbbdaabdedeededdbddbedbebdbbdebbdddeededd
  98. 322 data9,dedbedbaaaabdeeebebdbedeedddedeeeedbdebdbddebdddeeeedb
  99. 323 data9,dedadbbabaaadeeeeeeeeddeeedddeeeeddbbdbdbdbdbeddeeded
  100. 324 data10,dbaadbdbdaabdeeeeeeddeeeeddbdeededbdbedbbdbeeddeeded
  101. 325 data9,ddbbabdbdbbbabdeededbbbdedbdbddeedbdbbaaddeddbdbedded
  102. 326 data10,bbaababdeebbabdeddbbeeebbddedededdbbbaaabeddbddbdbd
  103. 327 data9,dbbaaadbbdeeebaabdbdddbbbbbbbbddedbbbaaabbedbbbbedd
  104. 328 data9,dddbaaaabbdedeedabdddbbddddbbddededbaaabbebdbbeeded
  105. 329 data9,dedeaaaaabddbdbdbabbdedbbbbdeeedddbaaaabbdbdbeedded
  106. 330 data10,dedebaaaabdedbdbdabdeeebebededddbaabbedbbebdedeedd
  107. 331 data10,dedeebbaaaabbebbdaaddeeeeeeddedaedddbbbbedbdeeeed
  108. 332 data10,bdeedddbababdbeddaaaadededbddaaaabbbededeebeeeeedd
  109. 333 data10,bdebdbbbbaabdabdaaaaaaaaaaaaaaaabbddddedadbbdeddeebd
  110. 334 data7,dededdebbbbbaabbdbbaaaaaaaaaaaaaaaadebdbdbaaaddeebeebeebd
  111. 335 data8,bbdddedeebbdedbbbdaaaabaaaaaaaaaaadebaaaaaabdedededeeeed
  112. 336 data9,bdbddededdbbdbedaaddbabaaaaaaaaadedbaaabbbdbdebddeedeed
  113. 337 data7,dedbdbbeddebbbdbdbddbbdbbababaaaaaadbdaadbdddbbedbedddedebdd
  114. 338 data6,bddbbbbbedddbbbdaaaaabbedbdbddbddbaaabdbbbbedbeeeedeeeeddeeded
  115. 339 data6,bbbdbbedbbeeeeeddebaaaabdbddeddbededbabdbedddbdbdeeddeeeeddedd
  116. 340 data9,dbddbbbbdeededededaaaabdbbeeeddeddddbbddaabdbdedeedddeeededd
  117. 341 data6,ddededbbdbddddddbbbaabdbbeeeededdddddededdedbaabdbbeedddeeddedd
  118. 342 data7,ddbdbbdaedeeeedededdedbdeddddedddbddedededdbdbbdeeebddeeededd
  119. 343 data8,dbdbbabdeeeeeededdeddbddddededddddeddededdbbdeddedabdeddbed
  120. 348 data6,dbbbdbeadeeeeeeededdeddbddedeededdedddddedbdedbddedbadbdbbdd
  121. 349 data6,dedbbbabdeeeeeeedededdedbdedeeeeddeddeededddedbdbdbabeedeeddd
  122. 350 data6,debbdbabddeeeeededededdddbdededeeeddddeddeeedbdddbdbdbdebbdbb
  123. 351 data7,bdbbbbabdeeeeeeededdeddddbdedeeeeeddededdeeddbeedbdbddbddeeeeb
  124. 352 data13,bdedeeeeededdeddedbddddedeedeeddddedddeeedeedbdbdbddeeeebd
  125. 353 data13,bdeeeeeedeedededdedbddddedededdddddddeeeeeeedbdbdbbdedeeeed
  126. 354 data13,bdedeeeeedededededdedbbddbeededdbddedeeeeeeeebbdbdbddedeeeed
  127. 355 data13,bddedeeeedededeededdeddbdbeeddeddedbdeddeeeeebbbbdbbdbdedeeed
  128. 356 data13,bbddedeededededdeddedddbbbeddeddeededbdedeeeeeababbbbbddedeeebd
  129. 357 data13,bbbdedeededdeddedddedbdbbeeddedeededdeddedeeeeeaababbbbbddeeebba
  130. 359 data15,bddedeeededdeddbddeddabdddededeededdedddedeeeeaaabababbbdedbbb
  131. 360 data15,bbddededededdeddbddbdbabdbdedeededdededbdedeeeeaaaaababbdbddbb
  132. 361 data16,bbddeeedededdeddbddbdaabdedeeeeeedededdddedeeebaaaaaaababbddb
  133. 362 data16,bbdedeededdeddeddbdbdbaabdeeeedededdedddddedeeeaaaaaaaababbdb
  134. 363 data17,bddedeedededdedbdbdbdaabdeeeeeedededdedddedeeeaaaaaaaaaaabb
  135. 364 data18,bddeedeedededdeddbddaabdeeeeedededdeddedddedebaaaaaaaaabb
  136. 365 data18,bddeeedededdeddbdbdbaaddeeedeededdedebbbbbdeeaaabbbbb
  137. 366 data19,bdededeededdeddbbdbdaabdeeeeedededdedbbbbbbdeaaa
  138. 367 data20,bddeedeededdedbdbdbdabdeeeededededddbbadabdeaaa
  139. 368 data21,bdedeedeededdeddbdbdabdeeeeedededdddbbabbbdaab
  140. 369 data22,bdedeededededdedbddaabdeededededdddbbbbbeaadb
  141. 370 data23,bddedededdedddedbddaabdedededdedbdeddbdaabd
  142. 371 data23,bbddededeeddeddbdbdbaaabdbdddbdbdbdbdaaabd
  143. 372 data24,abdedeeddedddedbdbdaaaaabddbdbddbabbdbdd
  144. 373 data24,aaddeedededdeddbdbdbaaaaaaaaaaaaabbdbbd
  145. 374 data24,baabdeedededdeddbdbdbaaaaaaaaaaaabddbd
  146. 375 data25,aaabedeedededdedddbdaaaaaaaaaabbdbddd
  147. 376 data25,aaaabdedeeddedddedbbdaaaaaaaaaabbbdd
  148. 377 data25,aaabdbdeedeeddedddedbbaaaaaababbdbdd
  149. 378 data25,aabddbddeedeededdeddbdaaaaababbdbded
  150. 379 data24,aabdeddbddeedeededdeddbeaaaaababddded
  151. 380 data23,aabdedeedbddedeedeededddeeaaaaabbddded
  152. 381 data21,dabdedeeeeeebddedeededdedbddeaaaaabbddeed
  153. 382 data20,abdededeeeeeeebbdeddeddededbddedaaabbedded
  154. 383 data18,dbddedeedeeeeeeeebddedbdddddedbbddeaaabdd
  155. 384 data17,dddededeedeeeeededebdbdeddbdededbbddeaabddeed
  156. 385 data16,ddeddedeedeeeedededddbdddededdededbbbddeabddeed
  157. 386 data15,bddeddeedeedeeddeddbbbddddedbdededdbbaddeaddeed
  158. 387 data13,dededdededeeedededdeddbbbadeddbdedededbbddebdd
  159. 388 data12,deddeddeddededeededddeddbbaaddeddededeeddbbdebddeed
  160. 389 data11,ddeddedddededeeddeddddedbdbbaadededdededdbdbbdebdeed
  161. 390 data10,dedededdedeeedededdeddbddbdbbaaadededeeddedbdbbdebded
  162. 391 data9,ddededeedeeedededdedddeddbdbbabaaadedeedededdbdbbdeded
  163. 392 data8,dbeddeedeedeeedededddedbddedbabaaaaadedeededdedbbabded
  164. 393 data7,dbbdeedeeeeedededdeddbdedbbdbaaaaaaaaadeedeeddeddbabdeded
  165. 394 data7,abbddeeeeedeedeedddbddbdbbabaaaaaaaaaadeedeededdbbabded
  166. 395 data6,baabddedeeeeeeededdedbdbdbbabaaaaaaaaaaaadedeeeddedbbabdedd
  167. 396 data6,aabddeddedeeeededdedbdbdbbaabaaaaaaaaaaaaadeedeededdbbabdedd
  168. 397 data5,baabddededeeedeededdedbbdbabaaaaaaaaaaaaaaaaddeededdedbbabdedd
  169. 398 data5,aabdbddedeedeedeedddedbbdbbabaaaaaaaaaaaaaaaaadedededdbbabded
  170. 399 data5,aabdeddededeedeededdedbddbbaaaaaaaaaaaaaaaaaaaadeedededbbbabdeded
  171. 400 data5,aabddededeedeeededdeddbdbbabaaaaaaaaaaaaaaaaadeebddededdbbbaabeded
  172. 401 data5,aabbddededeeedeeddedbddbbbbaaaaaaaaaaaaaaaadedeeeeddededdbbaaabedeed
  173. 402 data5,aabbdddedededeededddeddbdbbbaaaaaaaaaaaaaadedeedeeededdedbdbaaadedeeed
  174. 403 data5,aabbdbddededeedeeddeddddddbddaaaaaaaaaaadddededededebdddedbdbaaabdd
  175. 404 data5,aababbddedeedeeedeededddddbbdbaaaaaaaaabddedeedeededeedbddbbbaaaaaddab
  176. 405 data5,aabdbdbddeedeedeeededdddddbdbdbaaaaaaabdbddedeedeedeedebdddbdbaaaabdd
  177. 406 data6,aabbdbdedededeedeededddbdbbdbbdaaaaabbdbdbddedeededdedebddeddbaaaabbdbd
  178. 407 data6,aaabbdbddedeedeededdedbddbdbdeebaaaabbdbbdbddededeededdebbdddbbaabaaaabb
  179. 408 data6,aaabbdbdddedeedeededddbdbdddedeeeaaababbdbddedeedeeddededebdbbbdddbbdbb
  180. 409 data7,aaabbdbddededededdedddbddddeeeeeeaaababbdbddedeededddeddedbbdbddbdbddb
  181. 410 data8,aaabbdbddededeeeeddbdbbddedeeeeebaaaababbdbddedededdeddeedbbbbbdddddd
  182. 411 data8,aaababbddeddedededdedbdbddedeeeebaaaaababbdbdddedededdeddedbbdeddedaa
  183. 412 data7,aaaaababbddedededeeddeddbddededeebbaaaaaababbdbdddeddeddedddedbdbbaaaa
  184. 414 data-1
  185. 420 print#3,a$
  186. 421 b$="                    1  2        1  2  3  4  5  6              1  2  3  4
  187. 422 [152]3,b$
  188. 423 b$[178]"     3  4  5  6  7  8  9     7  8  9 10 11 12 13     5  6  7  8  9 10 11
  189. 424 print#3,b$
  190. 425 b$="    10 11 12 13 14 15 16    14 15 16 17 18 19 20    12 13 14 15 16 17 18
  191. 426 [152]3,b$
  192. 427 b$[178]"    17 18 19 20 21 22 23    21 22 23 24 25 26 27    19 20 21 22 23 24 25
  193. 428 print#3,b$
  194. 429 b$="    24 25 26 27 28 29 30    28 29 30                26 27 28 29 30 31
  195. 430 [152]3,b$
  196. 431 b$[178]"    31":[152]3,b$:[152]3:[152]3:[160]3:[160]6
  197.