home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / qp epson_gemini (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  3.9 KB  |  127 lines
  1. 5 print"[147]        initializing..."
  2. 10 gosub540
  3. 20 poke53280,0:poke53281,0:poke646,15:print"[147]              quad-print"
  4. 30 dimb$(4):print"         (c) 1984 by m. beutjer"
  5. 40 ifb=0thenb=1:goto70
  6. 50 print"[147] pic 1 (upper left ) : "b$(1):print" pic 2 (upper right) : "b$(2)
  7. 60 print" pic 3 (lower left ) : "b$(3):print" pic 4 (lower right) : "b$(4)
  8. 70 print"  f1 = display 1 [146]       f2 = load 1   "
  9. 80 print"  f3 = display 2 [146]       f4 = load 2   "
  10. 90 print"  f5 = display 3 [146]       f6 = load 3   "
  11. 100 print"  f7 = display 4 [146]       f8 = load 4   "
  12. 110 print"  \  = dump pos  [146]       _  = dump neg "
  13. 120 print"        *  = quick view screens "
  14. 130 print"        @  = swap screens       "
  15. 140 geta$:ifa$<>""then140
  16. 150 geta$:ifa$=""then150
  17. 160 a=asc(a$)
  18. 170 ifa=92thensys49209:goto40
  19. 180 ifa=95thensys49205:goto40
  20. 190 ifa=42thena=1:gosub520:sys49490:sys49188:goto280
  21. 200 ifa=64then310
  22. 210 ifa<133then150
  23. 220 ifa>140then150
  24. 230 a=a-132:ifa>4thengosub440:goto40
  25. 240 gosub520:sys49490:sys49188
  26. 250 geta$:ifa$<>""then250
  27. 260 geta$:ifa$=""then260
  28. 270 sys49188:goto40
  29. 280 geta$:a=asc(a$+chr$(0)):ifa=32thensys49188:goto40
  30. 290 ifa<133ora>136then280
  31. 300 a=a-132:gosub520:sys49490:goto280
  32. 310 print"enter the numbers of the screens"
  33. 320 print"you want to swap (1-4)."
  34. 330 input"1st screen : ";a
  35. 340 input"2nd screen : ";b
  36. 350 ifa<1ora>4orb<1orb>4then310
  37. 360 gosub520:sys49490
  38. 370 poke49153,16*(2+a*2):poke49152,16*(2+b*2)
  39. 380 poke49155,224+(b-1)*4:poke49154,224+(a-1)*4
  40. 390 sys49490
  41. 400 poke49152,32:poke49153,16*(2+b*2):poke49155,224+(a-1)*4:poke49154,4
  42. 410 sys49490
  43. 420 a$=b$(a):b$(a)=b$(b):b$(b)=a$
  44. 430 goto40
  45. 440 rem  get filename and load it.
  46. 450 a=a-4:print" enter filename of pic"a": ";:inputa$
  47. 460 iflen(a$)>16then450
  48. 470 b$(a)=a$
  49. 480 poke49156,len(a$):poke49152,32:poke49153,16*(2+a*2)
  50. 500 forx=1tolen(a$):poke49156+x,asc(mid$(a$,x,1)):next
  51. 510 sys49454:poke49155,224+(a-1)*4:poke49154,28:sys49490:return
  52. 520 poke49153,32:poke49152,16*(2+a*2):poke49154,224+(a-1)*4:poke49155,4:return
  53. 530 rem     poke in ml routine
  54. 540 i=49152
  55. 550 reada:ifa=256then565
  56. 560 sum=sum+a:poke i,a:i=i+1:goto550
  57. 565 ifsum<>61145thenprint"error in data statements.":end:rem sum=61166 for 10x
  58. 566 return
  59. 570 data 0,0,0,0,0,60,162,0
  60. 580 data 32,126,197,169,76,44,169,96
  61. 590 data 133,138,169,44,133,0,0,0
  62. 600 data 0,0,0,0,0,0,0,0
  63. 610 data 0,0,0,0,173,17,208,73
  64. 620 data 32,141,17,208,173,24,208,73
  65. 630 data 8,141,24,208,96,169,255,208
  66. 640 data 2,169,0,141,33,192,169,4
  67. 650 data 162,4,160,0,32,186,255,169
  68. 660 data 0,32,189,255,32,192,255,162
  69. 670 data 4,32,201,255,169,0,133,251
  70. 680 data 169,64,133,252,169,0,141,32
  71. 690 data 192,169,96,141,31,192,162,210
  72. 700 data 32,176,193,32,210,255,169,25
  73. 710 data 141,29,192,32,163,192,169,0
  74. 720 data 133,251,169,128,133,252,169,0
  75. 730 data 141,32,192,169,160,141,31,192
  76. 740 data 169,25,141,29,192,32,163,192
  77. 750 data 169,27,32,210,255,169,64,32
  78. 760 data 210,255,169,4,32,195,255,32
  79. 770 data 204,255,96,162,200,32,176,193
  80. 780 data 32,227,192,165,251,72,165,252
  81. 790 data 72,173,32,192,133,251,173,31
  82. 800 data 192,133,252,32,227,192,165,251
  83. 810 data 141,32,192,165,252,141,31,192
  84. 820 data 104,133,252,104,133,251,169,13
  85. 830 data 32,210,255,32,225,255,208,5
  86. 840 data 104,104,76,144,192,206,29,192
  87. 850 data 208,193,96,169,40,141,30,192
  88. 860 data 160,0,162,0,120,169,46,133
  89. 870 data 1,177,251,141,34,192,169,47
  90. 880 data 133,1,88,14,34,192,62,21
  91. 890 data 192,232,224,8,208,245,200,192
  92. 900 data 8,208,223,24,165,251,105,8
  93. 910 data 133,251,165,252,105,0,133,252
  94. 920 data 162,0,189,21,192,77,33,192
  95. 930 data 32,210,255,232,224,8,208,242
  96. 940 data 206,30,192,208,187,96,169,1
  97. 950 data 162,8,160,0,32,186,255,173
  98. 960 data 4,192,162,5,160,192,32,189
  99. 970 data 255,169,0,170,160,28,32,213
  100. 980 data 255,169,1,32,195,255,32,204
  101. 990 data 255,96,160,0,132,251,174,1
  102. 1000 data 192,134,252,132,253,174,0,192
  103. 1010 data 134,254,142,34,192,238,34,192
  104. 1020 data 200,192,32,208,248,160,0,120
  105. 1030 data 169,46,133,1,177,253,145,251
  106. 1040 data 169,47,133,1,88,200,208,239
  107. 1050 data 230,252,230,254,165,254,205,34
  108. 1060 data 192,208,228,173,3,192,133,252
  109. 1070 data 173,2,192,133,254,162,4,120
  110. 1080 data 169,40,133,1,177,253,145,251
  111. 1090 data 200,208,249,230,252,230,254,202
  112. 1100 data 208,242,169,47,133,1,88,96
  113. 1110 data 142,188,193,142,195,193,160,0
  114. 1120 data 162,0,232,189,200,193,32,210
  115. 1130 data 255,138,217,200,193,48,243,96
  116. 1135 rem
  117. 1136 rem
  118. 1137 rem   printer control codes
  119. 1138 rem
  120. 1139 rem
  121. 1140 rem *  epson printer module  *
  122. 1150 data 5,27,42,6,128,2,0,0,0,0
  123. 1160 data 3,27,65,8,0,0,0,256
  124. 1170 rem *  gemini printer module  *
  125. 1180 data 4,27,76,128,2,0,0,0,0,0
  126. 1190 data 3,27,51,16,0,0,0,256
  127.