start tok64 d64-cobf92 2 POKE56,PEEK(56)-1:CLR:i=256*PEEK(56)+PEEK(55):s=i 4 DEFFNh(x)=INT(x/256) 6 DEFFNl(x)=x-FNh(x)*256 8 DATA169,16,141,10,220,96,76 10 FORj=739TO745:READk:POKEj,k:NEXT 12 POKE746,PEEK(55):POKE747,PEEK(56) 14 PRINT "sys 739=forced save.{space*2}sys 745=toggle." 16 READ a:b=b+a:IF a=256 THEN 102 18 POKE i,a:i=i+1:GOTO 16 20 DATA 173,236,2,73,1,141 22 DATA 236,2,208,13,169,131 24 DATA 141,2,3,169,164,141 26 DATA 3,3,76,131,164,169 28 DATA 48,141,239,2,141,240 30 DATA 2,169,7,160,7,32 32 DATA 30,171,32,249,171,160 34 DATA 2,185,254,1,153,239 36 DATA 2,240,3,200,208,245 38 DATA 140,237,2,162,7,160 40 DATA 7,142,2,3,140,3 42 DATA 3,169,1,141,238,2:REM change the 1 for a longer interval 44 DATA 169,0,141,8,220,141 46 DATA 9,220,141,10,220,173 48 DATA 10,220,41,240,240,117 50 DATA 206,238,2,208,233,238 52 DATA 240,2,173,240,2,201 54 DATA 58,208,20,169,48,141 56 DATA 240,2,238,239,2,173 58 DATA 239,2,201,58,208,5 60 DATA 169,48,141,239,2,173 62 DATA 237,2,162,239,160,2 64 DATA 32,189,255,169,1,162 66 DATA 8,160,0,32,186,255 68 DATA 169,43,166,45,164,46 70 DATA 32,216,255,169,141,32 72 DATA 210,255,169,0,32,189 74 DATA 255,169,15,162,8,160 76 DATA 15,32,186,255,32,192 78 DATA 255,162,15,32,198,255 80 DATA 32,207,255,201,13,240 82 DATA 6,32,210,255,56,176 84 DATA 243,32,210,255,169,15 86 DATA 32,195,255,32,204,255 88 DATA 76,7,7,76,131,164 90 DATA 18,78,79,90,65,80 92 DATA 146,32,66,89,32,66 94 DATA 76,65,75,69,32,76 96 DATA 65,77,66,69,82,84 98 DATA 13,70,73,76,69,78 100 DATA 65,77,69,0,256 102 IF b<>28715THENPRINT"error in data statements.":END 104 POKE s+32,FNl(s+210):POKEs+34,FNh(s+210) 106 POKE s+58,FNl(s+83):POKEs+60,FNh(s+83) 108 POKE s+205,FNl(s+67):POKEs+206,FNh(s+67) 110 SYS745 stop tok64 (bastext 1.0)