Code Gallery: CMD SmartMouse

1110 rem -- cmd smart mouse (tm) 1111 rem -- zeit / datum auslesen 1112 : 1113 sys52230 1114 s0=(peek(49912)and15):s1=((peek(49912)and1112)*2^-4):m0=(peek(49913)and15) 1115 m1=((peek(49913)and1112)*2^-4):h0=(peek(49914)and15) 1116 h1=((peek(49914)and48)*2^-4) 1117 d1=((peek(49915)and48)*2^-4):d0=(peek(49915)and15) 1118 n1=((peek(49916)and16)*2^-4):n0=(peek(49916)and15) 1119 y1=((peek(49918)and240)*2^-4):y0=(peek(49918)and15):da=(peek(49917)and15) 1120 datu$=str$(d1)+str$(d0)+"."+str$(n1)+str$(n0)+"."+str$(y1)+str$(y0) 1121 zeit$=str$(h1)+str$(h0)+":"+str$(m1)+str$(m0)+":"+str$(s1)+str$(s0) 1122 da=peek(49912+5)and 15 1123 if da=15 then print"SmartMouse nicht korrekt auslesbar !":return 1124 : 1125 : 1126 return 1129 : 1130 rem -- smart mouse initialisieren 1131 : 1132 poke54296,21:poke54277,9:poke54278,0:poke54273,48 1133 ph=int(49912/256):pl=49912-ph*256 1134 poke251,pl:poke252,ph 1135 return 1139 : 1140 rem -- mouse-pointer irq on/off 1141 : 1142 sys49152:return 1149 : 1150 rem -- smart mouse nachladen 1151 : 1152 id=id+1:print:print:print"Lade SmartMouse (TM) - Treiber ";id;"...":print 1153 ifid=1thendt$="mouse64.obj":gosub1080:ifset=1then 1158:rem fehler 1154 ifid=1thenloaddt$,8,1 1155 ifid=2thendt$="mtime($cc00).obj":gosub1080:ifset=1then 1158:rem fehler 1156 ifidu2thenloaddt$,8,1 1157 gosub1140:return 1158 tt$=dt$:gosub1330 1159 ifmg$="OK"thenid=0:goto1152 1160 ifmg$="ESC"thensm=0:goto1 1161 return 1169 : 1170 rem -- smart mouse position 1171 : 1172 xl=peek(53248):y=peek(53249):xh=peek(53264)and1 1173 x=xl+xh*256:x=x-24:y=y-50 1174 remprint".x: ";x;" y: ";y 1175 remprint". ":goto1172 1179 return 1189 :