home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / sumario (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.4 KB  |  86 lines
  1. 10 poke 53280,1:poke53281,1
  2. 20 a=a+1:ifa=1thenload"sumario cm",8,1
  3. 30 poke56,50:clr
  4. 40 v=53248
  5. 50 print"[147]";
  6. 60 pokev+21,0
  7. 100 print"                                   "
  8. 110 print"      grupo de trabajo software sa [144][146][161]"
  9. 120 print"                                   [144][146][161]"
  10. 130 print"      [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  11. 140 print"  [156]                                    "
  12. 145 print"  [156] suscribase por telefono: 2666601-2 [144][146][161]"
  13. 150 print"  [156]                                    [144][146][161]"
  14. 155 print"   [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  15. 200 print"                                   "
  16. 210 print"      dirigir la correspondencia a:[144][146][161]"
  17. 220 print"      grupo de trabajo software sa [144][146][161]"
  18. 230 print"      c/ bailen n-20 1      madrid [144][146][161]"
  19. 250 print"                                   [144][146][161]"
  20. 260 print"      [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  21. 262 getg$:ifg$=""then262
  22. 266 print"[147]";
  23. 270 print"                                       "
  24. 274 print"  este podria ser uno de tus programas [144][146][161]";
  25. 276 print"  animate y mandanos tus mejores pro-  [144][146][161]";
  26. 278 print"  gramas. podras ganar hasta 5000 pts. [144][146][161]";
  27. 280 print"                                       [144][146][161]";
  28. 282 print"  [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  29. 300 pokev+41,15:pokev+42,15
  30. 310 pokev+39,6:pokev+40,2
  31. 320 fort=0to3
  32. 330 pokev+1+2*t,182:next
  33. 340 pokev+2,0:pokev+4,0:pokev+6,0
  34. 350 pokev+21,15
  35. 360 poke2040,200:poke2041,201
  36. 370 poke2042,202:poke2043,203
  37. 400 fort=0to140:pokev,t:next
  38. 410 fort=0to140:pokev+2,t:next
  39. 420 fort=0to170:pokev+4,t:next
  40. 430 fort=0to185:pokev+6,t:next
  41. 440 c=0
  42. 450 fort=0to3:pokev+39+t,c
  43. 460 for l=0 to 100: next
  44. 465 next
  45. 470 c=c+1:ifc>255thenc=0
  46. 480 getg$:ifg$=""then450
  47. 490 pokev+21,0
  48. 500 poke53280,0:poke53281,0:poke646,14
  49. 520 print"[147]
  50. 560 [153]"          orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^"
  51. 570 [153]"          peek   sumario             peek"
  52. 580 [153]"          peek   sprite simetrico    peek"
  53. 590 [153]"          peek   fronton             peek"
  54. 600 [153]"          peek   pintar              peek"
  55. 610 [153]"          peek   directorio          peek"
  56. 620 [153]"          /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
  57. 700 [153]"          orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^"
  58. 710 [153]"          peek   renumerador         peek"
  59. 720 [153]"          peek   nave                peek"
  60. 730 [153]"          peek   test teclado        peek"
  61. 740 [153]"          peek   pregunton           peek"
  62. 750 [153]"          peek   laberinto           peek"
  63. 760 [153]"          /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
  64. 800 [151]198,0
  65. 900 [135]a:[139]a[178][171]1[167]2000
  66. 940 [151]a[170]1064,2[170](a[179]500)
  67. 950 [129]t[178]0[164]001:[130]
  68. 990 [137]900
  69. 1000 [131] 83,123,124,163,165,203,204,205,206,243,247,283,288
  70. 1100 [131] 563,564,603,605,643,645,683,684,685,686,723,727
  71. 1110 [131] 763,764,765,766,-1
  72. 2000 c[178]c[170]1:[141]3000
  73. 2100 [137]2000
  74. 3000 [129]i[178]0[164]5
  75. 3020 [129]t[178]0[164]5
  76. 3050 [151]55419[170]t[170]40[172]i,c
  77. 3100 [130]
  78. 3110 [130]
  79. 3200 [129]i[178]0[164]5
  80. 3220 [129]t[178]0[164]5
  81. 3250 [151]55899[170]t[170]40[172]i,c
  82. 3300 [130]
  83. 3310 [130]
  84. 3400 [142]
  85. 5000 [128]
  86.