home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 October / 64er_Magazin_85-10_1985_Markt__Technik_de.d64 / zloader (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  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.