home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / pause (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  745 b   |  25 lines
  1. 0 rem *****************************
  2. 1 rem **   +++ anhalter +++      **
  3. 2 rem **-------------------------**
  4. 3 rem ** written by georg kramer **
  5. 4 rem **    auf dem moore 15     **
  6. 5 rem **     4783 anroechte      **
  7. 6 rem **    tel.: 02947/3511     **
  8. 7 rem **     (c) 07.06.1985      **
  9. 8 rem *****************************
  10. 9 :
  11. 10 print"[147]   ++ anhalter ++":print
  12. 15 input" startadresse :[146] 49152[157][157][157][157][157][157][157]";s
  13. 20 ifs<0ors>65535then10
  14. 30 fori=0to33:reada:x=x+a
  15. 40 pokes+i,a:next
  16. 50 ifx<>4231thenprint"data-fehler !":end
  17. 60 pokes+7,(s+13)/256
  18. 70 pokes+2,(s+13)-peek(s+7)*256
  19. 80 sys(s)
  20. 90 print:print" programm anhalten => f1"
  21. 95 end
  22. 100 rem *** maschinenprogramm ***
  23. 101 data120,169,13,141,20,3,169,192,141,21,3,88,96,165,203,201,4,240,3,76
  24. 102 data49,234,32,135,234,165,203,201,64,240,247,76,49,234
  25.