home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / rolling-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  40 lines
  1. 1 poke53281,0:poke53280,0:print""
  2. 10 gosub1000
  3. 40 for i=1to100000
  4. 50 sys 50550,h,2,9,1,10
  5. 60 sys 50550,t,17,24,1,10
  6. 62 sys 50550,t,19,24,11,10
  7. 63 sys 50550,h,19,24,20,5
  8. 65 sys 50550,l,12,14,5,30
  9. 80 sys 50550,r,16,24,29,10
  10. 90 sys 50550,l,1,8,16,24
  11. 100 a=a+1:ifa/2=int(a/2)thenprint"[145]"tab(15)"attention"
  12. 110 ifa/3=int(a/3)thenprint"[145]"tab(15)"attention"
  13. 999 next
  14. 1000 print"[147]"
  15. 1001 print"    [206][205]                      "
  16. 1010 print"   [206]  [205]            [169][146][180]      "
  17. 1020 print"  [206]    [205]          [169] [146][180]      "
  18. 1025 print" [206]      [205]        [169]  [146][204][175][175][175][175][175][175]"
  19. 1026 print" [205]      [206]        [223]  [146][207][183][183][183][183][183][183]"
  20. 1030 print"  [205]    [206]          [223] [146][180]      "
  21. 1040 print"   [205]  [206]            [223][180]      "
  22. 1050 print"    [205][206]                      "
  23. 1060 print
  24. 1070 print"                                       "
  25. 1090 print"    ...s y s t e m   r u n n i n g"
  26. 1100 print"                                       "
  27. 1170 print
  28. 1180 print
  29. 2000 print"[162][162][162][162][162][162][162][162][162][187]                  [209][209]         "
  30. 2005 print"[155][185][185][185][185][185][185][185][185][185][161]                   [209][209]        "
  31. 2010 print"[152][185][185][185][185][185][185][185][185][185][161]                    [209][209]       "
  32. 2015 print"[156][185][185][185][185][185][185][185][185][185][161]                     [209][209]      "
  33. 2020 print"[155][185][185][185][185][185][185][185][185][185][161]     poke down        [209][209]     "
  34. 2025 print"[152][185][185][185][185][185][185][185][185][185][161]                       [209][209]    "
  35. 2030 print"[158][185][185][185][185][185][185][185][185][185][161]                        [209][209]   "
  36. 2035 print"         [161]                         [209][209]  "
  37. 2040 print"         [161]                          [209][209] "
  38. 3000 print""
  39. 10000 return
  40.