1 REM loader xrquik 02/12/92 5 CLS:PRINT"WAIT...":GOSUB40:RESTORE100 10 CS=0:FOR AD=0TO193 15 READ D%:CALL64704,D%,AD:CS=CS+D% 20 PRINT@40,AD;:NEXT AD 25 IF CS<>23027THENBEEP:PRINT"Typo in data!!? 30 PRINT:PRINT"imaging RAM..":CALL63012'$ 35 MENU 40 REM loader POKER 45 RESTORE 80 50 CS=0:FORAD=64704TO64715 55 READ D%:POKE AD,D%:CS=CS+D% 60 NEXT AD 65 IF CS<>1986THENBEEP:PRINT"70 Typo in poker!!?":END 75 RETURN 80 DATA 243,71,62,1,211,224,112,175,211,224,251,201 100 DATA 193,26,254,58,194,121,0,19,19,26 101 DATA 60,194,121,0,19,26,254,36,202,98 102 DATA 0,254,33,202,87,0,254,42,202,72 103 DATA 0,195,121,0,254,59,202,121,0,254 104 DATA 58,202,121,0,254,91,202,121,0,254 105 DATA 93,202,121,0,254,61,202,121,0,254 106 DATA 43,202,121,0,254,63,202,121,0,195 107 DATA 121,0,205,151,0,70,26,235,112,18 108 DATA 235,205,109,0,195,75,0,205,151,0 109 DATA 26,119,205,109,0,195,90,0,205,178 110 DATA 0,126,18,205,109,0,195,101,0,35 111 DATA 19,124,185,204,139,0,122,230,128,200 112 DATA 241,229,33,211,224,34,164,250,33,251 113 DATA 201,34,166,250,175,225,195,164,250,125 114 DATA 254,85,192,6,0,35,5,200,195,145 115 DATA 0,209,42,48,122,1,77,138,8,194 116 DATA 187,0,49,0,254,33,243,199,229,33 117 DATA 254,253,229,33,214,108,229,213,33,0 118 DATA 128,17,64,4,14,246,201,33,41,66 119 DATA 229,195,121,0