home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8510.d64 / zloader (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  3KB  |  92 lines
  1. 0 DATA169,240,32,71,3,169,160,32,71,3,96,133,89,120,169,51,133,1,169,0
  2. 1 DATA169,0,133,88,133,90,133,95,169,224,133,91,169,208,133,96,32,191,163
  3. 2 DATA169,160,169,55,133,1,88,96
  4. 1000 FORT=0TO46:READX:POKET+828,X:NEXT
  5. 1010 SYS828
  6. 1060 POKE53272,8:POKE56576,PEEK(56576)AND252:POKE648,192:PRINT"[147]"
  7. 1100 FORT=1TO128:READA$,X:POKE1026+T,X:IFA$<>"END"THENNEXT
  8. 1110 PRINT1027+T
  9. 2000 GOTO5000
  10. 3000 Z1=36864+T*8+X+20472+7
  11. 3040 POKEZ1,X(X)
  12. 3050 POKEZ1+256*8,X(X)
  13. 3051 POKEZ1+128*8,255-X(X)
  14. 3052 POKEZ1+384*8,255-X(X)
  15. 3060 Z1=Z1-5*16^3
  16. 3070 POKEZ1,X(X)
  17. 3080 POKEZ1+256*8,X(X)
  18. 3081 POKEZ1+128*8,255-X(X)
  19. 3082 POKEZ1+384*8,255-X(X)
  20. 3999 RETURN
  21. 4000 REM
  22. 4010 FORX=1TO8
  23. 4020 GOSUB3000:NEXT
  24. 4030 PRINT"":GOTO5030
  25. 4900 REM ******************************
  26. 4901 REM *                            *
  27. 4902 REM * DRUCKER STEUERCODES        *
  28. 4903 REM * 1=SONDERZ. AN              *
  29. 4904 REM * 2=SONDERZ. AUS SCHMAL      *
  30. 4905 REM * 3=SONDERZ. AUS BREIT       *
  31. 4906 REM *                            *
  32. 4907 REM *      1          2       =>3*
  33. 4909 REM ******************************
  34. 5000 XX=1200:POKE1024,8:POKE1025,15:POKE1026,14
  35. 5030 READA$:A$(1)=A$:IFA$="END"THEN10000
  36. 5040 FORT=1TO8:READX(T):IFX(1)=999THEN5042
  37. 5041 NEXT
  38. 5042 FORT=1TO8:READY(T):NEXT
  39. 5050 GOSUB6500
  40. 5055 IFX(1)=999THEN5030
  41. 5060 GOTO6000:GOTO5030
  42. 6000 PRINT"[147]";A$(1):PRINTPEEK(49152)
  43. 6010 T=PEEK(49152):GOTO4000
  44. 6500 REM ** DRUCKERCODE **
  45. 6510 AS=ASC(A$):AS=AS-160
  46. 6520 AS=(AS*8)+1200:FORT=1TO8:D(T)=Y(T):NEXT
  47. 6540 FORT=1TO8:POKEAS+T,D(T):NEXT
  48. 6550 RETURN
  49. 7000 REM ******************************
  50. 7001 REM *                            *
  51. 7002 REM * DRUCKERCODES FUER DIE      *
  52. 7003 REM * CBM CODES 1-126            *
  53. 7004 REM * (KEINE SONDERZEICHEN       *
  54. 7005 REM * SONDERN ALPHA ...)         *
  55. 7006 REM *                            *
  56. 7007 REM *                            *
  57. 7008 REM *                            *
  58. 7009 REM ******************************
  59. 8499 DATA "END",0
  60. 9999 DATA"END",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,0,0,,0,0,0,0,0,0,0
  61. 10000 PRINT"[147]":GOTO12000
  62. 12000 GOSUB40000
  63. 13000 PRINT"[147]DAS PROGRAMM WIRD GESPEICHERT":POKE46,38
  64. 13001 PRINT"  - BITTE WARTEN -  "
  65. 13003 SAVE"@:LOADER DIN 2.1",8
  66. 13004 VERIFY"LOADER DIN 2.1",8
  67. 13005 PRINT"DAS PROGRAMM IST GESPEICHERT":END
  68. 20000 X= 160 :L= 8500
  69. 20001 IFX>191THEN30000
  70. 20010 PRINT"[147]":PRINT"20000 X=";X+1;":L=";L+2
  71. 20020 PRINTL;"DATA"+CHR$(34)+CHR$(X)+CHR$(34);",999,";X;",0,0,0,0,0,0,0"
  72. 20030 PRINT"GOTO20000"
  73. 20040 POKE198,5:FORT=631TO631+5:POKET,13:NEXT:END
  74. 30000 X= 1:L= 8000
  75. 30001 IFX>127 THENPRINT"[147]FERTIG":END
  76. 30010 PRINT"[147]":PRINT"30000 X=";X+1;":L=";L+2
  77. 30019 IFX=34THENPRINTL;"DATA"+CHR$(34)+"''"+CHR$(34);",";X:GOTO30030
  78. 30020 IFX>31THENPRINTL;"DATA"+CHR$(34)+CHR$(X)+CHR$(34);",";X
  79. 30021 IFX<32THENPRINTL;"DATA"+CHR$(34)+"."+CHR$(34);",";X
  80. 30030 PRINT"GOTO30000"
  81. 30040 POKE198,5:FORT=631TO631+5:POKET,13:NEXT:END
  82. 40000 REM *** SAVE FILE ***
  83. 40001 OPEN 2,8,1,"@:ZEICHEN DDIN"
  84. 40010 PRINT#2,CHR$(0);CHR$(4);
  85. 40020 FORT=4*16^2TO2048:PRINT#2,CHR$(PEEK(T));:NEXT
  86. 40030 CLOSE2
  87. 40040 OPEN2,8,1,"@:ZEICHEN DIN"
  88. 40050 PRINT#2,CHR$(0);CHR$(14*16);
  89. 40060 FORT=9*16^3TO9*16^3+4096
  90. 40070 PRINT#2,CHR$(PEEK(T));:NEXT
  91. 40080 CLOSE2:RETURN
  92.