Inscription : 05 Août 2011, 14:38 Message(s) : 193
Il reste pas mal de listings en basic a se farcir… J'en ai déjà tapé des tonnes... j'ai pensé utiliser un ocr avec mon pc pour convertir mon scan en ascii . Et bien non, de nombreuses erreurs arrivent un B devient un 8 ou inversément, un 0 est un O ou inversément un , devient . etc... C'est plus long de corriger les erreurs que de taper soi-même le programme. Les supers logiciels de conversion ne convertissent pas bien nos instructions ! Malgré l'apprentissage il ne reconnait pas mieux Quelqu'un a-t-il une idée ?
Il reste pas mal de listings en basic a se farcir… J'en ai déjà tapé des tonnes... j'ai pensé utiliser un ocr avec mon pc pour convertir mon scan en ascii . Et bien non, de nombreuses erreurs arrivent un B devient un 8 ou inversément, un 0 est un O ou inversément un , devient . etc... C'est plus long de corriger les erreurs que de taper soi-même le programme. Les supers logiciels de conversion ne convertissent pas bien nos instructions ! Malgré l'apprentissage il ne reconnait pas mieux Quelqu'un a-t-il une idée ?
Un soir on a fait du collaboratif sur un des chat discord, on s'est pris un listing de magazine et chacun a tapé un bout du listing dans son coin ensuite on a fait des merge
Enfin, on s'est aperçu que le truc était dispo sur cpc-p0wer
Je le trouve très bon, et c'est pour cela que je te le recommande. En Français, car parfois ça passe mal en Anglais…
Fais un test.
Le gros problème sur cet OCR, c'est qu'il met tout à la suite… donc il faut ajouter des retours chariot à chaque line.
Je ne compte plus les listings du Zx81, Spectrum et CPC que j'ai converti avec ce site. Il faut juste préparer tes images en les nettoyant, taille A4 en 200dpi et tout et tout…
Mais, parfois tout marche bien sans rien toucher !
10 'Program must be copied exactly with exception 20 'of rems.If you prefer to make some changes, 30 'type program as written, if it works (it should) 40 'save it and then you may be able to do some 50 'small changes. 60 REM********** 5 IN ROW ********** 70 CALL &BC02:SYMBOL AFTER 32 80 fla=0:GOSUB 1340 90 '********** JJ VINOPAL ********** 100 '********* 22 GROONGAL ST ******* 110 '********** MAYFIELD WEST ******* 120 '1********** N.S.W. 2304 ******** 130 MODE 1:INK 0,0:INK 1,24:INK 2,6:INK 3,11 140 :BORDER 0:PAPER 0:PEN 1:i$=CHR$(24) 150 ON BREAK GOSUB 1300:PEN 1:GOSUB 1290 160 GOSUB 860:GOSUB 1290:GOSUB 1650:GOSUB 290 170 :GOSUB 460:GOSUB 1290:GOSUB 290:GOSUB 1290 180 GOSUB 590:GOSUB 1290:GOSUB 290:GOSUB 1290 190 ' 200 REM****** I win ****** 210 IF posi>3 THEN GOSUB 440:PRINT " I win ! ":GOTO 1170 220 GOTO 170 230 ' 240 REM****** select ****** 250 :spot=hor 260 :spot=spot+set:IF hor(spot)<>y THEN RETURN 270 calk=calk+1:GOTO 260 280 ' 290 :REM****** board ****** 300 LOCATE 1,1:PEN 1:ZONE 6 310 PRINT,"1 2 3 4 5 6 7 8";:PEN 3 320 PRINT" FIVE IND":PEN 1:PRINT 330 FOR hor=1 TO 8:PRINT TAB(4);hor; 340 FOR ver=2 TO 9:mark=hor(hor*10+ver) 350 IF mark=comp THEN GOSUB 1500 360 SOUND 1,200+(hor*10),1,15 370 IF mark=hum THEN PEN 2:GOSUB 1550 380 IF mark=207 THEN PEN 3:GOSUB 1600 390 PEN 1:NEXT:PRINT CHR$(8);hor:PRINT:NEXT 400 PRINT,"1 2 3 4 5 6 7 8";:PEN 3 410 PRINT " A ROW !!":RETURN 420 ' 430 REM****** ink ****** 440 :LOCATE 28,10:INK 2,8,24:PEN 2:RETURN 450 ' 460 :REM****** input ****** 470 GOSUB 1290 480 :PEN 2:LOCATE 2,21:PRINT base$:LOCATE 2,22:PRINT bases 490 LOCATE 2,23:PRINT base$:PEN 1:PRINT CHR$(22);CHR$(1) 500 LOCATE 5,22:PRINT"Please enter your move "; 510 LOCATE 29,22:INPUT MOV:PRINT CHR$(22);CHR$(0):MOV=MOV+1 520 IF MOV<12 OR MOV>89 THEN 480 530 IF hor(MOV)<>207 THEN 480 540 y=hum:PEN 2:LOCATE 2,21:PRINT bases:LOCATE 2,22:PRINT bases 550 LOCATE 2,23:PRINT base$:PRINT CHR$(22);CHR$(1) 560 PEN 1:LOCATE 5,22:PRINT"Wait for me or else!"; 570 PRINT CHR$(22);CHR$(0):hor(MOV)=y:RETURN 580 ' 590 :REM****** main ****** 600 REM****** H win ****** 610 GOSUB 1220 620 IF posi>3 THEN GOSUB 440:PRINT " You win ! " :GOTO 1170 630 stim=res 640 :IF stim<>2 THEN y=comp 650 IF stim=2 THEN y=hum 660 MOV=0:hum1=0:posi=0 670 FOR hor=12 TO 89:mark=0 680 IF hor(hor1<>207 THEN 720 690 GOSUB 1050 700 IF mark<=huml THEN 720 710 huml=mark:MOV=hor 720 :NEXT 730 IF huml<>0 THEN 820 740 stim=stim+1:IF stim<>4 THEN 640 750 hor=res 760 :MOV=CINT(RND*771+12 770 IF hor(MOV)=207 THEN 820 780 hor=hor+1:IF hor<100 THEN 760 790 ' 800 REM`*** draw ****** 810 GOSUB 440:PRINT "It's draw!":GOTO 1170 820 :hor(MOV)=comp:y=comp 830 GOSUB 1220 840 RETURN 850 ' 860 :REM****** title ****** 870 CLS:base$=STRING$(37,227):wals=STRING$(9,227) 880 IF fla=1 THEN 890 ELSE DIM hor(100),x(4) 890 x(1)=1:x(2)=9:x(3)=10:x(4)=11 900 FOR comp=1 TO 8:FOR ver=2 TO 9 910 hor(comp*10+ver)=207:NEXT:NEXT 920 hum=249:comp=225:GOSUB 1770 930 INK 0,0:INK 1,24:INK 2,6:INK 3,11 940 PEN#1,0:PRINT#1:PRINT#1:PRINT#1 950 PRINT#1," *:[ FIVE I N A R 0 W7*":PRINT#1 960 PRINT#1:PEN#1,1:PRINT#1," By J.J."t$" @1986":PEN#1,2 970 LOCATE#1,1,12:PRINT#1," "is" Ente r 'Y' -if you want the "i$ 980 PRINT#1:PRINT#1," "i$" first move ..'N' if you don't!! ";i$ 990 res=ASC(b$)-72:set=0:set=set+1 1000 :a$=INKEY$:IF a$=""THEN 1000 1010 CLS:IF a$="y"OR a$="Y"THEN RETURN 1020 FOR j=1 TO CINT(RND*12):READ y:NEXT:y=y+30:hor(y)=comp:RETURN 1030 ' 1040 REM *** H calcul ****** 1050 :FOR x=res TO 4:calk=0:set=x(x) 1060 GOSUB 250:set=-set:GOSUB 250 1070 IF calk>posi THEN huml=0:posi=calk 1080 IF posi<>calk THEN 1110 1090 IF stim=res AND posi<4 OR (stim=2 OR stim=3) AND posi<2 THEN 1110 1100 mark=mark+1 1110 :NEXT:RETURN 1120 ' 1130 REM`*** data ****** 1140 DATA &19,&E,&5,&24,&10,&11,&4,8418,&36,&1A,&1B,&2D 1150 ' 1160 REM****** end ****** 1170 :FOR s=1 TO 21:SOUND 1,140+15*s,22-s,14 1180 SOUND 1,930,22-s,14:SOUND 1,240,22-s,14 1190 NEXT:CALL &BC02:LOCATE 29,22:PRINT" NEW GAME?" 1200 CALL &BB18:fla=1:GOTO 130 1210 ' 1220 :REM****** CALCUL ****** 1230 hor=MOV:posi=0:FOR x=res TO 4:calk=0:set=x(x) 1240 GOSUB 250:set=-set:GOSUB 250 1250 IF calk>posi THEN posi=calk 1260 NEXT:RETURN 1270 ' 1280 REM****** sound ****** 1290 :SOUND 1,11,5,15:SOUND 2,21,5,15:RETURN 1300 :INK 0,0:INK 1,13:MODE 2:PAPER 1:PEN 0:CLS:LIST 1310 :RUN 140 1320 ' 1330 REM****** symbols ****** 1340 :SYMBOL 225,60,36,231,165,189,90,24,102 1350 SYMBOL 216,128,124,32,16,8,5,5,5 1360 SYMBOL 217,8,16,32,64,128,4,2,1 1370 SYMBOL 218,0,0,0,16,0,18,127,128 1380 SYMBOL 219,0,0,0,1,1,36,251;4 1390 SYMBOL 220,0,0,0,192,52,138,133,64 1400 SYMBOL 221,16,8,4,4,2,2,225,30 1410 SYMBOL 222,21,133,68,56,0,0,0,0 1420 SYMBOL 223,33,1,130,124,0,0,0,0 1430 SYMBOL 224,64,32,32,16,16,8,8,0 1440 SYMBOL 226,0,24,24,24,66 1450 SYMBOL 249,28,28,72,62,9,24,164,70 1460 SYMBOL 250,12,0,64,8,9,8,128,130 1470 SYMBOL 227,254,254,254,0,239,239,239,0 1480 RETURN 1490 ' 1500 :REM`*** picturel ****** 1510 PRINT CHR$(128)::PRINT CHR$(22);CHR$(1); 1520 PRINT CHR$(8);CHR$(225);:PEN 2:PRINT CHR$(8);CHR$(226); 1530 PRINT" ";CHR$(221;CHR$(0)::RETURN 1540 ' 1550 :REM****** picture2 ****** 1560 PEN 1:PRINT CHR$(128);:PRINT CHR$(22):CHR$(1); 1570 PRINT CHR$(8);CHR$(249);:PEN 3:PRINT CHR$(8);CHR$(250); 1580 PRINT" ";CHR$(22);CHR$(0);:RETURN 1590 ' 1600 :REM****** lot ****** 1610 PRINT CHR$(128);:PRINT CHR$(22);CHR$(1); 1620 PRINT CHR$(8);CHRS(207);:PEN 2:PRINT CHR$(8);CHR$(144); 1630 PRINT" ":CHR$(22):CHR$(0);:RETURN 1640 1650 :REM`*** sign ****** 1660 PEN 3:LOCATE 28,4:PRINT iS"Newcastle":LOCATE 28,5:PRINT" Amstrad ";i$ 1670 LOCATE 28,6:PRINT is" Users ":LOCATE 28,7:PRINT" Group ";i$ 1680 LOCATE 28,9:PRINT wal$:LOCATE 28,11:PRINT wal$ 1690 LOCATE 28,8:PRINT is" ":LOCATE 28,10:PRINT i$wal$ 1700 LOCATE 28,3:PRINT is" ":LOCATE 28,15:PRINT" "t$" ";i$ 1710 LOCATE 28,13:PRINT i$" "CHR$(164)"1986" 1720 LOCATE 28,14:PRINT" J.J. ";i$ 1730 LOCATE 28,12:PRINT is" ":LOCATE 28,17:PRINT" ";i$ 1740 LOCATE 28,16:PRINT $"Australia";$ :RETURN 1750 ' 1760 REM******* title a ****** 1770 :LOCATE 18,8:FOR w=216 TO 221:PRINT CHR$(w);:NEXT 1780 LOCATE 18,9:PRINT CHR$(222)CHR$(223 )" "CHR$(224)" " 1790 t$="VINOPAL":ORIGIN 0,0:TAG:x=142:y =380 1800 FOR t=1 TO 16 1810 PLOT -10,-10,VAL(MID$("132123133212312123",t,1)):ty=y-t*6 1820 IF t<6 THEN MOVE x-t*24,ty:PRINT"JJV";:MOVE x+310+t*24,ty:PRINT"JJV"; 1830 MOVE x+96-t*12,ty:PRINT"1986 JJ";:MOVE x+182+t*12,ty:PRINT t$; 1840 SOUND 1,14,1,9:NEXT:b$=MID$(t$,2,1):TAGOFF 1850 WINDOW#1,1,40,10,25:PAPER#1,3:PEN#1,1:CLS#1 1860 RETURN
10 'Program must be copied exactly with exception 20 'of rems.If you prefer to make some changes, 30 'type program as written,if it works (it should) 40 'save it and then you may be able to do some 50 'small changes. 60 REM ****** TWIST CUBE ********* 70 REM ****** copyrights (c) ****** 80 REM ****** J.J.VINOPAL ****** 90 REM ****** ++++++++++++++ ****** 100 REM ****** MAYFIELD WEST ****** 110 REM ****** NSW 2304 ****** 120 REM 130 CALL-&43FE:MODE 1:INK 0,0:INK 1,6:INK 2,9:INK 3,26 140 ON BREAK GOSUB 1780 150 REM 160 REM ********* dimensions ********** 170 DIM b(16),c(4):tw=0:b=1:c=0:x=0:d$="J.J.VINOPAL":m$=CHR$(11) 180 f$=STRING$(38,32):e$=MID$(d$,6,1):k$=CHR$(8):j$=CHR$(10) 190 zl$=(CHR$(22)+CHR$(1)):z0$=(CHR$(22)+CHR$(0)):ol$=CHR$(15) 200 il$=CHR$(24):GOSUB 1240:GOSUB 1920 210 CALL-&43FE:MODE 1:INK 0.0:INK 1,6:INK 2,9:INK 3,26 220 WINDOW#1,9,28,4,24:WINDOW#2,30,39,12,18:WINDOW#3,6,9,4,24 230 PEN#1,1:PAPER#1,3:CLS#1:PAPER#3,3:CLS#3 240 u$="M.J.LINHART":d=ASC(e$)-72:GOSUB 1100 250 REM 260 REM ************ made array ***Mt* 270 FOR b=1 TO 4:b(b)=CINT(b/2):b(b+4)=CINT(b/2) 280 b(b+8)=CINT(b/2)+2:b(b+12)=CINT(b/2)+2 290 NEXT 300 IF d=1 THEN GOSUB 420 ELSE CALL &4006 310 REM 320 REM ********** twistiRs *********** 330 PEN 1:IF tw<11 THEN LOCATE 21,2:PRINT"randomly twistine":tw=tw+1 340 SOUND 1,12,1,15:1F tw<11 THEN x=CINT (RND*12) 350 IF tw>10 THEN GOSUB 500 360 IF x<2 OR x=5 OR x=9 OR x>12 THEN 34 0 370 GOSUB 640 380 IF tw<10 THEN LOCATE 23,3:PRINT"twist"tw" times" 390 GOSUB 420:tw=tw+1 400 GOTO 340 410 REM 420 REM ********** print board *********** 430 BORDER 0:LOCATE #1,1,3 440 FOR b=1 TO 16:GOSUB 800:REM 2 b(b) 450 SOUND 1,999,1,15 460 IF b/4=INT(b/4) THEN GOSUB 1160:REM 1-9 470 NEXT 480 RETURN 490 REM 500 REM ********** input *********** 510 PEN 3 520 IF tw>10 THEN GOSUB 690:CALL &BB9C:LOCATE 15,2:PRINT"Your twist it "tw-11" times":CALL &BB9C 530 IF tw<11 THEN RETURN 540 PRINT" "f$ 550 LOCATE 31,5:PRINT"CHOICE?":LOCATE 31,6:PRINT"<1-9 >" 560 PEN 1:LOCATE 29,20:PRINT d$:LOCATE 29,22:PRINT u$ 570 a$=INKEY$:IF a$="" THEN 570 580 x=VAL(a$):IF x<1 OR x>9 THEN 570 590 SOUND 1,800,10,15 600 IF x<4 THEN x=x+1:RETURN 610 IF x<7 THEN x=x+2:RETURN 620 x=x+3:RETURN 630 REM 640 REM *********** twist ********** 650 c(1)=b(x):c(2)=b(x+4):c(3)=b(x+3):c(41=b(x-1) 660 b(x)=c(4):b(x+4)=c(1):b(x+3)=c(2):b(x-1)=c(3) 670 RETURN 680 REM 690 REM ********** check ************ 700 sc=0:IF b(1)=1 AND b(2)=1 AND b(5)=1 AND b(6)=1 THEN sc=sc+1 710 IF b(3)=2 AND b(4)=2 AND b(7)=2 AND b(7)=2 THEN sc=sc+1 720 IF b(9)=3 AND b(10)=3 AND b(13)=3 AND b(14)=3 THEN sc=sc+1 730 IF b(11)=4 AND b(12)=4 AND b(15)=4 AND b(16)=4 THEN sc=sc+1 740 IF sc<>4 THEN RETURN 750 REM 760 REM ********** end *********** 770 INK 3,1,3:PEN 3:PRINT"good":PRINT"bY e! 11" 780 GOSUB 2230:CALL-17640:RUN 790 REM 800 REM ******** picture ********** 810 wi=1:IF b(b)=1 THEN GOSUB 880 820 IF b(b)=2 THEN GOSUB 930 830 IF b(b)=3 THEN GOSUB 980 840 IF b(b)=4 THEN GOSUB 1030 850 RETURN 860 REM 870 REM ******** draw 4 signs ********* 880 PRINTftwi," "j$k$k$" "m$k$k$: 890 PRINT#wi,z1$ol$"1"CHR$(129)+CHR$(130)j$k$k$CHR$(132)+CHR$(135)m$; 900 PRINT#wi,k$ol$"2"CHR$(131)j$k$k$CHR$(133)+CHR$(136)k$k$; 910 PRINT#wi,ol$"0"CHR$(134)+CHR$(137); 920 PRINT#wi,z0$m$" ";:RETURN 930 PRINT#wi," "j$k$k$" "m$k$k$; 940 PRINT#wi,z1$ol$"0"CHR$(140)+CHR$(141)j$k$k$CHR$(143)+CHR$(145)12$; 950 PRINT#wi,k$k$ol$"1"CHR$(139)k$J$CHR$(144)+CHR$(138)m$k$ol$"2"; 960 PRINT#wi,CHR$(142)j$k$k$CHR$(137)+CHR$(137); 970 PRINT#wi,z0$m$" ";:RETURN 980 PRINT#wi," "i$k$k$" "m$k$k$; 990 PRINT#wi,z1$(31$"2"CHR$(149)+CHR$(151)j$k$k$CHR$(153)+CHR$(156)m$; 1000 PRINT#wi,ol$"0"k$k$CHR$(148)+CHR$(150)j$k$k$CHR$(155)+CHR$(158); 1010 PRINT#wi,m$ol$"1"k$k$CHR$(147)+CHR$(152)j$k$k$CHR$(154)+CHR$(157); 1020 PRINT#wi,z0$m$" ";:RETURN 1030 PRINT#wi," "j$k$k$" "m$k$k$; 1040 PRINT#wi,z1$ol$"1"CHR$(160)+CHR$(163)j$k$k$CHR$(166)+CHR$(170)m$; 1050 PRINT#wi,k$k$ol$"2"CHR$(161)+CHR$(164)k$J$k$CHR$(168)+CHR$(169)m$k$; 1060 PRINT#wi,ol$"0"k$CHR$(162)+CHR$(165)k$j$k$CHR$(167)+CHR$(171); 1070 PRINT#wi,z0$m$" ";:RETURN 1080 REM 1090 REM ******** side signs ********** 1100 PAPER#2,3:CLS#2 1110 PEN#2,2:LOCATE#2,2,2:wi=2:GOSUB 890:LOCATE#2,6,2:GOSUB 940 1120 LOCATE#2,2,5:GOSUB 990:LOCATE#2,6,5:GOSUB 1040 1130 PEN#wi3O:FOR dd=1 TO 7:LOCATE#2,9,dd:PRINT#wi,i1$" "il$;:NEXT 1140 RETURN 1150 REM 1160 REM ************ heading 1-9 ****** ***** 1170 PEN#1,2:IF b=4 THEN PRINT#1,J$j$" "b-3" "b-2" "b-1 1180 IF b=8 THEN PRINT#1,j$j$" "b-4" "b-3" "b-2 1190 IF b=12 THEN PRINT#1,j$j$" "b-5" "b-4" "b-3 1200 PEN#1,1:PRINT#1 1210 RETURN 1220 REM 1230 REM ********* define symbols ********* 1240 SYMBOL AFTER 128 1250 SYMBOL 246,128,124,32,16,8,5,5,5 1260 SYMBOL 247,8,16,32,64,128,4,2,1 1270 SYMBOL 248,0,0,0,16,0,18,127,128 1280 SYMBOL 249,0,0,0,1,1,36,251,4 1290 SYMBOL 250,0,0,0,192,52,138,133,64 1300 SYMBOL 251,16,8,4,4,2,2,225,30 1310 SYMBOL 252,21,133,68,56,0,0,0,0 1320 SYMBOL 253,33,1,130,124,0,0,0,0 1330 SYMBOL 254,64,32,32,16,16,8,9,0 1340 SYMBOL 129,0,1,3,2,2,2,2,2'g 1350 SYMBOL 130,0,2,255,17,17,17,17,17'g 1360 SYMBOL 131,252,252'r 1370 SYMBOL 132,255,127,127,199,131'g 1380 SYMBOL 133,0,0,128,0,0,16'r 1390 SYMBOL 134,0,0,0,56,68,68,68,56'b 1400 SYMBOL 135,255,255,255,226,193'g 1410 SYMBOL 136,0,0,0,1,0,8'r 1420 SYMBOL 137,0,0,0,28,34,34,34,28'A-b-g 1430 SYMBOL 139,10,16'r 1440 SYMBOL 140,0,0,120,120,48,50,50,255 11 'b 1450 SYMBOL 141,0,255,34,34,34,34,34,255 'b 1460 SYMBOL 142,82'g 1470 SYMBOL 143,170,255,255,99,221'b 1480 SYMBOL 144,85,0,0,128,0,8'r 1490 SYMBOL 145,183,193,255,227,221'b 1500 SYMBOL 138,72,54,0,0,0,8'r 1510 SYMBOL 147,2,0,0,0,1'r 1520 SYMBOL 148,0,0,0,0,240'b 1530 SYMBOL 149,0,7,15,240,6,15,15,8'A 1540 SYMBOL 150,0,0,0,0,132'b 1550 SYMBOL 151,0,240,248,96,48.120,248,8'g 1560 SYMBOL 152,0,0,0,128,64,128'r 1570 SYMBOL 153,127,191,223,58,42,57'A 1580 SYMBOL 154,0,64,0.0,16'r 1590 SYMBOL 155,0,0,0,129,129,128,200,126'b 1600 SYMBOL 156,254,253,251,92,84,156'g 1610 SYMBOL 157,0,2,0,0,8'r 1620 SYMBOL 158,0,0,0,129,129,1,35,254'b 1630 SYMBOL 160,147,224,128,64,64,64,64,64'r 1640 SYMBOL 161,0,22,96,1'g 1650 SYMBOL 162,0,0,2,4,8,10,17,16'b 1660 SYMBOL 163,248,0,0,64,0,64,0,64'r 1670 SYMBOL 164,0,12,0,16'g 1680 SYMBOL 165,0,240,72,4,66,10,81,33'b 1690 SYMBOL 166,106,64,32,0,32'r 1700 SYMBOL 167,21,16,17,122,140,136,142,113'b 1710 SYMBOL 168,0,0,0,0,0,33'g 1720 SYMBOL 169,64,0,0,0,0,16'g 1730 SYMBOL 170,128'r 1740 SYMBOL 171,21,161,81,10,66,4,72,240'lb 1750 RETURN 1760 REM 1770 REM ************ inks ************** 1780 CALL &BC02:MODE 2:INK 2,13:INK 1,26:PEN 1:LIST 1790 REM 1800 REM ******** title a ********* 1810 :LOCATE 18,8:FOR w=246 TO 251:PRINT CHR$(w);:NEXT 1820 LOCATE 18,9:PRINT CHR$(252)CHR$(253)" "CHR$(254)" " 1830 t$=RIGHT$(d$,7):w$="LINHART":ORIGIN0,0:TAG:x=142:y=380 1840 FOR t=1 TO 16 1850 PLOT -10,-10,VAL(MID$("132123133212312123",t,1)):ty=y-t*6 1860 IF t<6 THEN MOVE x-t*24,ty:PRINT"JJV";:MOVE x+310+t*24,ty:PRINT"MJL"; 1870 MOVE x+96-t*12,ty:PRINT t$;:MOVE x+162+t*12,tv:PRINT w$; 1880 SOUND 1,14,1,9:NEXT:TAGOFF 1890 WINDOW#1,1,40,10,25:PAPER#1,3:PEN#1,1:CLS#1 1900 RETURN 1910 REM 1920 REM ********* title b *********** 1930 CLS.:i$=CHR$(24) 1940 GOSUB 1800 1950 INK 0,0:INK 1,24:INK 2,6:INK 3,11 1960 PEN#1,0:PRINT#1:PRINT#1:PRINT#1 1970 PRINT#1," *C TWIST I N A C U B E ]*":PRINT#1 1980 PRINT#1:PEN#1,1:PRINT#I," y J.J."t$" @1986":PEN#1,2 1990 LOCATE#1,1,12:PRINT#1," "i$" Ent er 'Y' for instructions "i$ 2000 PRINT#1:PRINT#1," "i$" Enter 'N' if you don't need it! ";i$ 2010 :a$=INKEY$:IF a$=""THEN 2010 2020 CLS:IF a$="y"OR a$="Y"THEN GOTO 2060 2030 RETURN 2040 REM 2050 REM ******** instructions board ********* 2060 MODE 1:CLS:PRINT"Instructions" 2070 PRINT:PRINT CHR$(238)STRING$(38,198)CHR$(238) 2080 FOR s=4 TO 23:LOCATE 1,s:PRINT CHR$(197):LOCATE 40,5:PRINT CHR$(199):NEXT 2090 LOCATE 1,24:PRINT CHR$(238)STRING$(38,196)CHR$(238) 2100 LOCATE 12,25:PRINT "J.Vino p a1"i$ 2110 WINDOW #4,3,38,5,22:PAPER #4,1:PEN #4,2:CLS#4 2120 REM 2130 REM *******instructions ******** 2140 PRINT#4:PRINT#4 2150 PRINT#4," YOU MUST TWIST CLOCKWIS E NEST OF":PRINT#4 2160 PRINT#4,"4 SIGNS SO AS TO FINALLY ARRIVE AT":PRINT#4 2170 PRINT#4," THE SMALL PICTURE ON THE RIGHT. IT":PRINT#4 2180 PRINT#4," IS LIKE A 2D RUBIC CUBE. THE TOP ":PRINT#4 2190 PRINT#4," LEFT MUST BE 4 CARS, TOP RIGHT 4":PRINT#4 2200 PRINT#4," TRAINS, BOTTOM LEFT 4 TANKS AND ":PRINT#4 2210 PRINT#4," BOTTOM RIGHT 4 BICYCLES. JJV" 2220 GOSUB 2230:CALL &BB18:RETURN 2230 REM 2240 REM ****** sound ****** 2250 :ENT -1,1,-7,8,1,7,8,8,1,1,8,1,7:SOUND 1,60,770,9,0,1 2260 ENT -5,4,1,1,4,-1,1 2270 FOR w=1 TO 2:RESTORE 2300:FOR n=0 TO 14 2280 READ p:SOUND 2,p*2,30,14-w*3,,5:NEXT:NEXT 2290 p=0:w=0:n=0:RETURN 2300 DATA 119,119,126,134,134,142,150,179,189;213,239,239,179,189,213
Inscription : 05 Août 2011, 14:38 Message(s) : 193
Ca marche pas trop mal J'ai passé 1h pour corriger les fautes du 2eme fichier... C'est déjà un fameux gain de temps Vais essayer de mettre la police dans mon OCR et on verra si ça va un peu mieux Merci pour l'info
Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 8 invité(s)
Vous ne pouvez pas publier de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas insérer de pièces jointes dans ce forum