home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 October / 64er_Magazin_94-10_1994_Markt__Technik_de_Side_A.d64 / auto-basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  62 lines
  1. 100 rem autostart-utility
  2. 340 rem initalisieren des programmes:sys51458 ($c902)
  3. 350 rem zeiger ruecksetzen:sys 51550
  4. 360 :
  5. 380 rem menue
  6. 410 printchr$(147);
  7. 420 print:print:print:print
  8. 430 print "<1> programm in arbeitsspeicher laden":print
  9. 440 print "<2> programm auf diskette speichern":print
  10. 450 print "ihre wahl:";
  11. 460 get wahl:if wahl=0 then 460
  12. 470 if wahl<1 or wahl >2 then 460
  13. 480 print wahl
  14. 490 on wahl gosub 560,700
  15. 500 sys51458:new
  16. 510 :
  17. 530 rem in arbeitsspeicher einlesen
  18. 550 :
  19. 560 restore
  20. 570 summe=0
  21. 580 for i=51456 to 51578
  22. 590 read x
  23. 600 s=s+x
  24. 610 summe=summe+x
  25. 620 poke i,x
  26. 630 next i
  27. 640 if summe<>12924 then print"fehler in datas !"
  28. 650 return
  29. 660 :
  30. 670 rem speichern auf diskette
  31. 690 :
  32. 700 restore
  33. 710 summe=0
  34. 720 open 1,8,1,"@:as"
  35. 730 print#1,chr$(00);:rem lowbyte startadresse
  36. 740 print#1,chr$(201);:rem highbyte startadresse
  37. 750 for i=51456 to 51578
  38. 760 read x
  39. 770 summe=summe+x
  40. 780 print#1,chr$(x);
  41. 790 next i
  42. 800 close 1
  43. 810 if summe<>12924 then print "fehler in datas !"
  44. 820 return
  45. 830 :
  46. 850 data228,167,120,173,8,3,201,41
  47. 860 data208,7,173,9,3,201,201,240
  48. 870 data22,173,8,3,141,0,201,173
  49. 880 data9,3,141,1,201,169,41,141
  50. 890 data8,3,169,201,141,9,3,88
  51. 900 data96,32,115,0,201,33,240,11
  52. 910 data166,122,208,2,198,123,198,122
  53. 920 data108,0,201,32,115,0,32,87
  54. 930 data226,160,2,169,2,162,8,32
  55. 940 data186,255,169,0,32,213,255,144
  56. 950 data3,76,249,224,134,45,132,46
  57. 960 data32,89,166,76,174,167,173,8
  58. 970 data3,201,41,208,21,173,9,3
  59. 980 data201,201,208,14,120,173,0,201
  60. 990 data141,8,3,173,1,201,141,9
  61. 1000 data3,88,96
  62.