home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / rolling (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.6 KB  |  43 lines
  1. 1 ifa=0thena=1:load"roll.obj",8,1
  2. 2 ifa=1thena=2:load"zs",8,1
  3. 3 poke53272,peek(53272)or12
  4. 5 poke53281,0:poke53280,0:print""
  5. 10 gosub1000
  6. 40 for i=1to100000
  7. 50 sys 50550,h,2,9,1,10
  8. 60 sys 50550,t,17,24,1,10
  9. 62 sys 50550,t,19,24,11,10
  10. 63 sys 50550,h,19,24,20,5
  11. 65 sys 50550,l,12,14,5,30
  12. 80 sys 50550,r,16,24,29,10
  13. 90 sys 50550,l,1,8,16,24
  14. 100 a=a+1:ifa/2=int(a/2)thenprint"[145]"tab(15)"attention"
  15. 110 ifa/3=int(a/3)thenprint"[145]"tab(15)"attention"
  16. 999 next
  17. 1000 print"[147]"chr$(142)chr$(8)
  18. 1001 print"    [206][205]                      "
  19. 1010 print"   [206]  [205]            [169][146][180]      "
  20. 1020 print"  [206]    [205]          [169] [146][180]      "
  21. 1025 print" [206]      [205]        [169]  [146][204][175][175][175][175][175][175]"
  22. 1026 print" [205]      [206]        [223]  [146][207][183][183][183][183][183][183]"
  23. 1030 print"  [205]    [206]          [223] [146][180]      "
  24. 1040 print"   [205]  [206]            [223][180]      "
  25. 1050 print"    [205][206]                      "
  26. 1060 print
  27. 1070 print"                                       "
  28. 1090 print"    .... 6 4 er   sonderheft 69.. "
  29. 1100 print"                                       "
  30. 1170 print
  31. 1180 print
  32. 2000 print"[162][162][162][162][162][162][162][162][162][187]                  [209][209]         "
  33. 2005 print"[155][185][185][185][185][185][185][185][185][185][161]                   [209][209]        "
  34. 2010 print"[152][185][185][185][185][185][185][185][185][185][161]                    [209][209]       "
  35. 2015 print"[156][185][185][185][185][185][185][185][185][185][161]                     [209][209]      "
  36. 2020 print"[155][185][185][185][185][185][185][185][185][185][161]    basic kurs        [209][209]     "
  37. 2025 print"[152][185][185][185][185][185][185][185][185][185][161]                       [209][209]    "
  38. 2030 print"[158][185][185][185][185][185][185][185][185][185][161]                        [209][209]   "
  39. 2035 print"         [161]                         [209][209]  "
  40. 2040 print"         [161]                          [209][209] "
  41. 3000 print""
  42. 10000 return
  43.