home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-11_1988_-_de_Side_B.d64 / basic-starter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 10 poke 53280,0:poke 53281,0
  2. 15 :
  3. 20 print chr$(  8)chr$(14)chr$(154)
  4. 30 print chr$(147)chr$(18)"  [194]asicstarter      (c) 1987 [212]. [196]idden  "
  5. 40 print " [196]ieses [208]rogramm stattet ein [205]aschinen-
  6. 50 [153] " programm mit einem peekasic-(NULL)opf aus.
  7. 60 print " [196]anach kann das [205]p wie ein [194]asic-
  8. 70 [153] " (NULL)rogramm geladen und mit <run> auf
  9. 80 print " seinen [211]peicherbereich gelegt werden.
  10. 90 [153] " atnuf (NULL)unsch wird das (NULL)p auch gestartet.
  11. 100 print " [215]enn sich [193]nfangs- und [211]tartadresse
  12. 110 [153] " unterscheiden, kann die (NULL)tartadresse
  13. 120 print " extra angegeben werden.":print
  14. 124 :
  15. 125 for i=1 to 61:read a:p=p+a:next
  16. 126 read a:if a<>p then print"  [198]ehler in datas":end
  17. 127 restore
  18. 128 :
  19. 130 for i=1 to 61:read a:a$=a$+chr$(a):next
  20. 135 :
  21. 140 input " alter [208]rogrammname ";pa$
  22. 150 input " neuer [208]rogrammname ";pn$
  23. 160 input " [193]utostart j/n        j[157][157][157]";j$  : rem 3*cursor links
  24. 165 :
  25. 170 if j$="n" then b$=chr$(96):goto200
  26. 175 :
  27. 180 print chr$(18)" bei unterschiedlicher [193]nfangs-"
  28. 185 print chr$(18)" und [197]insprungadresse          "
  29. 190 input " [197]insprungadresse   ";s$
  30. 195 :
  31. 200 s=val(s$):b$=chr$(76)
  32. 210 if s<=0 or s>65535 then s=2112:b$=chr$(108)
  33. 220 hb=int(s/256):lb=s-hb*256
  34. 230 b$=b$+chr$(lb)+chr$(hb)
  35. 235 :
  36. 240 if pa$="" or pn$="" then end
  37. 250 :
  38. 260 open   1, 8, 1,"zw,p"
  39. 270 print#1,a$;b$
  40. 280 close  1
  41. 290 :
  42. 300 open  15, 8,15
  43. 310 print#15,"c:"+pn$+"=zw,"+pa$
  44. 320 print#15,"s:zw"
  45. 330 close 15
  46. 340 :
  47. 350 end
  48. 360 :
  49. 49999 rem maschinenprogrammkopf                   in data-statements
  50. 50000 data    1,  8, 13,  8,193,  7,158, 40, 50, 48, 54, 52, 41,  0,  0,  0
  51. 50010 data    0,120, 56,165, 45,133, 90,233, 66,133, 88,165, 46,133, 91,233
  52. 50020 data    8,133, 89,169, 66,133, 95,169,  8,133, 96, 24,173, 64,  8,101
  53. 50030 data   88,133, 88,173, 65,  8,101, 89,133, 89, 32,191,163
  54. 50035 :
  55. 50040 data   5292:rem pruefsumme
  56.