Download pdf

SPRIX
NEXT
NEXT
VIMSG 1, "i semi del mazzo sono|DISORDINATI||ora li|RIORDINO" :
CLS
RIPRENDI:
DIM SOSPESO$(): SS=0 : CC=0 'array sospeso per ordinare carte > 10
LEGGISORT:
IF CC=13 AND SS=4 THEN GOSUB STAMPAZ : GOTO RIPRENDI
GETSORT CARTA$ : CC=CC+1
IF CARTA$="" THEN VIMSG 1, "ho riordinato per seme": GOTO CTRL_SEM
IF VAL(MID$(CARTA$,26,2))<10 THEN PRINT CARTA$ ELSE GOSUB SOSPESO
GOTO LEGGISORT
SOSPESO:
SS=SS+1 : SOSPESO$(SS)=CARTA$ : RETURN
STAMPAZ:
FOR K=1 TO SS : PRINT SOSPESO$(K): NEXT : AZZARRAY SOSPESO$
RETURN
CTRL_SEM:
BLOCCASEM "*SEM1"
IF _ERRSEM<>0 THEN VIMSG 4,"Semaforo non bloccabile" ELSE GOTO
SCRIVI
SLEEP 1500 : GOTO CTRL_SEM
SCRIVI:
CLS: VIMSG 1,"il controllo sul blocco semaforo|mi permette di
operare"
QTA=0 : PZO=0 : TOTQTA=0 : TOTVAL=0 : S$="sprix"
PRINT " numero|quantita|prezzo "
PRINT "-------|--------|---------"
FOR I=1 TO 5 : QTA=I*12 : PZO=1+(I/3) : S$=S$+STR$(I,0,0)
PRINT "
"+STR$(I,0,0)+"
|
"+STR$(QTA,0,0)+"
| "+STR$(PZO,1,0)
TOTQTA=TOTQTA+QTA:TOTVAL=TOTVAL+(PZO*QTA)
NEXT
PRINT "--------------------------"
PRINT " Tot.Qta "+STR$(TOTQTA,0,0)+"
| Tot.Val. "+STR$(TOTVAL,1,0)
SBLOCCASEM "*SEM1"
VIMSG 1,"sblocco e libero il semaforo" : CLS
VIMSG 1,"ora cancello un carattere alla volta|dalla stringa "+S$
CICLO3:
LUNG=LEN(S$) : IF LUNG<5 THEN GOTO FINE ELSE PRINT "": PRINT "
"+S$
S$=LEFT$(S$,LUNG-1): GOTO CICLO3
FINE:
VIMSG 1,"Esempio Terminato"
END ' per non proseguire con il codice di libreria
'LIBRERIA 'SPX901' elaborazioni numeriche
ETIC1:
N=N1+N2:NEG=N:NN=N*1.5498:NNN=ARRO(NN,3,1):NNNN=ARRO(NN*100,3,1)/100
PRINT" N1 e N2 valgono
= "+STR$(N1,0,1)+" e "+STR$(N2,1,0)
PRINT" N1 + N2 valgono
N = "+STR$(N,-1,0)
PRINT" N negativo vale
NEG =" +STR$(NEG,-1,0)
PRINT" NEG in valore assoluto
= "+STR$(ABS(NEG),0,0)
PRINT" NEG in lettere
= "+CIFLET$(NEG)
PRINT" N * 1.5498 vale
NN = "+STR$(NN,-1,0)
PRINT" NN fissato a 3 decimali
= "+STR$(FIX(NN,3),-1,0)
PRINT" NN arrotondato vale
NNN = "+STR$(NNN,-1,0)
PRINT" NN arrotondato meglio NNNN = "+STR$(NNNN,-1,0)
PRINT" NNNN in lettere
= "+CIFLETDEC$(NNNN,3)
PRINT" NN+NNNN= "+STR$(NN+NNNN,-1,0)
SETDECFIX 2: PRINT" NN+NNNN fissato a 2 dec.li = "+STR$(NN+NNNN,1,0)
PRINT" Carattere ASCII di 83
= "+CHR$(83)
120  MANUALE SPRIX/COLLAGE