home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / gen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 10 iflo=0thenlo=1:load"basrou1.obj",8,1
  2. 20 iflo=1thenlo=2:load"e1.8.obj",8,1
  3. 30 :
  4. 40 rem *******************************
  5. 50 rem *                             *
  6. 60 rem *   internal rom generator    *
  7. 70 rem *                             *
  8. 80 rem *       by  juergen bohl      *
  9. 90 rem *       and bernhard kroenung *
  10. 100 rem *                             *
  11. 110 rem *******************************
  12. 120 :
  13. 130 poke53280,0:poke53281,0:print"[155]";chr$(14);chr$(8)
  14. 140 f=65280:l=33280
  15. 150 print"[147][198]rei [194]ytes :";right$("       "+str$(f-l),6);tab(18);
  16. 160 print" [221] [208]rogrammanzahl:";an
  17. 170 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  18. 180 ifan=0then270
  19. 190 ifan=15then240
  20. 200 print"weitere programme einladen <j/n>"
  21. 210 poke198,0:wait198,1:geta$
  22. 220 ifa$="j"thenprint"[145]                                        ":goto270
  23. 230 ifa$<>"n"then210
  24. 240 input"name des files";na$:poke32808,an
  25. 250 sys828,na$
  26. 260 end
  27. 270 input"[208]rogrammname";p$
  28. 280 iflen(p$)>16then150
  29. 290 print"        <<< [196]iskette einlegen >>>"
  30. 300 poke198,0:wait198,1:poke198,0
  31. 310 print"[145]                                        [145][145][145]"
  32. 320 sys915,p$,l
  33. 330 ifpeek(2)=0then360
  34. 340 print"[154][211]orry, [208]rogramm zu lang !!![155]":poke198,0:wait198,1:poke198,0
  35. 350 goto150
  36. 360 l1=peek(253)+peek(254)*256+1
  37. 370 open1,8,15:input#1,a,b$,c,d:close1
  38. 380 print"[154]";a;b$;c;d;"[155]";
  39. 390 ifa<>0thenpoke198,0:wait198,1:poke198,0:goto150
  40. 400 input"zieladresse";z$
  41. 410 iflen(z$)>5then400
  42. 420 z=val(z$):ifleft$(z$,1)="$"thengosub560:z=a1
  43. 430 poke33218+an*2,z-int(z/256)*256:poke33219+an*2,z/256
  44. 440 poke33248+an*2,l1-l+z+1-int((l1-l+z+1)/256)*256
  45. 450 poke33249+an*2,(l1-l+z)/256
  46. 460 poke33173+an*2,l-int(l/256)*256:poke33174+an*2,l/256
  47. 470 poke33203+an,(l1-l)/256+(z/256)+4
  48. 480 input"startadresse";a$
  49. 490 sm=0:ifa$="run"thensm=255
  50. 500 iflen(a$)>5thenprint"[145][145][145][145]":goto480
  51. 510 j=val(a$):ifleft$(a$,1)="$"thengosub560:j=a1
  52. 520 poke33128+an,sm
  53. 530 ifsm=0thenpoke33143+an*2,j-int(j/256)*256:poke33144+an*2,j/256
  54. 540 l=l1:an=an+1
  55. 550 goto150
  56. 560 a1=0:fori=3to0step-1
  57. 570 a=val(mid$(z$,5-i,1))
  58. 580 ifasc(mid$(z$,5-i,1))>64thena=asc(mid$(z$,5-i,1))-55
  59. 590 a1=a1+a*16^i
  60. 600 next:return
  61.