start tok64 d64-OmhepQ 0 REM -=-=-=- status reader -=-=-=- 1 REM (c)1991 mr.p. & softwolves soft- 2 REM ware public domain 3 REM for: sys public domain 4 REM 5 REM basic loader 10 FORi=49152TO52023:READx:c=c+x:POKEi,x:NEXT 11 IFc-219298THENSTOP 12 DATA169,115,160,192,32,30,171,169,8,170,160,15,32,186,255,169,,32,189 13 DATA255,32,192,255,162,8,32,198,255,162,,32,207,255,32,210,255,224,2 14 DATA240,4,157,130,192,232,201,13,208,238,169,8,32,195,255,32,204,255 15 DATA169,134,160,192,32,30,171,173,131,192,41,15,141,133,192,173,130 16 DATA192,41,15,141,132,192,10,10,10,24,109,132,192,109,132,192,109,133 17 DATA192,141,133,192,173,133,192,10,170,189,148,192,201,255,208,1,96 18 DATA188,149,192,32,30,171,96,68,73,83,75,32,83,84,65,84,85,83,58,32 19 DATA18,,48,48,,,68,69,83,67,82,73,80,84,73,79,78,58,13,,42,193,59,193 20 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 21 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 22 DATA255,255,255,255,99,193,190,193,17,194,137,194,223,194,90,195,163 23 DATA195,242,195,51,196,153,196,12,197,90,197,153,197,212,197,29,198 24 DATA255,255,255,255,255,255,255,255,112,198,255,255,255,255,255,255 25 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,169,198 26 DATA28,199,126,199,255,255,255,255,255,255,255,255,255,255,255,255 27 DATA255,255,206,199,238,199,37,200,61,200,127,200,191,200,247,200,47 28 DATA201,255,255,255,255,118,201,183,201,90,202,122,202,13,203,69,86 29 DATA69,82,89,84,72,73,78,71,32,73,83,32,79,75,,73,78,68,73,67,65,84 30 DATA69,83,32,84,72,69,32,78,85,77,66,69,82,32,79,70,32,70,73,76,69,83 31 DATA32,83,67,82,65,84,67,72,69,68,,40,78,79,32,72,69,65,68,69,82,41 32 DATA13,84,72,69,32,68,73,83,75,32,67,79,78,84,82,79,76,76,69,82,32,73 33 DATA83,32,85,78,65,66,76,69,32,84,79,32,76,79,67,65,84,69,13,84,72,69 34 DATA32,72,69,65,68,69,82,32,79,70,32,84,72,69,32,82,69,81,85,69,83,84 35 DATA69,68,32,68,65,84,65,32,66,76,79,67,75,,40,78,79,32,83,89,78,67 36 DATA41,13,84,72,69,32,68,73,83,75,32,67,79,78,84,82,79,76,76,69,82,32 37 DATA73,83,32,85,78,65,66,76,69,32,84,79,32,76,79,67,65,84,69,13,65,32 38 DATA83,89,78,67,32,77,65,82,75,32,79,78,32,84,72,69,32,68,69,83,73,82 39 DATA69,68,32,84,82,65,67,75,,40,66,76,79,67,75,32,78,79,84,32,80,82 40 DATA69,83,69,78,84,41,13,84,72,69,32,68,73,83,75,32,67,79,78,84,82,79 41 DATA76,76,69,82,32,72,65,83,32,66,69,69,78,32,82,69,81,85,69,83,84,69 42 DATA68,13,84,79,32,82,69,65,68,32,79,82,32,86,69,82,73,70,89,32,65,32 43 DATA68,65,84,65,32,66,76,79,67,75,32,84,72,65,84,32,87,65,83,13,78,79 44 DATA84,32,80,82,79,80,69,82,76,89,32,87,82,73,84,84,69,78,,40,67,72 45 DATA69,67,75,83,85,77,32,69,82,82,79,82,41,13,84,72,69,32,83,69,67,84 46 DATA79,82,32,72,65,83,32,66,69,69,78,32,82,69,65,68,32,73,78,84,79,32 47 DATA68,73,83,75,13,77,69,77,79,82,89,44,32,66,85,84,32,73,84,83,32,67 48 DATA72,69,67,75,83,85,77,32,73,83,32,87,82,79,78,71,,40,68,69,67,79 49 DATA68,73,78,71,32,69,82,82,79,82,41,13,68,65,84,65,32,79,82,32,72,69 50 DATA65,68,69,82,32,72,65,83,32,66,69,69,78,32,82,69,65,68,32,73,78,84 51 DATA79,32,68,73,83,75,13,77,69,77,79,82,89,44,32,66,85,84,32,65,78,32 52 DATA73,78,86,65,76,73,68,32,66,73,84,32,80,65,84,84,69,82,78,32,72,65 53 DATA83,13,66,69,69,78,32,70,79,85,78,68,32,73,78,32,84,72,69,32,68,65 54 DATA84,65,32,66,89,84,69,,40,87,82,73,84,69,45,86,69,82,73,70,89,32 55 DATA69,82,82,79,82,41,13,65,78,32,69,82,82,79,82,32,73,78,32,84,72,69 56 DATA32,68,65,84,65,32,74,85,83,84,32,87,82,73,84,84,69,78,32,72,65,83 57 DATA13,66,69,69,78,32,68,69,84,69,67,84,69,68,,84,72,69,82,69,32,73 58 DATA83,32,65,32,80,82,79,84,69,67,84,32,84,65,66,32,79,86,69,82,32,84 59 DATA72,69,32,80,82,79,84,69,67,84,13,78,79,84,67,72,32,80,82,69,86,69 60 DATA78,84,73,78,71,32,68,65,84,70,82,79,77,32,66,69,73,78,71,32,87,82 61 DATA73,84,84,69,78,,40,72,69,65,68,69,82,32,67,72,69,67,75,83,85,77 62 DATA32,69,82,82,79,82,41,13,65,78,32,69,82,82,79,82,32,73,83,32,68,69 63 DATA84,69,67,84,69,68,32,73,78,32,84,72,69,32,66,76,79,67,75,32,72,69 64 DATA65,68,69,82,,40,76,79,78,71,32,68,65,84,65,32,66,76,79,67,75,41 65 DATA13,84,72,69,32,66,76,79,67,75,32,72,69,65,68,69,82,32,70,79,82,32 66 DATA84,72,69,32,70,79,76,76,79,87,73,78,71,32,66,76,79,67,75,72,65,83 67 DATA32,78,79,84,32,66,69,69,78,32,70,79,85,78,68,32,73,78,32,65,32,80 68 DATA82,69,45,68,69,84,69,82,77,73,78,69,68,13,84,73,77,69,,84,72,69 69 DATA32,68,73,83,75,32,73,68,45,67,79,68,69,32,73,78,32,84,72,69,32,68 70 DATA73,83,75,32,77,69,77,79,82,89,32,73,83,13,78,79,84,32,84,72,69,32 71 DATA83,65,77,69,32,65,83,32,84,72,69,32,73,68,45,67,79,68,69,32,79,78 72 DATA32,84,72,69,32,68,73,83,75,13,84,79,32,67,79,82,82,69,67,84,44,32 73 DATA73,78,73,84,73,65,76,73,90,69,32,84,72,69,32,68,73,83,75,69,84,84 74 DATA69,,40,71,69,78,69,82,65,76,32,83,89,78,84,65,88,41,13,68,79,83 75 DATA32,67,65,78,78,79,84,32,73,78,84,69,82,80,82,69,84,32,84,72,69,32 76 DATA67,79,77,77,65,78,68,32,83,69,78,84,13,84,79,32,84,72,69,32,67,79 77 DATA77,77,65,78,68,32,67,72,65,78,78,69,76,,40,73,78,86,65,76,73,68 78 DATA32,67,79,77,77,65,78,68,41,13,84,72,69,32,67,79,77,77,65,78,68,32 79 DATA77,85,83,84,32,83,84,65,82,84,32,73,78,32,84,72,69,32,70,73,82,83 80 DATA84,13,80,79,83,73,84,73,79,78,,40,73,78,86,65,76,73,68,32,67,79 81 DATA77,77,65,78,68,41,13,84,72,69,32,67,79,77,77,65,78,68,32,73,83,32 82 DATA76,79,78,71,69,82,32,84,72,65,78,32,53,56,32,67,72,65,82,65,67,84 83 DATA69,82,83,,40,73,78,86,65,76,73,68,32,70,73,76,69,32,78,65,77,69 84 DATA41,13,80,65,84,84,69,82,78,32,77,65,84,67,72,73,78,71,32,67,65,78 85 DATA78,79,84,32,66,69,32,85,83,69,68,32,87,72,69,78,13,67,82,69,65,84 86 DATA73,78,71,32,65,32,70,73,76,69,,40,78,79,32,70,73,76,69,32,71,73 87 DATA86,69,78,41,13,84,72,69,32,70,73,76,69,78,65,77,69,32,87,65,83,32 88 DATA76,69,70,84,32,79,85,84,44,32,79,82,32,84,72,69,32,68,79,83,13,67 89 DATA65,78,78,79,84,32,82,69,67,79,71,78,73,90,69,32,73,84,32,65,83,32 90 DATA83,85,67,72,46,,40,73,78,86,65,76,73,68,32,67,79,77,77,65,78,68 91 DATA41,13,84,72,69,32,67,79,77,77,65,78,68,32,73,83,32,85,78,82,69,67 92 DATA79,71,78,73,90,69,68,32,66,89,32,84,72,69,32,68,79,83,,89,79,85 93 DATA32,72,65,86,69,32,84,82,73,69,68,32,84,79,32,82,69,65,68,32,65,78 94 DATA32,82,69,67,79,82,68,32,73,78,32,65,13,82,69,76,65,84,73,86,69,32 95 DATA70,73,76,69,32,84,72,65,84,32,68,79,69,83,32,78,79,84,32,69,88,73 96 DATA83,84,13,18,79,82,146,13,84,72,69,32,67,72,69,67,75,83,85,77,32 97 DATA73,78,32,65,32,38,45,70,73,76,69,32,73,83,32,73,78,67,79,82,82,69 98 DATA67,84,,80,82,73,78,84,35,32,83,84,65,84,69,77,69,78,84,32,69,88 99 DATA67,69,69,68,83,32,82,69,67,79,82,68,32,66,79,85,78,68,65,82,89,18 100 DATA79,82,146,13,84,72,69,32,78,85,77,66,69,82,32,79,70,32,80,82,79 101 DATA71,82,65,77,32,66,89,84,69,83,32,73,78,32,65,78,32,38,45,70,73 102 DATA76,69,73,83,32,73,78,67,79,82,82,69,67,84,,82,69,67,79,82,68,32 103 DATA80,79,83,73,84,73,79,78,32,87,73,84,72,73,78,32,65,32,82,69,76 104 DATA65,84,73,86,69,32,70,73,76,69,13,73,78,68,73,67,65,84,69,83,32 105 DATA84,72,65,84,32,68,73,83,75,32,79,86,69,82,70,76,79,87,32,87,73 106 DATA76,76,32,82,69,83,85,76,84,,84,72,69,32,70,73,76,69,32,73,83,32 107 DATA78,79,84,32,80,82,79,80,69,82,76,89,32,67,76,79,83,69,68,,84,72 108 DATA69,32,70,73,76,69,32,66,69,73,78,71,32,65,67,67,69,83,83,69,68 109 DATA32,72,65,83,32,78,79,84,32,66,69,69,78,13,79,80,69,78,69,68,32 110 DATA66,89,32,84,72,69,32,68,79,83,,84,72,69,32,70,73,76,69,32,68,79 111 DATA69,83,32,78,79,84,32,69,88,73,83,84,,84,72,69,32,78,65,77,69,32 112 DATA79,70,32,84,72,69,32,70,73,76,69,32,66,69,73,78,71,32,67,82,69 113 DATA65,84,69,68,13,65,76,82,69,65,68,89,32,69,88,73,83,84,83,32,79 114 DATA78,32,84,72,69,32,68,73,83,75,69,84,84,69,,84,72,69,32,70,73,76 115 DATA69,32,84,89,80,69,32,82,69,81,85,69,83,84,69,68,32,68,79,69,83 116 DATA32,78,79,84,32,77,65,84,67,72,13,84,72,69,32,79,78,69,32,73,78 117 DATA32,84,72,69,32,68,73,82,69,67,84,79,82,89,,84,72,69,32,66,76,79 118 DATA67,75,32,84,79,32,66,69,32,65,76,76,79,67,65,84,69,68,32,87,73 119 DATA84,72,32,66,45,65,32,73,83,13,65,76,82,69,65,68,89,32,65,76,76 120 DATA79,67,65,84,69,68,,84,82,65,67,75,32,79,82,32,83,69,67,84,79,82 121 DATA32,68,79,69,83,32,78,79,84,32,69,88,73,83,84,32,73,78,32,84,72 122 DATA69,13,70,79,82,77,65,84,32,66,69,73,78,71,32,85,83,69,68,,84,72 123 DATA73,83,32,83,80,69,67,73,65,76,32,69,82,82,79,82,32,77,69,83,83 124 DATA65,71,69,32,73,78,68,73,67,65,84,69,83,32,65,78,13,73,76,76,69 125 DATA71,65,76,32,83,89,83,84,69,77,32,84,82,65,67,75,32,79,82,32,83 126 DATA69,67,84,79,82,,84,72,69,32,82,69,81,85,69,83,84,69,68,32,67,72 127 DATA65,78,78,69,76,32,73,83,32,78,79,84,32,65,86,65,73,66,76,69,44 128 DATA13,79,82,32,65,76,76,32,67,72,65,78,78,69,76,83,32,65,82,69,32 129 DATA73,78,32,85,83,69,,84,72,69,32,66,65,77,32,68,79,69,83,32,78,79 130 DATA84,32,77,65,84,67,72,32,84,72,69,32,73,78,84,69,82,78,65,76,13 131 DATA67,79,85,78,84,46,32,84,72,69,82,69,32,73,83,32,65,32,80,82,79 132 DATA66,76,69,77,32,73,78,32,84,72,69,32,66,65,77,13,65,76,76,79,67 133 DATA65,84,73,79,78,32,79,82,32,84,72,69,32,66,65,77,32,72,65,83,32 134 DATA66,69,69,78,13,79,86,69,82,87,82,73,84,84,69,78,32,73,78,32,68 135 DATA79,83,32,77,69,77,79,82,89,13,84,79,32,67,79,82,82,69,67,84,58 136 DATA32,73,78,73,84,73,65,76,73,90,69,32,68,73,83,83,75,69,84,84,69, 137 DATA84,72,69,32,68,73,83,75,32,73,83,32,70,85,76,76,32,79,82,32,65 138 DATA76,77,79,83,84,32,70,85,76,76,,73,70,32,83,69,78,84,32,87,72,69 139 DATA78,32,68,82,73,86,69,32,73,83,32,74,85,83,84,32,84,85,82,78,69 140 DATA68,32,79,78,44,13,84,72,69,82,69,32,73,83,32,78,79,32,69,82,82 141 DATA79,82,46,32,79,84,72,69,82,87,73,83,69,44,32,84,72,69,32,68,73 142 DATA83,75,13,73,83,32,65,32,67,66,77,32,68,79,83,45,49,32,68,73,83 143 DATA75,46,32,68,79,83,45,49,32,65,78,68,32,68,79,83,45,50,32,65,82 144 DATA69,82,69,65,68,32,66,85,84,32,78,79,84,32,87,82,73,84,69,32,67 145 DATA79,77,80,65,84,73,66,76,69,,84,72,69,82,69,32,73,83,32,78,79,84 146 DATA32,65,32,70,79,82,77,65,84,84,69,68,32,68,73,83,75,32,73,78,32 147 DATA84,72,69,13,68,82,73,86,69, 148 PRINT"{clear}{down}{right}sys 49152 reads disk status and 149 PRINT"{right}displays information. stop tok64 (bastext 1.0)