home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / bss-generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  42 lines
  1. 100 print"[147]        bss'256k kernal-generator"
  2. 110 print"          by p.engels  feb.1987"
  3. 120 if (peek(65534)=72 and peek(65535=255)) goto 150
  4. 130 print"   kernal kann nicht generiert werden"
  5. 140 end
  6. 150 print"    kernal wird nach $4000 verschoben"
  7. 160 i=49152
  8. 170 reada:ifa<0 goto190
  9. 180 pokei,a:i=i+1:goto170
  10. 190 sys49152:rem kernal kopieren
  11. 200 :
  12. 210 :
  13. 220 m1$="     *** 256k-bank-switch-system ***":rem 36 zeichen
  14. 230 m2$=" >cbm basic v2< ":rem 16 zeichen
  15. 240 :
  16. 250 :
  17. 260 m1=17524:rem beginn meldung 1-1
  18. 270 m2=17562:rem beginn meldung 2-1
  19. 280 :
  20. 290 print"       meldungen werden eingebunden"
  21. 300 for i=1to36:pokem1+i,asc(mid$(m1$,i,1)):next
  22. 310 for i=1to16:pokem2+i,asc(mid$(m2$,i,1)):next
  23. 320 :
  24. 330 print"             farbenwahl:"
  25. 340 print" f1 = rahmen              f3 = schirm"
  26. 350 print" f5 = schrift             f7 = fertig"
  27. 360 geta$:ifa$=""goto360
  28. 370 a=asc(a$)
  29. 380 ifa=133thenpoke53280,(peek(53280)+1)and15:r=peek(53280):rem rahmen
  30. 390 ifa=134thenpoke53281,(peek(53281)+1)and15:s=peek(53281):rem schirm
  31. 400 ifa=135thenpoke646,(peek(646)+1)and15:sys 49195:z=peek(55296):rem zeichen
  32. 410 ifa<>136goto360
  33. 420 poke17717,z:rem zeichenfarbe
  34. 430 poke19673,r:rem rahmenfarbe
  35. 440 poke19674,s:rem schirmfarbe
  36. 450 print" bss'256k-kernal liegt von $4000-$5fff"
  37. 460 printspc(14)"im speicher"
  38. 470 data169,0,133,252,133,254,169,224,133,255,169,64,133,253,160,0,177,254
  39. 480 data145,252,230,252,230,254,208,246,230,253,230,255,208,240,169,0,141,254
  40. 490 data95,169,209,141,255,95,96,173,134,2,162,0,157,0,216,157,0,217,157,0
  41. 500 data218,157,0,219,232,208,241,96,-1
  42.