home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 4 / Commodore_Disc_04_19xx_-_de.d64 / maserati 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.7 KB  |  65 lines
  1. 10 rem masarati ===============64
  2. 15 rem (p) 12/85 cbm revue team =
  3. 20 rem ==========================
  4. 25 rem (c) 12/85 by             =
  5. 30 rem klaus dillinger          =
  6. 35 rem                          =
  7. 40 rem                          =
  8. 45 rem c-64 + 1530/1541         =
  9. 50 rem ==========================
  10. 60 cl$=chr$(147):wh$=chr$(5):c4$=chr$(17):cy$=chr$(159)
  11. 80 p=54272:v=53248:pokev+32,0:pokev+33,0
  12. 90 printcl$c4$c4$c4$tab(8)wh$"geschwindigkeit (1-9)"
  13. 100 geta$:ifa$=""then100
  14. 105 ifasc(a$)<49orasc(a$)>57then100
  15. 110 printc4$c4$c4$tab(8)"fahrbahnbreite (1-9)"
  16. 120 getb$:ifb$=""then120
  17. 125 ifasc(b$)<49orasc(b$)>57then120
  18. 130 printc4$c4$c4$tab(8)"schwierigkeitsgrad(1-9)"
  19. 140 getc$:ifc$=""then140
  20. 145 ifasc(c$)<49orasc(c$)>57then140
  21. 150 printcl$"wait a moment."
  22. 160 ifs=0thenfort=0to62:reada:poke704+t,a:s=s+a:next:poke2040,11
  23. 161 ifs<>9558thenprint"fehler in sprite-datas":end
  24. 162 ifl=0thenfort=49152to49395:reada:l=l+a:poket,a:next
  25. 163 ifl<>32178thenprint"fehler in maschinenprogramm-datas":end
  26. 170 a=10-val(a$):b=val(b$):c=val(c$):d=6+b:poke181,d:poke182,a
  27. 175 poke183,c:pokev,172:pokev+1,210
  28. 180 printcy$cl$;:fort=1to24:printtab(20-d/2)"[166]"tab(20+d/2)"[166]":next
  29. 190 pokev+21,1:poke185,2:poke186,1:poke187,peek(183):poke188,20-d/2
  30. 195 x=peek(v+31):poke191,10:pokep+24,15:pokep+5,100:pokep+6,100:pokep+4,33
  31. 200 pokev+39,7:poke140,10:sys49205
  32. 201 pokep+4,0:pokep+5,0:pokep+6,0
  33. 205 pokep+8,10:pokep+13,218:pokep+11,129
  34. 206 pokep+24,0:pokep+11,128:fort=1to15:pokep+24,t:next
  35. 207 pokev+21,0:printwh$cl$c4$c4$c4$tab(5)"noch ein versuch(j/n)"
  36. 208 getr$:ifr$<>"j"andr$<>"n"then208
  37. 209 ifr$="j"thengoto90
  38. 1000 rem datas
  39. 1001 data1,129,128,3,255,192,27,219,216,27,219,216,31,195,248,31,255,248,27
  40. 1002 data255,216,27,255,216,3,255,192,3,255,192,7,153,224,119,189,238,119
  41. 1003 data165,238,119,66,238,126,90,126,126,126,126,119,60,238,119,129,238
  42. 1004 data15,255,240,31,227,248,63,193,252
  43. 1005 rem datas fuer maschinenprogramm
  44. 1006 data162,24,160,7,132,140,132,142,160,152,132,139,160,192,132,141,160
  45. 1007 data0,177,139,145,141,200,192,39,208,247,165,139,56,233,40,176,2,198
  46. 1008 data140,133,139,165,141,56,233,40,133,141,176,2,198,142,202,208,220,96
  47. 1009 data32,231,192,32,82,192,32,97,192,198,191,208,243,169,5,133,191,32,0
  48. 1010 data192,32,141,192,173,31,208,240,228,96,160,0,162,0,232,224,40,208,251
  49. 1011 data200,196,182,208,244,96,198,185,240,1,96,169,1,133,185,173,1,220,41
  50. 1012 data4,208,10,206,0,208,208,5,169,0,141,16,208,173,1,220,41,8,208,10,238
  51. 1013 data0,208,208,5,169,1,141,16,208,96,160,39,169,32,153,0,4,136,208,250
  52. 1014 data198,187,208,25,165,186,201,1,208,7,169,255,133,186,76,172,192,169
  53. 1015 data1,133,186,165,162,41,15,101,183,133,187,165,186,201,1,208,2,230,188
  54. 1016 data165,186,201,255,208,2,198,188,165,188,169,4,133,189,160,0,169,102
  55. 1017 data145,188,165,181,168,169,102,145,188,165,188,201,5,48,5,201,23,176
  56. 1018 data1,96,169,1,133,187,96,230,139,165,139,41,7,105,3,141,1,212,96,0
  57. 2000 rem masarati ==============64
  58. 2100 rem 38911 bytes memory    ===
  59. 2200 rem 02789 bytes program   ===
  60. 2300 rem 00126 bytes variables ===
  61. 2400 rem 00000 bytes arrays    ===
  62. 2500 rem 00008 bytes strings   ===
  63. 2600 rem 35988 bytes free (0)  ===
  64. 2700 rem =========================
  65.