home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh01.d64 / fast64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.9 KB  |  78 lines
  1. 10 REM FAST64 V19-10-85
  2. 20 REM VON ANDREAS ZELLER, HANAU
  3. 30 :
  4. 40 REM AUFGABE: 128ER IM 64ER-MODUS
  5. 50 REM          UM 35% BESCHLEUNIGEN.
  6. 60 :
  7. 70 REM DURCH AENDERN DER ZEILE 170
  8. 80 REM KANN DAS PROGRAMM IN BELIEBIGE
  9. 90 REM BEREICHE GELEGT WERDEN.
  10. 100 :
  11. 110 REM WENN DAS PROGRAMM ZUSAMMEN MIT
  12. 120 REM "KEYS128" LAUFEN SOLL, MUSS
  13. 130 REM FOLGENDE ZEILE EINGEFUEGT WERDEN:
  14. 140 REM 395 POKE CODE+110,44
  15. 150 :
  16. 160 :
  17. 170 CODE=49440:REM STARTADRESSE
  18. 180 :
  19. 190 POKE53265,11:POKE53296,1
  20. 200 :
  21. 210 DIM P(6):FORJ=0TO6:READP:P(J)=CODE+P:NEXT
  22. 220 :
  23. 230 DATA 0,110,159,216,217,218,219
  24. 240 :
  25. 250 FORI=0TO219:READX$
  26. 260 :
  27. 270 REM UMWANDLUNG ADRESSEN
  28. 280 A$=RIGHT$(X$,1):B$=LEFT$(X$,1)
  29. 290 IFA$="+"THENP=P(ASC(B$)-65):X=P/256:GOTO360
  30. 300 IFA$="-"THENP=P(ASC(B$)-65):X=(P/256-INT(P/256))*256:GOTO360
  31. 310 :
  32. 320 REM UMWANDLUNG HEX => DEC
  33. 330 :
  34. 340 X=ASC(A$)+(A$>"@")*55+(A$<":")*48
  35. 350 X=X+(ASC(B$)+(B$>"@")*55+(B$<":")*48)*16
  36. 360 POKECODE+I,X:NEXT
  37. 370 :
  38. 380 POKE53296,0:POKE53265,27
  39. 390 :
  40. 400 PRINT">DAS PROGRAMM BENUTZT DEN BEREICH"
  41. 410 PRINT" VON"CODE"-"CODE+219"."
  42. 420 PRINT
  43. 430 PRINT">SCHNELL MIT: SYS"CODE";"
  44. 440 PRINT"  NORMAL MIT: SYS"CODE+116"."
  45. 450 :
  46. 460 END
  47. 470 :
  48. 480 :
  49. 490 :
  50. 1000 DATA  08,48,78,AD,14,03,C9,C-
  51. 1010 DATA  AD,15,03,E9,C+,F0,0C,AD
  52. 1020 DATA  14,03,8D,D-,D+,AD,15,03
  53. 1030 DATA  8D,E-,E+,AD,02,03,C9,B-
  54. 1040 DATA  AD,03,03,E9,B+,F0,0C,AD
  55. 1050 DATA  02,03,8D,F-,F+,AD,03,03
  56. 1060 DATA  8D,G-,G+,A9,C-,8D,14,03
  57. 1070 DATA  A9,C+,8D,15,03,A9,B-,8D
  58. 1080 DATA  02,03,A9,B+,8D,03,03,A9
  59. 1090 DATA  00,8D,30,D0,AD,12,D0,D0
  60. 1100 DATA  FB,A9,31,8D,12,D0,AD,11
  61. 1110 DATA  D0,29,7F,8D,11,D0,A9,01
  62. 1120 DATA  8D,30,D0,AD,1A,D0,09,01
  63. 1130 DATA  8D,1A,D0,68,28,60,20,A-
  64. 1140 DATA  A+,6C,F-,F+,08,48,78,AD
  65. 1150 DATA  1A,D0,29,FE,8D,1A,D0,A9
  66. 1160 DATA  00,8D,30,D0,AD,D-,D+,8D
  67. 1170 DATA  14,03,AD,E-,E+,8D,15,03
  68. 1180 DATA  AD,F-,F+,8D,02,03,AD,G-
  69. 1190 DATA  G+,8D,03,03,68,28,60,AC
  70. 1200 DATA  19,D0,30,07,AD,0D,DC,58
  71. 1210 DATA  6C,D-,D+,98,4A,90,F9,8C
  72. 1220 DATA  19,D0,AD,30,D0,49,01,8D
  73. 1230 DATA  30,D0,4A,B0,03,A9,FA,2C
  74. 1240 DATA  A9,31,8D,12,D0,68,A8,BA
  75. 1250 DATA  BD,04,01,D0,03,DE,05,01
  76. 1260 DATA  DE,04,01,68,AA,68,28,60
  77. 1270 DATA  31,EA,83,A4
  78.