home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / kopierschutz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  46 lines
  1. 10 REM ************************
  2. 15 REM *                      *
  3. 20 REM * >> CODE S/L LADER << *
  4. 25 REM *                      *
  5. 30 REM *  MICHAEL DIETZ       *
  6. 35 REM *  3303 VECHELDE       *
  7. 40 REM *  BERLINER STR. 23    *
  8. 45 REM *  TEL.:05302/5991     *
  9. 50 REM *                      *
  10. 55 REM ************************
  11. 60 :
  12. 65 :
  13. 100 POKE53280,6:POKE53281,6:POKE646,14
  14. 110 PRINT"[147]"
  15. 120 FORI=0TO41:READ A:POKE828+I,A:NEXT
  16. 130 SYS828
  17. 140 FORI=52992TO53061:READ A
  18. 150 POKEI,A:NEXT
  19. 160 INPUT"  CODE ";C$:C=LEN(C$)
  20. 170 FORI=1TOC
  21. 180 POKE53072+I,ASC(MID$(C$,I,1)):NEXT
  22. 190 POKE62954,32:POKE62955,00:POKE62956,207
  23. 200 POKE62626,32:POKE62627,00:POKE62628,207
  24. 210 POKE62731,76:POKE62732,12:POKE62733,207
  25. 220 POKE63019,76:POKE63020,30:POKE63021,207
  26. 230 POKE13*16^3-1,C:POKE1,53:NEW
  27. 240 :
  28. 250 :
  29. 260 DATA 169,0,133,95,133,90,133,88,169
  30. 270 DATA 160,133,96,169,192,133,91,133,89,32
  31. 280 DATA 191,163,169,0,133,95,133,90,133
  32. 290 DATA 88,169,224,133,96,169,0,133,91,133,89
  33. 300 DATA 76,191,163
  34. 310 :
  35. 320 :
  36. 330 DATA 142,253,207,162,1,142,254
  37. 340 DATA 207,174,253,207,96,32,46,207
  38. 350 DATA 141,252,207,56,173,253,207
  39. 360 DATA 237,252,207,164,147,76,14
  40. 370 DATA 245,141,252,207,32,46,207
  41. 380 DATA 24,109,252,207,32,221,237
  42. 390 DATA 76,46,246,206,254,207,208
  43. 400 DATA 6,173,255,207,141,254,207
  44. 410 DATA 142,253,207,174,254,207,189
  45. 420 DATA 80,207,174,253,207,96
  46.