1 '.... 'JUMP' by Consalvi Software ....
10 CLS:LINE(0,0)-(239,63),1,B
20 PRINT@56,"J U M P";:PRINT@127,"Premi  (I) per istruzioni":PRINT@207,"Premi  (G) per cominciare":PRINT@313,"M=Men`";
30 I$=INKEY$:IFI$="G"ORI$="g"THEN100
40 IFI$="M"ORI$="m"THENMENU
50 IFI$="I"ORI$="i"THEN1000
60 GOTO30
100 CLS:X$=CHR$(27)+"p":Y$=CHR$(27)+"q":LINE(0,0)-(239,63),1,B:LINE(3,3)-(116,60),1,B
110 LINE(121,3)-(236,60),1,B
120 PRINTX$;:PRINT@26," J U M P ";:PRINT@142," score  : ";:PRINT@222," errors : ";:PRINTY$;:PRINT@154,"0";:PRINT@233,"10";
130 ER=15:SO=10000:SC=0
140 O$=CHR$(205):Y=6:S$=" "+STRING$(16,243)+" ":PRINT@41,S$;:PRINT@10+Y*40,O$;
150 IFER=0THEN700
160 IFSC<>0ANDSC=16ORSC=36ORSC=56ORSC=76THEN500
165 IFSC=96THENVI=1:GOTO700
170 I$=INKEY$
180 IFI$=" "ANDD=0THEND=1:W=1
190 IFD=0THEN400
195 IFD=2THEN250
200 PRINT@10+Y*40," ";:Y=Y-1
210 IFY<>1THEN400
220 IFPEEK(65074)=243THENSC=SC+1:S$=LEFT$(S$,9)+" "+MID$(S$,11):BEEP:D=2:PRINT@153,SC;:GOTO400ELSED=2:ER=ER-1:PRINT@233,ER;:SOUND4000,5
250 PRINT@10+Y*40," ";:Y=Y+1:IFY<>6THEN400
260 D=0
400 S$=RIGHT$(S$,1)+LEFT$(S$,17)
410 PRINT@41,S$;:SOUNDSO,1:PRINT@10+Y*40,O$;:GOTO150
500 SOUND0,45:SOUND3728,14:SOUND4184,6:SOUND3728,14:SOUND4184,14:SOUND3728,6:SOUND4184,14:SOUND3134,19:SOUND0,10:SOUND6269,25
510 SC=SC+4:D=0:GOTO140
700 CLS:IFVI=0THENPRINT@123,"Peccato !"
710 IFVI=1THENPRINT@123,"Bravo !"
720 BEEP:BEEP:PRINT@133,"Vuoi continuare ? (s/n)"
730 I$=INKEY$:IFI$="s"ORI$="S"THENCLEAR:RUN
740 IFI$="n"ORI$="N"THENMENU
750 GOTO730
1000 CLS:PRINT@16,"J U M P":PRINT@80,"Devi riuscire a distruggere la  barriera":PRINT"rotante saltando (premendo -space-). Per":PRINT"ogni pezzo rotto ottieni un punto, ma ..";
1010 I$=INKEY$:IFI$=""THEN1010
1020 CLS:PRINT"attenzione !!! Puoi fallire il bersaglio"
1030 PRINT"15 volte in tutto. Per ogni quadro fini-"
1040 PRINT"to avrai 4 punti in pi`. Il massimo pun-"
1050 PRINT"teggio ] 96 punti. Buona fortuna !! ...";
1060 I$=INKEY$:IFI$=""THEN1060ELSERUN