home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 June / 1990-06.d64 / progpage (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 5 print"[147]":poke53280,0:poke53281,0
  2. 10 rem print spooler 64/128 (relocatable)
  3. 20 rem based on an odd idea by randy thompson
  4. 30 rem the programmer's page
  5. 40 rem compute!s gazette january 1990
  6. 50 rem enhanced by ted grondski 2-24-90 v5.1d
  7. 60 rem pioneer valley computer club
  8. 70 rem 1265 st. james ave.
  9. 80 rem springfield, ma 01104
  10. 90 rem
  11. 100 rem relocate by changing 'a' to
  12. 110 rem an available memory page-start.
  13. 120 a=15872
  14. 130 h=int(a/256):j=328
  15. 140 if a-h*256>.1 then print"'a' must be a multiple of 256.":list120:stop
  16. 150 print"[147] wait... poking data. "
  17. 160 for x=0 to j:read d:c=c+d
  18. 170 poke a+x,d:next x
  19. 180 poke a+16090,h:pokea+15949,h+1
  20. 190 if c<>42905 then print" data error... ":stop
  21. 200 q$=chr$(34):s$=":"+q$+"filename"+q$+",dv"
  22. 210 a$=str$(a):a$=mid$(a$,2)
  23. 220 print"[147] ascii print spooler"
  24. 221 print" syntax:[146] sys"a$s$:end
  25. 230 data 169,0,44,252,255,16,27,133,254,32,115,0
  26. 240 data 201,34,240,12,36,254,48,5,162,11,76,55
  27. 250 data 164,76,131,76,32,212,225,24,144,17,9,128
  28. 260 data 133,254,32,128,3,201,34,208,227,32,174,145
  29. 270 data 32,69,168,165,183,240,217,224,8,144,213,224
  30. 280 data 12,176,209,134,176,133,177,165,187,133,178,165
  31. 290 data 188,133,179,162,60,160,63,169,5,32,189,255
  32. 300 data 36,254,16,5,162,0,32,104,255,169,19,166
  33. 310 data 176,160,15,32,186,255,32,192,255,176,43,169
  34. 320 data 19,32,195,255,162,65,228,187,240,50,165,177
  35. 330 data 166,178,164,179,32,189,255,36,254,16,5,162
  36. 340 data 1,32,104,255,169,17,166,176,160,2,32,186
  37. 350 data 255,32,192,255,144,20,72,32,231,255,104,170
  38. 360 data 36,254,48,3,76,55,164,76,124,77,208,165
  39. 370 data 240,77,169,0,32,189,255,169,18,162,4,160
  40. 380 data 7,32,186,255,32,192,255,176,217,162,18,32
  41. 390 data 201,255,176,210,162,17,32,198,255,176,203,162
  42. 400 data 255,202,208,253,173,0,221,41,223,141,0,221
  43. 410 data 162,249,160,62,120,142,20,3,140,21,3,169
  44. 420 data 0,133,252,133,251,198,251,88,169,0,133,153
  45. 430 data 169,3,133,154,96,208,175,240,51,36,251,16
  46. 440 data 53,173,0,221,197,253,208,40,230,252,165,252
  47. 450 data 201,120,208,38,230,251,32,204,255,162,18,32
  48. 460 data 201,255,169,13,32,210,255,169,18,32,195,255
  49. 470 data 169,17,32,195,255,32,204,255,162,65,208,201
  50. 480 data 133,253,169,0,133,252,36,254,48,3,76,49
  51. 490 data 234,76,101,250,85,48,62,77,48,85,48,62
  52. 500 data 77,49,0,0,0
  53.