ZXTape! 0Created with Ramsoft MakeTZXBANCA C/C =(/=*********************** * * * BANCA C/C * * * *  by Nedi Freguglia * * * ***********************   ** INIZIALIZZAZIONE *** =t$(400,6):d$(400,12 ):i(400) x="0" (<6:6:0:0::236099\,30 2* VISUALIZZA MENU * ";a$ P%a$<491ůa$>57970F Z(100da$="1")+(300,a$="2")+(500a$="3")+(700a$="4")+(900a$="5")+(1100La$="6")+(1300a$="7")+(1500a$="8")+(1700a$="9") _ 40( dIMMISSIONE MOVIMENTI nH7:7:1::0,6;"IMMISSIONE MOVIMENTI"'' s x=x+1 x"Data ";t$(x) }(t$(x))6120x x;(4);t$(x); ?"Descrizione (Max. 12 car.) ";d$(x):(11 );d$(x); "Importo ";i(x) i$=i(x) (32 -(i$));i(x) "Altri movimenti? (s/n) ";y$ y$="s"115s  ,VARIAZIONE MOVIMENTI 6"Num.Movimento ";z @z=0z>x3106 JL7:7:1::2,5;"CORREZIONE MOVIMENTO N. ";Z T%6,5;"1) Data = ";t$(z) ^)9 ,5;"2) Descriz. = ";d$(z) h(12 ,5;"3) Importo = ";i(z) r="Voce da modificare (1-3) (0 = nessuna modifica) ";v wv=0420 |v>3370r <v=1"Nuova Data ";t$(z):t$(z)6390 $v=16,15;t$(z) Ov=2"Nuova Descrizione (max.12 car.) ";d$(z):9 ,19;d$(z) Iv=3"Nuovo Importo ";i(z):i$=i(z):12 ,24-i$;i(z) "Altre modifiche? (s/n) ";y$ y$="s"y$="S"300,  VISUALIZZ.COMPLETA *e="1":l$="":sm="0":st="0":sw="1"  2,"S"  9100#  8000@ & 2 0 VISUALIZZ.PARZIALE p$="S":sw="0" 7:7::10 ,0;"Immettere la data fino alla qua-le devo raggruppare i movimenti"''" La somma di tali movimenti"'" verra' evidenziata come"''" SALDO INIZIALE" )"Data---> ";b$:b$6720 Hf$=b$(12):g$=b$(34):h$=b$(5):l$=g$ 8:10 ,0;" * CALCOLO DEL SALDO INIZIALE *"  7000X  2,p$ 9100#:st=st+si:i$=si  Ia,0;e;a,4;b$;a,11 ;"SALDO INIZ.";(32 -i$);si e=e+"1":a=a+"1"  8000@:2 * STAMPA COMPLETA *e="1":l$="":sm="0":st="0":sw="0"  2,"P"  9100#  8000@  2  LSTAMPA PARZIALE Vp$="P":sw="1" ` 710 j SORT PER DATA x7:7::10 ,0;1;"*** ORDINAMENTO E/C PER DATA ***"'''"------- ATTENDERE PREGO ------" e="1":switch="0" (c=ex-1 2>f$=t$(e)(12):u$=t$(e+1)(12) <>g$=t$(e)(34):v$=t$(e+1)(34) F0h$=t$(e)(5):z$=t$(e+1)(5) Ph$>z$3000 Zg$>v$h$=z$3000 df$>u$g$=v$h$=z$3000 i e=e+"1" nc sswitch="1"1310 x SALVATAGGIO SU NASTRO 6:6: c10 ,0;1;"* PREDISPORRE IL REGISTRATORE * "''" per il salvataggio dell'E/C " y$="" "BANCA C/C"40( ]:10 ,0;1;"** RICHIESTA VERIFICA ? ** ":13 ,13 ;"(s/n)" y$:y$="n"y$="N" y$"s"y$"S"1550 "A:10 ,0;1;" RIAVVOLGERE IL NASTRO PER LA " ,H12 ,0;1;1;" V E R I F I C A " 6F14,5;"quindi premere un tasto":0:y$="":6 @ "BANCA C/C" J FINE LAVORO 7:7: G9 ,0;2;1;"*** F I N E L A V O R O **" 612 ,0;"Per ripartire dare l'istruzione " (15,10 ;1;"GO TO 40"  STAMPA TOTALI DEL MESE i$=sm 7a,11 ;1;"*SALDO MESE";(32 -i$);sm a=a+"2":sm="0":  SORT a$=t$(e):b$=d$(e):n=i(e) t$(e)=t$(e+1) d$(e)=d$(e+1) i(e)=i(e+1) t$(e+1)=a$ d$(e+1)=b$ i(e+1)=n  switch="1"  XCALCOLO SALDO INIZIALE be="1":si="0":st=si:sm=si gsw=(ep$="S") lu$=t$(e)(12) vv$=t$(e)(34) z$=t$(e)(5) z$>h$e=e-"1": v$>g$z$=h$e=e-"1": u$>f$v$=g$z$=h$e=e-"1": 1si=si+i(e):e=e+"1":v$=g$sm=sm+i(e-1)  e>xe=x:  7020l @ROUTINE DI STAMPA Jc=ex Tm$=t$(e)(34) ^e=1l$=m$ hm$>l$2000:l$=m$ rsm=sm+i(e):st=st+i(e) |-a21sw=19000(#:r$="e" #a21sw=19100#  i$=i(e) Fa,0;e;a,4;t$(e);a,11 ;d$(e);(32 -i$);i(e) e=e+"1":a=a+"1" -a21sw=19000(#:r$="e" #a21sw=19100# c  2000 -a21sw=19000(#:r$="e" #a21sw=19100#  i$=st: Fa,11 ;2;"SALDO C/C...";(32 -i$);st:sw=0 P#0,0,0;2;1;" * FINE VISUALIZZAZIONE * " ;#0,1,0;"Premi un tasto per proseguire"  0  #(RICHIESTA CONTINUAZIONE #2;#0,0,0;1;"Premi 'e' per finire" #