ZXTape!FURTO p 0:7: 0,0; 7:"" 0,0; 7:7:"" #0,0; (7:7:"" -0,0; SCREEN @@MM  ~~E  @yg 9@Y1 !@A@x @!@@< @a@q@ @GYx  p @AC$] A p E @AG$G @  @$q @ A @Y @ ?A @ q @  q @ $A @ 9Q @ $A @ ! @y$QA @ gYI IB<|<<<>B<|> ofBBBB@BBB !|<0ZBB@B<BBB !>DB~|@BBB| ?DBBDBBB$BD?<8BBB<<<>????????????????????????????????????????????????????????????????????????????????????????????????)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))8888888888888888888888888888888888888888888888888888888888888888X |;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33|;; *=\s#rv͎{ ::\ ( ((<2\6!%"B\!"D\;;} CODICE 76 / 76082660899 7:0:7: ,23658j\,8:236099\,100d "Inserisci il tuo Cognome" V$: "Ora dimmi il tuo Nome" N$: ;CT=0:CTOT=0:STIP=100000CP:BASE=0 &7:7:0:0:  BORDER 143,6,20,197,6,255,120x,211,254,16,251,193,16,245,251,201 1N=015:DATI:50000P+N,DATI:N PQ$="OGGI E' UNA BELLISSIMA GIORNATA.FINALMENTE IL TERMINALE VIDEO DEL MAIN FRAME, SITUATO NELLA SEDE CENTRALE DELLA TUA SOCIE- TA', TI E' STATO FINALMENTE CON-SEGNATO.":900 U ZQ$="ORA PUOI SVOLGERE LE 4 OPERAZIO-NI ARITMETICHE IN MANIERA PIU' VELOCE E PIU' SICURA CHE NON CO-ME FACEVI PRIMA CON CARTA E PEN-NA.":900 _ dQ$="LA TUA INSISTENZA PRESSO LA DI- REZIONE E' STATA PREMIATA. CON QUESTO PERSONAL, TU CHE SEI UN ABILISSIMO PROGRAMMATORE, PO- TRAI FACILMENTE ACCEDERE AL ~SI-STEMA PRINCIPALE~ E LEGGERNE IL SEGRETISSIMO CONTENUTO.":900 i k23692\,255 nQ$="E NATURALMENTE POTRAI ANCHE MO- DIFICARLO A TUO VANTAGGIO. PER ENTRARE NEL SISTEMA OPERATIVO DEVI MANIPOLARE OPPORTUNAMENTE IL PROGRAMMA,SUPERARE VARIE PRO-TEZIONI E MODIFICARE IL TUO STI-PENDIO.":900 s xQ$="ATTENTO PERO' A NON ESSERE TROP-PO INGORDO, ALTRIMENTI COME FA- RAI DOPO 4 ANNI A FUGGIRE ALLE HAWAI CON UNA STUPENDA BIONDA?":900 YN=11 16:1;6;N,0;" ":N /17,0;1;6;" " 1100L:  1000 "N=1̱Q$:TELESCRIVENTE @Q$(N);:.01z# =,40(:Q$(N)=32 .1}L,35# N  !CT=0:100d,150 36$,0 0,-36$ -36$,0 0,36$ (110n,150:0,-10 $5,1,2 .0,8 8110n,125} B20,1,2 L115s,135,2 V122z,135,2 `*8,5;"Benvenuto in Spectrum" j 400 t0:7:7: yn=13 ~90Z+n,150+n 75K,0 0,-110n &-75K,0:0,110n n n=13 95_+n,140+n J65A,0:0,-16:-65A,0:0,16 n 5y=8:x=12 :m$=" ":2000:y,x;"C" 5y=8:x=14:m$=" ":2000:y,x;"1" 5y=8:x=16:m$=" ":2000:y,x;"2" 5y=8:x=18:m$=" ":2000:y,x;"3" 6y=10 :x=12 :m$=" ":2000:y,x;"4" 6y=10 :x=14:m$=" ":2000:y,x;"5" 6y=10 :x=16:m$=" ":2000:y,x;"6" 6y=10 :x=18:m$=" ":2000:y,x;"7" 6y=12 :x=12 :m$=" ":2000:y,x;"8" 6y=12 :x=14:m$=" ":2000:y,x;"9"  6y=12 :x=16:m$=" ":2000:y,x;"0" 6y=12 :x=18:m$=" ":2000:y,x;"=" 6y=14:x=12 :m$=" ":2000:y,x;"x" 6y=14:x=14:m$=" ":2000:y,x;":" #6y=14:x=16:m$=" ":2000:y,x;"+" (6y=14:x=18:m$=" ":2000:y,x;"-" <r$="":per totale F70,0;6;2;1;"PREMERE" P9'"1)Ins.cifra"'"2)Ins.segno"'"3)Risultato"'"4)Cancella" Zx$=:x$=""1370Z d'x$<491ůx$>5241370Z nx$="1"5,13 ;" ":"INSERISCI NUMERO(MAX 4 CIFRE)";a$:r$=r$+a$:5,13 ;a$:a$>4r$="":5,13 ;" ":1390n Fx$="2""INSERISCI SEGNO (+-*/) ";s$:r$=r$+s$:5,13 ;r$ 8x$="3"5,13 ;" ";5,13 ;r$ 1x$="4"5,13 ;" ":1140t  1370Z rilievi 7x1=8*x+1:y1=8*(21-y)-2 xl=m$*8 x1,y1 xl,0:0,8 11,-1:0,-8:-xl,0   INIZIO VERO PROGRAMMA 6:1:1: N=15 M=06 pM;0,4;" " .05|L,40( : oM+1;" " .02{# =,502 M:N &N=1100d:50000P:N "SPECTRUM" "COMPUTER" "SOLDONI" "SGRAFIGNARE"  "ACCESSO" ( "PASSWORD" 2"INTERATTIVO" <"INTRODURSI" F"PROGRAMMARE" P"DEPAUPERARE" Z "INFILARSI" d"INCASTRARLO" n"SCASSINARE" x "RIUSCIRE"  612 ,0;"INTRODURRE LA PAROLA DI ACCESSO:" %C=(*14)*10 +2550 C Z$ -CP=Z$+4:N. PROVE A DISPOSIZIONE N=1̱Z$ 14,N;"." N K$="" L$=:L$=""2770 N=1̱Z$ L$=Z$(NN)14,N;L$ N X=1̱Z$ J$=(14,X)  K$=K$+J$ "aK$=Z$14,20;0;7;1;"O.K.":N=1600X:N:3000 )X *K$="" ,CP=CP-1 6CP=021,0;0;7;1;"PASSWORD NON ACCETTATA":N=1300,:N:CT=CT+1:8000@ @ 2770 SECONDA PROVA INIZ=0:MASSIMO=0 GN=12 21:N,0;" ":N N12 ,0;"INTRODUCI IL CODICE DI ACCESSO:";14,1;"...." TOT=0  -X=(*9999'):X<10003030 X$=X I$=:I$=""3040 14,1+TOT;I$ N=1502:N TOT=TOT+1 TOT33040 N=14 (14,N)X$(NN)14,15+N;0;5;"A";15,15+N;5;"L";16,15+N;5;"T";17,15+N;5;"O";18,15+N;" " (14,N)=X$(NN)14,15+N;0;4;"B";15,15+N;4;"E";16,15+N;4;"N";17,15+N;4;"E";18,15+N;" ":INIZ=INIZ+1 &N +pINIZ=414,25;1;"O.K.":N=1300,:N:4000:VA' ALLA TERZA PROVA -MASSIMO=MASSIMO+1 /DMASSIMO=6CT=CT+1:8000@:VA' ALLA PENALITA' 02N=1500:N:14,1;"...." :TOT=0:INIZ=0 3040  PROVA 3 7:7:0: ,1;"COMPUTER E RUMENTA VARIA S.p.A." &::2;"STIPENDIO DIPENDENTI:" :: -"SINCLAIR CLIVE";7,23;"400000" '"TOPOLINO";8,23;"600000" /"FELLINI FEDERICO";9 ,23;"550000" '"PAC MAN";10 ,23;"725000" +"LOREN SOFIA";11 ,23;"690000" )"MIA NONNA";12 ,23;"800000" -"MARLENE LILI'";13 ,23;"410000" )"ZOFF DINO";14,23;"590000" "-"PARISI HEATER";15,23;"600000" ,,V$+" "+N$;16,23;3;STIP 6"FATT=(*999999t#)*100d @@18,0;2;6;"FATTURATO SOCIETA':";FATT J520,0;"INSERISCI INCREMENTO STIPENDIO:" T!"DOPO PREMI ENTER ";T$ V BASE=T$ W16,23;" " XBASE1=STIP+BASE Y 16,(28-T$);BASE1 ^ STIP=BASE1 hBASEFATT/25021,20;1;"O.K.":CTOT=CTOT+1:N=1600X:N:(1140tCTOT4)+(6000pCTOT=5) ro1;21,0;"TROPPO ESOSO. SCOPERTO IL FURTO.":N=1600X:N:CT=5:8000@ pVIDEOGIOCO u 6400 z66B,24,137,36$,24,74J,169,24,44,,189,24,224,255,60<,7,60<,12 ,6,524,36$,255,82R,231,255,155  1:7:1: A$(32 ) B$(32 ) C$(32 )  G$(3)  Z=16 6010z:X=07 D,E,F "A"+X,D:"U"+X,E:"E"+X,F X G$="_"+164+"_" X=132 +19,X-1;6;1;"_" C$(X)=144 X X=132 2 A$(X)=144 X 2K=15+*35#:X=132 (4,0;A$(X);A$(X-1) 19,Z;6;G$ *Z=Z+(="M"Z<29)-(="N"Z>0) B=Z+X+1 B>32 B=B-32 "X"2:6160 8*Z+12 ,25:4;0,115s:4;4,Z+1;148:2+*3;1;0,-115s DA$(B)=144A$(B)=32 :0.02{# =,22:6150 7A$(B)=32 A$(B)=144:0.02{# =,0 /A$=B$6500d:INDIRIZZO PER VITTORIA  .A$=C$6170:INDIRIZZO PER PERDITA X K  $s5;"MA COSA MI COMBINI... HAI RI- SCHIATO DI ANDARE IN GALERA E NON SAI NEMMENO PREMERE DEI TA- STI!!!" .s5;1;21,0;" PREMI UN TASTO PER RICOMINCIARE":N=1300,:N:0:15 %:Q$="BRAVO, BRAVO...":900:  Q$="HAI ACCUMULATO PARECCHI SOLDI E HAI TUTTA L'INTENZIONE DI FUGGI-RE ALLE HAWAI CON LA TUA BIONDA SEGRETARIA.":900: Q$="PERO' SULLA TUA STRADA TROVI UNA SALA GIOCHI E TI VAI A FARE UNA PARTITINA... FINCHE' NON TI RIMANE NEANCHE UNA LIRA.":900: UQ$="I TASTI DA USARE SONO ~N~=SINI- STRA, ~M~=DESTRA E ~X~=FUOCO.":900::: (:Q$=" PREMI UN TASTO PER CONTINUARE ":900:0 2 df5;"MENO MALE CHE CI SEI TU, ALTRI- MENTI COME FAREMMO CON QUESTI CAVOLO DI EXTRATERRESTRI?" nr5;1;21,0;" PREMI UN TASTO PER CONTINUARE ":N=1300,:N:0:15 @PENALITA' J5:5:1: LCT=28100 NCT=38200 PCT=48300l RCT=58400 T%Q$="EGR. SIG. "+V$+",":900: ^Q$="LE COMUNICHIAMO CHE LEI, NON ES-SENDO AUTORIZZATO, HA CERCATO DI ENTRARE NEL SISTEMA OPERATI- VO. A SEGUITO DI TALE GRAVE IN- FRAZIONE RICEVERA'":900: hnQ$="UNA AMMONIZIONE VERBALE.":900:6,0;0;1;" "::: r;Q$=" LA DIREZIONE":900:2000:1140t PENALITA' 2 %Q$="EGR. SIG. "+V$+",":900: Q$="LE COMUNICHIAMO CHE LEI, NON ES-SENDO AUTORIZZATO, HA CERCATO DI ENTRARE NEL SISTEMA OPERATI- VO. A SEGUITO DI TALE GRAVE IN- FRAZIONE RICEVERA'":900: nQ$="UNA AMMONIZIONE SCRITTA.":900:6,0;0;1;" "::: ;Q$=" LA DIREZIONE":900:2000:1140t PENALITA' 3 %Q$="EGR. SIG. "+V$+",":900: Q$="LE COMUNICHIAMO CHE LEI, NON ES-SENDO AUTORIZZATO, HA CERCATO DI ENTRARE NEL SISTEMA OPERATI- VO. A SEGUITO DI TALE GRAVE IN- FRAZIONE RICEVERA'":900: &|Q$="LA SOSPENSIONE PER UN GIORNO.":900:6,0;0;1;" "::: 0;Q$=" LA DIREZIONE":900:2000:1140t lPENALITA' 4 v%Q$="EGR. SIG. "+V$+",":900: Q$="LE COMUNICHIAMO CHE LEI, NON ES-SENDO AUTORIZZATO, HA CERCATO DI ENTRARE NEL SISTEMA OPERATI- VO. A SEGUITO DI TALE GRAVE IN- FRAZIONE RICEVERA'":900: {Q$="LA SOSPENSIONE PER 5 GIORNI.":900:6,0;0;1;" "::: ;Q$=" LA DIREZIONE":900:2000:1140t PENALITA' 5 %Q$="EGR. SIG. "+V$+",":900: Q$="LE COMUNICHIAMO CHE LEI, NON ES-SENDO AUTORIZZATO, HA CERCATO DI ENTRARE NEL SISTEMA OPERATI- VO. A SEGUITO DI TALE GRAVE IN- FRAZIONE RICEVERA'":900: Q$="LA LETTERA DI LICENZIAMENTO E SARA' DEFERITO ALLA MAGISTRATURA":900:6,0;0;1;" "::: /Q$=" LA DIREZIONE":900:2000 !4FINE DEL GIOCO !>0:0:0: !H2;6;" QUESTA E' LA FINE CHE FANNO I PROGRAMMATORI INESPERTI E CHE CREDONO DI POTER FARE TUTTO. SEI STATO ESILIATO NEL DESERTO ELA CITTA' LA VEDI IN CARTOLINA.." !M !RA=120 !\6+(*2) !a!*255,75K+*60< !fA !p K=4 !z L(15) ! H(15) ! I(15) !A=115 !%L(A)=(2+(*2))*8 !2H(A)=(K+(*(2+K)))*8+(+K)-1 !I(A)=2+(*6) !A ! X=0 !A=115 ! X=X+L(A) !X<2558800`" !X>255 710" !A "L(A)=255-(X-L(A)) " X=255 " 8800`" "$ 7 ".,K=18900":FINE E REINIZIO "8 K=1 "B 8570z! "`I(A) "jY=0H(A)2 "t X-L(A),Y:L(A)-1,0 "~Y "&X-L(A),0:0,H(A)-1 ")X-1,0:0,H(A)-1 " ".#1,2;1;"VUOI RIPROVARE?" "A$=:A$=""8910" "8A$="S"A$="s"7:0:7::1000 "A$="N"A$="n"0 %12500 :ARRIVO DELLE ON ERROR E ON GOTO VSIVORINMARCOtotiCPasatQOGGI E' UNA BELLISSIMA GIORNATA.FINALMENTE IL TERMINALE VIDEO DEL MAIN FRAME, SITUATO NELLA SEDE CENTRALE DELLA TUA SOCIE- TA', TI E' STATO FINALMENTE CON-SEGNATO.(