Software

In questa pagina si possono trovare alcuni listati per il Casio Pb-1000

Poker

Snake

Codice Morse

POKER

Questo programma è stato fatto da Alberto DONDA e si tratta del poker:

.

Questo è il suo sito. Il listato è il seguente :

 

 

 

 

1 GOTO29:DATASto,1,Lascio,2,Punto,3
2 LOCATE7,3:PRINTE$;”>”;E$;E$;:LOCATE13,3:RETURN:DATA9,10,J,Q,K,A
3 FORI=0TO2:LOCATE13,I:IFN=1THENPRINTF$;F$;ELSEPRINTE$;E$;” “;
4 NEXTI:N=0:RETURN
5 O=O-V:Q=Q-V:P=P+2*V:FORI=0TO2:LOCATE4,I:PRINTE$:NEXTI:LOCATE0,0
6 PRINT”PB :”;O:PRINT”TU :”;Q:PRINT”POT:”;P:RETURN
7 GOSUB2:PRINT”Quanto?”;
8 V=VAL(INKEY$):IFV=0THEN8ELSEPRINTV;:RETURN
9 U=INT(RND(1)*23):IFINT(H/2^U)/2<>INT(INT(H/2^U)/2)THEN9
10 Z=INT(U/6):B$=CHR$(Z+232):C$=CHR$(U-6*Z):H=H+2^U:RETURN
11 GOSUB25:FORI=0TO4:RESTORE2:FORK=0TO ASC(V$(I,T)):READA$:NEXTK:LOCATE13+2*I,1
12 PRINTA$:LOCATE14+2*I,2:PRINTV$(I,T+1);:NEXTI:GOSUB25:RETURN
13 GOSUB2:PRINT”Cosa fai?”;:U=W:RESTORE:W=1
14 A$=INKEY$:IFA$=””THEN14ELSEIFASC(A$)=13THENRETURN
15 READA$,W:IFW=U THENRESTORE
16 GOSUB2:PRINTA$;:GOTO14
17 R=0:S=0:FORI=0TO5:GOSUB22:R=R+(I*10^SGN(L-1)+10^L*SGN(L-1))*SGN(L)
18 S=S+(I*10^SGN(J-1)+10^J*SGN(J-1))*SGN(J)
19 NEXTI:IFR=10THENR=5E3 ELSEIFR=15THENR=6E3
20 IFS=10THENS=5E3 ELSEIFS=15THEN S=6E3
21 RETURN
22 L=0:J=0:FORK=0TO4:IFASC(V$(K,0))=I THENL=L+1
23 IFASC(V$(K,2))=I THENJ=J+1
24 NEXTK:RETURN
25 DRAW(78,0)-(138,0)-(138,23)-(78,23)-(78,0):FORI=0TO3:L=90+I*12
26 DRAW(L,1)-(L,23):NEXTI:RETURN
27 GOSUB2:FORI=1TOLEN(A1$):LOCATE23-I,3:PRINTLEFT$(A1$,I);:NEXTI:FORI=1TO99
28 NEXTI:RETURN
29 F$=””:DIMV$(4,3) :O=50:Q=O:E$=” “:FORI=1TO5:F$=F$+CHR$(254):NEXTI
30 CLS:GOSUB90:H=0:P=0:N=1:GOSUB3:GOSUB25:V=0:GOSUB5:LOCATE13,3:PRINT”Pot?”;
31 A$=INKEY$:IFA$=””THEN31ELSEV=VAL(A$):PRINTV;:GOSUB5
32 GOSUB3:FORI=0TO4:GOSUB9:V$(I,0)=C$:V$(I,1)=B$:GOSUB9
33 V$(I,2)=C$:V$(I,3)=B$:NEXTI:T=0:GOSUB17:GOSUB11:GOSUB60
34 IFW=5THEN30ELSEV=0:GOSUB2
35 LOCATE11,3:PRINT”= “;:A$=INKEY$:IFASC(A$)=13THEN39ELSELOCATE11,3:PRINT” >”;
36 IFVAL(A$)=V THEN35ELSEV=VAL(A$):IFV=0THEN35ELSEIFV>5THEN35
37 LOCATE11+2*V,3:IFPOINT(68+12*V,24)=1THENPRINT” “;ELSEPRINT”^”;
38 GOTO35
39 GOSUB3:FORI=0TO4:IFPOINT(80+12*I,24)=1THENGOSUB9:V$(I,0)=C$:V$(I,1)=B$
40 NEXTI:GOSUB2:V=0:FORW=0TO4:I=ASC(V$(W,2)):GOSUB22
41 IFS<4000THENIFJ<2THENGOSUB9:V$(W,2)=C$:V$(W,3)=B$:V=V+1
42 NEXTW:GOSUB3:T=0:GOSUB11:GOSUB17:A1$=”Cambio”+STR$(V):GOSUB27:Y=1-Y:V=0
43 GOSUB60:IFW=5THEN30ELSEA1$=”Le mie: “:GOSUB27:GOSUB3:T=2:GOSUB11
44 IFR>S THENA1$=”Vinci tu”:GOSUB27:Q=Q+P:GOTO30
45 A1$=”Vinco io”:GOSUB27:O=O+P:GOTO30
60 V=0:IFY=1THEN63
61 W=3:GOSUB13
62 IFW=2THEN70ELSEIFW=3THENGOSUB7
63 IFS>100THEN65
64 A1$=”Io lascio”:GOSUB27:Q=Q+P:W=5:RETURN
65 GOSUB5:V=INT(RND(1)*5+2):A1$=”Io punto”+STR$(V):GOSUB27
66 W=2+Y:GOSUB13
67 IFW=1THENGOSUB5:RETURN
68 IFW=2THEN70ELSEGOSUB7
69 A1$=”Io sto “:GOSUB27:GOSUB5:RETURN
70 O=O+P:W=5:RETURN
90 IFQ<0THEN99
91 IFO<0THEN100
95 RETURN
99 PRINT”Sei finito in debito.Hai perso la partita”;:GOTO120
100 PRINT”Son finito in debito. Ho perso la partita”;
120 FORI=1TO200:NEXTI
121 A$=INKEY$:IFA$=””THEN121ELSEGOTO1

Snake

AKE by M.Gruhl V2.3
10 CLEAR:DIMH(31,4):LO=1:GOSUB370:S=2:Z=0
20 H(2,0)=28:H(1,0)=28:S=2:H(0,0)=28
30 CLS:PRINTCHR$(247);CHR$(237);CHR$(242)
31 FOR A=1 TO 8
32 Y=INT(RND(-1)*3):X=INT(RND(-1)*26+3):LOCATE X,Y:PRINTCHR$(135);
33 H(X,Y)=255
34 NEXT
40 GOSUB 570
50 REM+++++++Tastaturabfrage+++++++++
60 A$=INKEY$:IF A$=” “THEN 60
70 IF A$=CHR$(28) AND S<=29 THEN 130
80 IF A$=CHR$(29) AND S>=1 THEN 190
90 IF A$=CHR$(30) AND Z>=1 THEN 250
100 IF A$=CHR$(31) AND Z<=2 THEN 310
110 REM+++++++l�schen (GOSUB 570)
120 GOTO 60
130 REM ++++++Nach rechts laufen+++++++++
140 IF H(S+1,Z)>10 THEN 650
150 IF H(S+1,Z)>0 THEN L=L+H(S+1,Z):ZZ=1
160 GOSUB 390
170 S=S+1:LOCATE S,Z:PRINTCHR$(242);:H(S-1,Z)=28
175 IF ZZ=1 THEN GOSUB 580
180 GOSUB 430:GOTO 60
190 REM ++++++Nach links laufen+++++++++
200 IF H(S-1,Z)>10 THEN 650
210 IF H(S-1,Z)>0 THEN L=L+H(S-1,Z):ZZ=1
220 GOSUB 390
230 S=S-1:LOCATE S,Z:PRINTCHR$(243);:H(S+1,Z)=29
235 IF ZZ=1 THEN GOSUB 580
240 GOSUB 430:GOTO 60
250 REM+++++++Nach oben laufen+++++++++++
260 IF H(S,Z-1)>10 THEN 650
270 IF H(S,Z-1)>0 THEN L=L+H(S,Z-1):ZZ=1
280 GOSUB 390
290 Z=Z-1:LOCATE S,Z:PRINTCHR$(241);:H(S,Z+1)=30
295 IF ZZ=1 THEN GOSUB 580
300 GOSUB 430:GOTO 60
310 REM+++++++Nach unten laufen+++++++++++
320 IF H(S,Z+1)>10 THEN 650
330 IF H(S,Z+1)>0 THEN L=L+H(S,Z+1):ZZ=1
340 GOSUB 390
350 Z=Z+1:LOCATE S,Z:PRINTCHR$(240);:H(S,Z-1)=31
355 IF ZZ=1 THEN GOSUB 580
360 GOSUB 430:GOTO 60
370 REM+++++++Sonderzeichenprogrammierung++++++++
380 FOR A=240 TO 247:READA$:DEFCHR$(A)=A$:NEXT:RETURN
390 REM++++++++Schlange malen+++++++++++++++
400 IF B=1 THEN LOCATE S,Z:PRINTCHR$(237);:B=0:RETURN
410 IF B=0 THEN LOCATE S,Z:PRINTCHR$(236);:B=1:RETURN
420 RETURN
430 REM++++++Schwanz malen++++++++++++++++++
440 IF L>0 THEN L=L-1:LE=LE+1:RETURN
450 A=H(SS,SZ)-27:H(SS,SZ)=0
460 HS=SS:HZ=SZ
470 ON A GOSUB 530,540,550,560
480 IF H(SS,SZ)=28 THEN ZE=247
490 IF H(SS,SZ)=29 THEN ZE=246
500 IF H(SS,SZ)=30 THEN ZE=244
510 IF H(SS,SZ)=31 THEN ZE=245
520 LOCATE HS,HZ:PRINT” “;:LOCATE SS,SZ:PRINTCHR$(ZE);:RETURN
530 SS=SS+1:ZE=247:RETURN
540 SS=SS-1:ZE=246:RETURN
550 SZ=SZ-1:ZE=244:RETURN
560 SZ=SZ+1:ZE=245:RETURN
570 REM++++++++Zufallszahl++++++++++++++
580 BEEP1:ZZ=0
590 HS=INT(RND(-1)*30)
600 HZ=INT(RND(-1)*4)
610 IF H(HS,HZ)<>0 THEN 590
620 A=INT(RND(-1)*8+1)
630 LOCATE HS,HZ:PRINT”$”;:H(HS,HZ)=A
640 RETURN
650 REM +++++++++ENDE++++++++++++++
660 CLS:PRINT LE*LO;”METER”
670 BEEP:BEEP:BEEP:END
680 DATA “E0B8FCB8E000″,”071D3F1D0700″,”7C547C383810″,”1038387C547C”
690 DATA “00787E780000″,”001E7E1E0000″,”003838381010″,”101038383800”

Codice morse

5 ‘MORSE
6 ‘PB-1000-Morsesimulator
7 ‘by Andre Roessel <RCS-Technik@t-online.de> 11/1989
10 CLEAR1000,400:CLS:ONERRORGOTO140:S=PEEK&H6BB9:IFS<45ORS>235THENPOKE&H6BB9,77
20 LOCATE2,1:PRINT”MORSE”:POKE&H6BB8,5:CALL”MORSEOUT.EXE”
30 CLS:BEEP:CLOSE:S=7000/PEEK&H6BB9:CLS:PRINTREV” *** PB-1000-MORSETYPER *** “NORM,”[“;:PRINTUSING”####”;INTS;:PRINT” ] A.Rossel 11/89 [ exit ]”REV”[speed ][input ][output][direct]”NORMCHR$(16);:DRAW(73,16):DRAW(75,16)
40 I=ASC(INKEY$)-251:IFI<0THEN40ELSEPRINTCHR$(30)CHR$(24);:BEEP:ONI GOTO 70,80,100,120
60 POKE&H6F51,64:POKE&H694F,230:POKE&H694E,1:CALL&HE601
70 LOCATE0,2:PRINT”Geschwindigkeit(Bu/min) :”INTS:LOCATE26,2:INPUT””,S:IFS>29ANDS<121THENPOKE&H6BB9,7000/S:GOTO30ELSEBEEP1:GOTO70
80 INPUT” EINGABE-Datei :”,N$:OPENN$FOROUTPUTAS#1:CLS:PRINTREV”-> EINGABE in :�”NORMTAB(18)N$
90 INPUT”->”,A$:IFA$>””THENPRINT#1,A$:GOTO90ELSE30
100 INPUT” AUSGABE-Datei :”,N$:OPENN$FORINPUTAS#1:CLS:PRINTREV” -> AUSGABE von :”NORMTAB(18)N$
110 LINEINPUT#1,A$:LOCATE0,1:PRINTCHR$(24)”->”A$;:POKE&H6BB8,LEN(A$):CALL”MORSEOUT.EXE”:IFEOF(1)=0THEN110ELSEBEEP1:LOCATE0,3:PRINTCHR$(24)” ENDE der AUSGABE-Datei !”;:FORI=0TO300:NEXT:GOTO30
120 FORI=0TO50:NEXT
130 LOCATE0,1:INPUT”->”,A$:IFA$>””THENPOKE&H6BB8,LEN(A$):CALL”MORSEOUT.EXE”:GOTO130ELSE30
140 IFERR=8ORERR=10ANDERL=100THENBEEP1:PRINTREV”����� Datei nicht im RAM !”NORM;:FORI=0TO200:NEXT:RESUME30
150 IFERL=20THENLOCATE0,3:PRINTREV”�� MORSEOUT.EXE wird erzeugt ! “NORM;:RESTORE:I=&H7000:FORU=1TO3:GOSUB170:NEXT:BSAVE”MORSEOUT.EXE”,&H7000,335,&H7041:PRINTCHR$(24);
160 RESUME20
170 READP$:FORJ=1TOLEN(P$)STEP2:POKEI+.5*J,VAL(“&H”+MID$(P$,J,2)):NEXT:I=I+.5*LEN(P$):RETURN
180 DATA 01735201010101016D6D0101736155323F2F2723212030383C3E78736D016D4C0105181A0C02120E1004170D1407060F161D0A080309110B191B1C6D016D014D017766ABD11CB96B117C1C421D00D600B86B681200481201D6402261D118CC62D1100100491201F0270077E2917036712F00771771420100
190 DATA 6B0000775B01410020754B71410060714B71D102E06F8862001160024204084904011820B186410400B00B182077CB70490401B48982681C984898484206FF771171896810B48A771771D10E060088780EB7E682741CB10788741488741C1E284C083F42060A771171480840162849084042060A77117148
200 DATA 08801628490880897410B4A016284206FF82681C9A089868771171896810B487F7490601B484F79618D10C0600286E0C1B4E206E0C490C01B48C9E562700772C0296562F00F7D11A0040771771897A10B48477E291B490771771F7420020F7

I commenti sono chiusi.