home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31b.dsk / XRAY.COMMAND.txt < prev    next >
Text File  |  2023-02-26  |  8KB  |  104 lines
  1. NOMONICO
  2. POKE 757,PEEK(43634) : POKE 758,PEEK(43635) : POKE 759,PEEK(43616) :POKE 760,PEEK(43617)
  3. ?CHR$(4)"BRUN XRAY.RAM"
  4. POKE 43634,PEEK(757) : POKE 43635,PEEK(758) : POKE 43616,PEEK(759) :POKE 43617,PEEK(760)
  5. POKE 761,169 : POKE 763,162 : POKE 765,76 : POKE 766,65 : POKE 767,249
  6. TEXT : HOME
  7. VTAB 1:?"APPLE XRAY BY BILL PARKER"
  8. VTAB 2 : ?"COPYR. 1987 BY MICROSPARC, INC."
  9. VTAB 3 : ?"=========="
  10.  
  11. VTAB 3 : IF PEEK(250) < 8 THEN INVERSE
  12. VTAB 4 : ?" RAM CARD "; : NORMAL : ?"<-";
  13. IF PEEK(250)=0 THEN VTAB 4 : HTAB 13 : ?"OFF/WRITE PROTECT/D BANK 2"
  14. IF PEEK(250)=1 THEN VTAB 4 : HTAB 13 : ?"OFF/WRITE PROTECT/D BANK 1"
  15. IF PEEK(250)=2 THEN INVERSE : VTAB 4 : HTAB 13 : ?"ON"; : NORMAL : ?"/WRITE PROTECT/D BANK 2"
  16. IF PEEK(250)=3 THEN INVERSE : VTAB 4 : HTAB 13 : ?"ON"; : NORMAL : ?"/WRITE PROTECT/D BANK 1"
  17. IF PEEK(250)=4 THEN VTAB 4 : HTAB 13 : ?"OFF/WRITE ENABLED/D BANK 2"
  18. IF PEEK(250)=5 THEN VTAB 4 : HTAB 13 : ?"OFF/WRITE ENABLED/D BANK 1"
  19. IF PEEK(250)=6 THEN INVERSE : VTAB 4 : HTAB 13 : ?"ON"; : NORMAL : ?"/WRITE ENABLED/D BANK 2"
  20. IF PEEK(250)=7 THEN INVERSE : VTAB 4 : HTAB 13 : ?"ON"; : NORMAL : ?"/WRITE ENABLED/D BANK 1"
  21. IF PEEK(250)=8 THEN VTAB 4 : HTAB 13 : ?"NO CARD"
  22. VTAB 5 : ?"----------"
  23. VTAB 5 : IF PEEK(978) <> 157 THEN INVERSE
  24. VTAB 6 : ?"   DOS    "; : NORMAL
  25. IF PEEK(978) = 157 THEN VTAB 6 : HTAB 11 : ?"<-"; : ?"NORMAL POSITION"
  26. IF PEEK(978)<>157 THEN VTAB 6 : HTAB 11 : ?"<-"; : INVERSE : ?"MOVED TO CARD" : NORMAL
  27. VTAB 7 : ?"----------";
  28. POKE 251,(PEEK(40192) + 256*PEEK(40193) = 40147)
  29. IF NOT PEEK(251) AND PEEK(978)=157 THEN VTAB 7 :HTAB 11 : ?"<-"; : INVERSE : ?"BUFFERS MOVED "40147-(PEEK(40192)+256*PEEK(40193))" BYTES"
  30. IF NOT PEEK(251) THEN INVERSE
  31. VTAB 8 : ?"DOS BUFFRS"; : NORMAL : ?"<-"
  32. IF PEEK(978)<>157 THEN VTAB 8 :HTAB 13 : INVERSE : ?"MOVED TO CARD"
  33. IF PEEK(978)=157 THEN VTAB 8 : HTAB 13 : ?"$"; : POKE 762,(PEEK(40192)+256*PEEK(40193)-595*PEEK(43607)+38)/256 : POKE 764,PEEK(40192)+ 256*PEEK(40193)-595* PEEK(43607)+38-256*PEEK(762) : CALL 761
  34. IF PEEK(978)=157 THEN VTAB 8 : HTAB 18 : ?"."; : POKE 762,(PEEK(40192)+256*PEEK(40193)+37)/256 : POKE 764,PEEK(40192)+256*PEEK(40193)+37-256*PEEK(762) : CALL 761
  35. IF PEEK(978)=157 THEN VTAB 8 : HTAB 24 : ?PEEK(40192)+256*PEEK(40193)- 595*PEEK(43607)+38
  36. IF PEEK(978)=157 THEN VTAB 8 : HTAB 29 : ?"."; : ?PEEK(40192)+ 256*PEEK(40193)+37
  37. IF PEEK(978)=157 AND PEEK(43607)=3 THEN VTAB 8 : HTAB 38 : ?"(";PEEK(43607)")"
  38. IF PEEK(978)=157 AND PEEK(43607)<>3 THEN INVERSE : VTAB 8 : HTAB 38 :?"(";PEEK(43607)")"
  39. NORMAL : VTAB 9 : ?"=========="; : ?"<-"
  40. IF PEEK(115)+PEEK(116)*256 <> 38400 THEN INVERSE
  41. VTAB 9 : HTAB 13 : ?"$"; : POKE 762,(PEEK(115)+256*PEEK(116))/256 :POKE 764,PEEK(115)+256*PEEK(116)-256*PEEK(762) : CALL 761
  42. VTAB 9 : HTAB 18 : ?"/";PEEK(115)+256*PEEK(116)
  43. IF PEEK(115)+PEEK(116)*256 <> 38400 THEN VTAB 9 : HTAB 24 :?" ("38400-PEEK(115)-PEEK(116)*256")"
  44. NORMAL : VTAB 9 : HTAB 33 : ?"HIMEM"
  45. VTAB 9 : IF PEEK(111) + 256*PEEK(112) <> PEEK(115) + 256*PEEK(116) THEN INVERSE
  46. VTAB 10 : ?" STRINGS  "; : NORMAL : ?"<-"
  47. VTAB 10 : HTAB 13 : ?"$"; : POKE 762,(PEEK(111)+256*PEEK(112))/256 :POKE 764,PEEK(111)+256*PEEK(112)-256*PEEK(762) : CALL 761
  48. VTAB 10 : HTAB 18 : ?"."; : POKE 762,(PEEK(115)+256*PEEK(116)-1*(PEEK(111)+256*PEEK(112)<>PEEK(115)+256*PEEK(116)))/256 : POKE 764,PEEK(115)+256*PEEK(116)-1*(PEEK(111)+256*PEEK(112)<>PEEK(115)+256*PEEK(116))-256*PEEK(762) : CALL 761
  49. VTAB 10 : HTAB 24 : ?PEEK(111)+256*PEEK(112)"."; : ?PEEK(115)+256*PEEK(116)-1*(PEEK(111)+256*PEEK(112)<>PEEK(115)+256*PEEK(116));" "PEEK(115)+256*PEEK(116)-PEEK(111)-256*PEEK(112)
  50. VTAB 11 : ?"----------";
  51. VTAB 12 : ?"FREE SPACE<-"
  52. VTAB 12 : HTAB 13 : ?PEEK(111)+256*PEEK(112)-PEEK(109)-256*PEEK(110)" BYTES"
  53. VTAB 13 : ?"----------"
  54. VTAB 13 : IF PEEK(107) + 256*PEEK(108) <> PEEK(109) + 256*PEEK(110) THENINVERSE
  55. VTAB 14 : ?"AR/ST TABL"; : NORMAL : ?"<-"
  56. VTAB 14 : HTAB 13 : ?"$"; : POKE 762,(PEEK(107)+256*PEEK(108))/256 :POKE 764,PEEK(107)+256*PEEK(108)-256*PEEK(762) : CALL 761
  57. VTAB 14 : HTAB 18 : ?"."; : POKE 762,(PEEK(109)+256*PEEK(110)-1*(PEEK(107)+256*PEEK(108)<>PEEK(109)+256*PEEK(110)))/256 : POKE 764,PEEK(109)+256*PEEK(110)-1*(PEEK(107)+256*PEEK(108)<>PEEK(109)+256*PEEK(110))-256*PEEK(762) : CALL 761
  58. VTAB 14 : HTAB 24 : ?PEEK(107)+256*PEEK(108)"."; : ?PEEK(109)+256*PEEK(110)-1*(PEEK(107)+256*PEEK(108)<>PEEK(109)+256*PEEK(110));" "PEEK(109)+256*PEEK(110)-PEEK(107)-256*PEEK(108)
  59. VTAB 15 : ?"----------"
  60. VTAB 15 : IF PEEK(105) + 256*PEEK(106) <> PEEK(107) + 256*PEEK(108) THENINVERSE
  61. VTAB 16 : ?"S. VAR TBL"; : NORMAL : ?"<-"
  62. VTAB 16 : HTAB 13 : ?"$"; : POKE 762,(PEEK(105)+256*PEEK(106))/256 :POKE 764,PEEK(105)+256*PEEK(106)-256*PEEK(762) : CALL 761
  63. VTAB 16 : HTAB 18 : ?"."; : POKE 762,(PEEK(107)+256*PEEK(108)-1*(PEEK(105)+256*PEEK(106)<>PEEK(107)+256*PEEK(108)))/256 : POKE 764,PEEK(107)+256*PEEK(108)-1*(PEEK(105)+256*PEEK(106)<>PEEK(107)+256*PEEK(108))-256*PEEK(762) : CALL 761
  64. VTAB 16 : HTAB 24 : ?PEEK(105)+256*PEEK(106)"."; : ?PEEK(107)+256*PEEK(108)-1*(PEEK(105)+256*PEEK(106)<>PEEK(107)+256*PEEK(108));" "PEEK(107)+256*PEEK(108)-PEEK(105)-256*PEEK(106)
  65. VTAB 17 : ?"----------<-"
  66. IF PEEK(105)+PEEK(106)*256 <> PEEK(175)+256*PEEK(176) THEN INVERSE
  67. VTAB 17 : HTAB 13 : ?"$"; : POKE 762,(PEEK(105)+256*PEEK(106))/256 :POKE 764,PEEK(105)+256*PEEK(106)-256*PEEK(762) : CALL 761
  68. VTAB 17 : HTAB 18 : ?"/";PEEK(105)+256*PEEK(106)
  69. IF PEEK(105)+PEEK(106)*256 <> PEEK(175)+256*PEEK(176) THEN VTAB 17 :HTAB 24 : ?" ("PEEK(105)+256*PEEK(106)-PEEK(175)-PEEK(176)*256")"
  70. NORMAL : VTAB 17 : HTAB 33 : ?"LOMEM"
  71. VTAB 18 : IF (PEEK(175)+256*PEEK(176)) - (PEEK(103)+256*PEEK(104)) > 5THEN INVERSE
  72. VTAB 18 : ?" PROGRAM  "; : NORMAL : ?"<-";
  73. IF PEEK(103)+PEEK(104)*256> 2049 THEN INVERSE
  74. VTAB 18 : HTAB 13 : ?"$"; : POKE 762,(PEEK(103)+256*PEEK(104))/256 :POKE 764,PEEK(103)+256*PEEK(104)-256*PEEK(762) : CALL 761
  75. VTAB 18 : HTAB 18 : ?"."; : POKE 762,(PEEK(175)+256*PEEK(176)-1)/256 :POKE 764,PEEK(175)+256*PEEK(176)-1-256*PEEK(762) : CALL 761
  76. VTAB 18 : HTAB 24 : ?PEEK(103)+256*PEEK(104)"."; : ?PEEK(175)+256*PEEK(176)-1;" "PEEK(175)+256*PEEK(176)-PEEK(103)-256*PEEK(104)
  77. VTAB 19 : ?"==========";
  78. VTAB 19 : HTAB 13 : ?"$"; : POKE 762,(PEEK(43634)+256*PEEK(43635))/256 : POKE 764,PEEK(43634)+256*PEEK(43635)-256*PEEK(762) : CALL 761
  79. VTAB 19 : HTAB 18 : ?"/";PEEK(43634)+256*PEEK(43635)
  80. VTAB 19 : HTAB 24 : ?" ("PEEK(43616)+256+PEEK(43617)")"
  81. VTAB 19 : HTAB 33 : ?"BLOAD"
  82. VTAB 20 : ?" "
  83. VTAB 21 : ?"&  =";
  84. VTAB 21 : HTAB 5 : IF PEEK(1014)+256*PEEK(1015)<>65368 THEN INVERSE
  85. VTAB 21 : HTAB 5 : ?"$"; : POKE 762,(PEEK(1014)+256*PEEK(1015))/256 : POKE 764,PEEK(1014)+256*PEEK(1015)-256*PEEK(762) : CALL 761
  86. VTAB 21 : HTAB 10 : ?"/"; : ?PEEK(1014)+256*PEEK(1015); : NORMAL
  87. VTAB 21 : HTAB 17 : ?"^Y   =";
  88. VTAB 21 : HTAB 23 : IF PEEK(1017)+256*PEEK(1018)<>65381 THEN INVERSE
  89. VTAB 21 : HTAB 23 : ?"$"; : POKE 762,(PEEK(1017)+256*PEEK(1018))/256 :POKE 764,PEEK(1017)+256*PEEK(1018)-256*PEEK(762) : CALL 761
  90. VTAB 21 : HTAB 28 : ?"/"; : ?PEEK(1017)+256*PEEK(1018); : NORMAL
  91. VTAB 22 : ?"BRK="; : VTAB 22
  92. VTAB 22 : HTAB 5 : IF PEEK(1008)+256*PEEK(1009)<>64089 THEN INVERSE : VTAB 22
  93. VTAB 22 : HTAB 5 : ?"$"; : POKE 762,(PEEK(1008)+256*PEEK(1009))/256 : POKE 764,PEEK(1008)+256*PEEK(1009)-256*PEEK(762) : CALL 761
  94. VTAB 22 : HTAB 10 : ?"/"; : ?PEEK(1008)+256*PEEK(1009); : NORMAL
  95. VTAB 22 : HTAB 17 : ?"RESET="; : VTAB 22
  96. VTAB 22 : HTAB 23 : IF PEEK(1010)+256*PEEK(1011)<>40383 THEN INVERSE :VTAB 22
  97. VTAB 22 : HTAB 23 : ?"$"; : POKE 762,(PEEK(1010)+256*PEEK(1011))/256 :POKE 764,PEEK(1010)+256*PEEK(1011)-256*PEEK(762) : CALL 761
  98. VTAB 22 : HTAB 28 : ?"/"; : ?PEEK(1010)+256*PEEK(1011); : NORMAL
  99. VTAB 22 : HTAB 35 : IF PEEK(1012)<>56 THEN INVERSE
  100. VTAB 22 : HTAB 35 : ?PEEK(1012); : NORMAL
  101. VTAB 23 : ?" Press P for screen dump; Q for quit : "; : POKE 1909,96 :WAIT -16384,128 : POKE -16368,0 : POKE 1909,160 : VTAB 22
  102. VTAB 22 : IF PEEK(-16384) = ASC("P") THEN ?CHR$(4)"BLOAD XRAY.SDUMP"
  103. VTAB 22 : IF PEEK(-16384) = ASC("P") THEN POKE 43634,PEEK(757) :POKE 43635,PEEK(758) : POKE 43616,PEEK(759) : POKE 43617,PEEK(760) :CALL 691
  104.