home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8705.d64 / koala-change (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  60 lines
  1. 1 :IF L=1 THEN 20
  2. 2 :
  3. 3 :REM ********************************
  4. 4 :REM *         KOALA-CHANGE         *
  5. 5 :REM *                              *
  6. 6 :REM * UWE HUEDEPOHL                *
  7. 7 :REM *    SCHECKERTSTR.19           *
  8. 8 :REM *       8702 ZELL/AM MAIN      *
  9. 9 :REM ********************************
  10. 10 :
  11. 11 :
  12. 12 PRINT"[147]KOALA-PIC[146] SCHON ABSOLUT GELADEN";:INPUT"(J/N)";A$:IFA$<>"J" THEN END
  13. 14 :
  14. 16 :
  15. 18 L=1:LOAD"MSP-KOALA",8,1
  16. 19 :
  17. 20 POKE 53280,7:POKE 53281,7:POKE 646,9
  18. 22 HCOL=PEEK(24576)-240
  19. 24 FOR I=0 TO 15
  20. 26 :   READ FARBZUWEISUNG
  21. 28 :   IF I=HCOL THEN HCOL=FA:GOTO 30
  22. 29 NEXT I
  23. 30 POKE49380,HCOL
  24. 32 :
  25. 34 :
  26. 36 PRINT"[147]NEUVERTEILUNG DER GRAUWERTE";:INPUT"(J/N)";A$:IF A$<>"J" THEN 78
  27. 38 PRINT"[147]":POKE 53281,1:POKE 53280,1
  28. 39 POKE 646,0:RESTORE
  29. 40 FOR I=0 TO 15:POKE 646,I
  30. 42 :   PRINT CHR$(18);"   ";
  31. 44 :   IF I<>7 AND I<>15 THEN 56
  32. 45 :   PRINT:PRINT:POKE 646,0
  33. 46 :   FOR J=(I-7)TO I
  34. 48 :       READ FARBZUWEISUNG
  35. 50 :       PRINT" [157]";FA;"[157] ";
  36. 52 :   NEXT J
  37. 53 :   PRINT:PRINT
  38. 56 NEXT I
  39. 58 :
  40. 59 INPUT">RETURN<[146]";A$
  41. 63 ADD=121:PRINT:PRINT
  42. 64 FOR I=0 TO 15
  43. 66 : A=PEEK(1024+ADD):A=VAL(CHR$(A))
  44. 68 : POKE(49386+I),A:ADD=ADD+3
  45. 70 : IF I=7 THEN ADD=281
  46. 72 NEXT I
  47. 73 POKE 53280,7:POKE 53281,7:POKE 646,9:GOTO 36
  48. 74 :
  49. 76 :
  50. 78 PRINT:PRINT
  51. 79 INPUT" ZIEL [146]ADRESSE  16384[157][157][157][157][157][157][157]";Z
  52. 80 ZLOW=Z-(INT(Z/256)*256)
  53. 82 ZHIHG=INT(Z/256)
  54. 83 POKE 49239,ZLOW:POKE 49240,ZHIGH
  55. 84 :
  56. 86 SYS 49152
  57. 87 PRINT"[147] > OK < ":END
  58. 88 :
  59. 90 DATA 3,0,3,1,2,2,3,1,2,3,2,3,2,1,2,1
  60.