home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 October / 64er_Magazin_88-10_1988_Markt__Technik_de_Side_B.d64 / dump'1525.proc < prev    next >
Encoding:
Text File  |  1988-01-01  |  2.1 KB  |  79 lines
  1. 9000 //
  2. 9010 proc dump'1525 closed
  3. 9020 oldzone:=zone
  4. 9030 zone 0
  5. 9040 char'to'printer(chr$(28),6)
  6. 9050 if peek(49171)<>165 then mlpoker
  7. 9060 open file 255,"",unit 4,0,write
  8. 9070 print file 255: chr$(13)+chr$(10),
  9. 9080 print file 255: chr$(8),
  10. 9090 sys 49171
  11. 9100 char'to'printer(chr$(15),0)
  12. 9110 char'to'printer(chr$(30),6)
  13. 9120 zone oldzone
  14. 9130 endproc dump'1525
  15. 9140 //
  16. 9150 proc char'to'printer(c$,sa) 
  17. 9160 open file 255,"",unit 4,sa,read
  18. 9170 print file 255: c$,
  19. 9180 close file 255
  20. 9190 endproc 
  21. 9200 //
  22. 9210 proc mlpoker closed
  23. 9220 s:=0
  24. 9230 for i:=49152 to 49444 do
  25. 9240 read dat
  26. 9250 poke i,dat
  27. 9260 s:=s+dat
  28. 9270 endfor i
  29. 9280 if s<>30314 then
  30. 9290 print "error in data lines"
  31. 9300 end 
  32. 9310 endif 
  33. 9320 //
  34. 9330 data 0,0,0,0,224,0,0,0,0,1,2,4,8
  35. 9340 data 16,32,64,128,0,0,165,2
  36. 9350 data 72,165,3,72,169
  37. 9360 data 0,141,6,192,162,255,32
  38. 9370 data 201,255,169,0,141,1
  39. 9380 data 192,141,2,192,169,0
  40. 9390 data 141,8,192,141,7,192,173
  41. 9400 data 6,192,24,109,7,192
  42. 9410 data 141,0,192,32,154,192,240
  43. 9420 data 13,174,7,192,189,9
  44. 9430 data 192,24,109,8,192,141,8
  45. 9440 data 192,238,7,192,173,7
  46. 9450 data 192,201,7,208,218,173,8
  47. 9460 data 192,24,105,128,32,210
  48. 9470 data 255,173,1,192,24,105,1
  49. 9480 data 144,3,238,2,192,141,1
  50. 9490 data 192,201,64,208,183,173
  51. 9500 data 2,192,201,1,208,176,169
  52. 9510 data 13,32,210,255,173,6
  53. 9520 data 192,24,105,7,141,6,192
  54. 9530 data 201,203,240,3,76,35
  55. 9540 data 192,32,231,255,104,133
  56. 9550 data 3,104,133,2,96,169,199
  57. 9560 data 205,0,192,176,3,169,0
  58. 9570 data 96,173,3,192,133,2
  59. 9580 data 173,4,192,133,3,173,0
  60. 9590 data 192,74,74,74,170,240
  61. 9600 data 17,165,2,24,105,64
  62. 9610 data 144,2,230,3,133,2,230
  63. 9620 data 3,202,76,181,192,173
  64. 9630 data 2,192,74,173,1,192,106
  65. 9640 data 74,74,170,240,15,165
  66. 9650 data 2,24,105,8,144,2,230
  67. 9660 data 3,133,2,202,76,211
  68. 9670 data 192,173,0,192,41,7,24
  69. 9680 data 101,2,144,2,230,3,133
  70. 9690 data 2,173,1,192,41,7
  71. 9700 data 141,5,192,169,7,56
  72. 9710 data 237,5,192,170,189,9,192
  73. 9720 data 32,11,193,45,18,192,96
  74. 9730 data 72,165,1,141,17,192
  75. 9740 data 120,73,7,133,1,162,0
  76. 9750 data 161,2,141,18,192,173
  77. 9760 data 17,192,133,1,88,104,96
  78. 9770 endproc mlpoker
  79.