'ONLINE MULTIPLAYER TEST TOUCHSCREEN 'SAVE 8,"DATA",$A000,1 VL=0 VH=0 GLOBAL DEVICE_ID CALL LOADSPLIT($A000,128,VL,VH) DEVICE_ID=1-VH VH=DEVICE_ID CALL SAVESPLIT($A000,128,VL,VH) NUMBER 10,2,DEVICE_ID,1 TEXT 0,1,"LOCAL" TEXT 0,2,"CLOUD" TEXT 6,0,"VAL" TEXT 10,0,"ID" TEXT 0,14,"/ FORCE \" TEXT 0,15,"\RE SEND/" DO CALL LOADSPLIT($A000,128,VL,VH) V=-VL*(VH<>DEVICE_ID)-V*(VH=DEVICE_ID) FORCE=TOUCH.Y\16=7 AND TOUCH.X\72=0 IF TAP AND NOT(FORCE) THEN ADD V,1,0 TO 63 END IF IF VH<>DEVICE_ID OR (TAP AND FORCE) THEN CALL SAVESPLIT($A000,128,V,VH) TEXT 0,4," UPDATING " ELSE TEXT 0,4,"WAITING..." END IF NUMBER 10,1,VH,1 NUMBER 6,2,VL,2 NUMBER 6,1,V,2 PALETTE 0,V,,, 'LOAD SEEMS TO HAVE BUILT-IN VBL, NO ADDITIONAL VBL IS NEEDED LOOP SUB LOADSPLIT(A,B,VL,VH) LOAD 8,A,1 V=PEEK($A000) VL=V MOD B VH=V\B END SUB SUB SAVESPLIT(A,B,VL,VH) POKE A,VL+DEVICE_ID*B SAVE 8,"DATA",$A000,1 END SUB