home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / anhalter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  745b  |  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.