| |
Trucos para Pick & Pile - Trucos y Guias |
-Cargador:
10 'CARGADOR DEL PICK'N PILE......
20 'PARA HOBBY PRESS DE PABLO F.G.
30 DIM D%(150):M=1:FOR C=1 TO 9:READ A$
40 FOR I=1 TO 32 STEP 2:X=VAL("&h"+(MID$(A$,I,2)))
50 S=S+X:D%(M)=X:M=M+1:NEXT I,C
60 IF S<>11262! THEN PRINT"ERROR EN DATAS":END
70 PRINT"PULSA UNA TECLA Y CREARE EL PICK.COM"
80 IF INKEY$="" THEN 80
90 OPEN "R",#1,"PICK.COM",1
100 FIELD #1,1 AS A$:FOR I=1 TO M:LSET A$=CHR$(D%(I))
110 PUT #1,I:NEXT:CLOSE 1
120 DATA "EB3880FC00752E1E508CD805FC2F8ED8"
130 DATA "813E6E20FF0E7506C7066E20EB028CD8"
140 DATA "05D3058ED8813EC228FF0E7506C706C2"
150 DATA "28EB02581FEA00000000B81035CD2189"
160 DATA "1E36018C063801BA0201B81025CD21BA"
170 DATA "5B01B409CD21BA4001CD274341524741"
180 DATA "2041484F524120454C205049434B274E"
190 DATA "2050494C452E2E2E2E5041424C4F2046"
200 DATA "2E240000000000000000000000000000"
Volver a Trucos PC
|