home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8707.d64 / bss-generator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.