Kitabı OCR yapmayı denedik. Metin kısımları oldukça başarılı olmasına rağmen kod kısımları saman kağıdına ve nokta vuruşlu yazıcı çıkışı olmasından ötürü kabul edilemez bir sonuç verdi.
Kodları yazıp test edenler buraya eklerse seviniriz. ılk parça ref'den geliyor:
1 REM LASER SAVASI
15 RANDOMIZE
20 PRINT AT 10,0;"ACIKLAMA e/h": BEEP .05,2: BEEP .05,4
25 PAUSE 0
30 IF INKEY$="e" OR INKEY$="E" THEN GO SUB 8500
50 LET hs=0
60 RESTORE 9000: GO SUB 9000
70 PAPER 0: BORDER 5: INK 5: CLS
80 FOR f=0 TO 31: PRINT AT 0,f; PAPER 5;" ": NEXT f
90 FOR f=0 TO 31 STEP 31: FOR g=1 TO 21: PRINT AT g,f; PAPER 5;" ": NEXT g: NEXT f
100 LET k=0
110 FOR f=1 TO 9: FOR g=1 TO 9-k
120 PRINT AT f,g; PAPER 5;" "
130 NEXT g
140 LET k=k+1
150 NEXT f
160 LET k=0
170 FOR f=1 TO 9: FOR g=22+k TO 30
180 PRINT AT f,g; PAPER 5;" "
190 NEXT g
200 LET k=k+1
210 NEXT f
220 PRINT AT 12,15; PAPER 5;" ";AT 13,14;" ";AT 14,13;" ";AT 15,12;" "
230 FOR f=16 TO 21: FOR g=11 TO 20: PRINT AT f,g; PAPER 5;" ": NEXT g: NEXT f
240 LET k=10: LET p=21
250 FOR f=1 TO 10
260 PRINT AT f,k; INVERSE 1;"\a";AT f,p;"\b": REM A ve B grafik modda yazilmali
270 LET k=k-1: LET P=p+1
280 NEXT f
290 LET k=14: LET p=17
300 FOR f=12 TO 15
310 PRINT AT f,k;"\a";AT f,p;"\b": REM 'A ve'B' Grafikmodda yazilmalidir.
320 LET k=k-1: LET p=p+1
330 NEXT f
340 LET S=0: LET mi=0: LET C=1
350 IF s>hs THEN LET hs=S
360 PAPER 5: INK 0: PRINT AT 0,0;"PUAN ";s,"REKOR ";hs;AT 17,12;" KACAN ";AT 19,15;mi
370 LET h=INT (21+9*RND): LET v=21
380 IF C<20 THEN LET a$="\e": LET Co=2: REM 'E' Grafik WOdda...
390 IF c>=20 THEN LET a$="\d": LET co=6: REM 'D'grafik Odda...
400 LET g=5
410 PRINT PAPER 0;AT 21,1;" "
420 PAPER 0: INK 7: PRINT AT 21,g;" \c ": REM Grafik modda 'C'"
430 PRINT INK co;AT v,h;a$
440 IF INKEY$="b" THEN GO SUB 7900: IF g=30-h THEN GO TO 7100
450 LET g=g+(INKEY$="8" AND g<9)-(INKEY$="5" AND g>0)
460 LET vy=INT (RND*60-C)+1
470 IF vy<2 THEN PRINT AT V,h;" ": LET v=v-1
480 IF v=12 THEN GO TO 7500
500 IF RND<.15 AND h<30 THEN PRINT AT V,h;" ": LET h=h+1: GO TO 410
510 IF RND<.3 AND h>21 THEN PRINT AT V,h;" ": LET h=h-1
520 GO TO 410
7100 FOR q=1 TO 3: PRINT AT V,h; FLASH 1; BRIGHT 1; INK 2;"*": BEEP .001,50: BEEP .001,40: BEEP .001,20: BEEP
.002,1: NEXT q
7110 PRINT AT V,h;" "
7115 LET s=s+5+c*3: LET C=C+1
7120 GO TO 350
7500 PRINT FLASH 1; BRIGHT 1;AT v,h;"*": BEEP .05,-2: BEEP .05,-12: BEEP .02,-40: PRINT AT V,h;" ": LET
mi=mi+1
7505 IF mi=5 THEN GO TO 7600
7510 GO TO 350
7600 PRINT AT 10,13;"COK KACIRDINIZ": PAUSE 50: PRINT AT 5,1;"PUANINIZ ";s: FOR f=30 TO -30: BEEP .0025,f:
NEXT f: PRINT AT 20,3;"OYUN icin tusa basin"
7610 PAUSE 0
7620 GO TO 60
7900 BEEP .01,1: BEEP .01,15: BEEP .01,35
8000 BEEP .01,1: BEEP .01,15: BEEP .01,35
8010 PLOT g*8+12,9: DRAW 0,75+g*8: BEEP .01,30: PLOT OVER 1;g*8+12,9: DRAW OVER 1;0,75+g*8: BEEP .015,35
8020 PLOT g*8+12,9+(75+g*8): DRAW 232-g*16,0: PLOT OVER 1;g*8+12,9+(75+g*8): DRAW OVER 1,232-g*16,0
8030 PLOT (g*8+12)+(232-g*16),9+(75+g*8): DRAW 0,-(75+g*8): BEEP .0075,20: PLOT OVER 1;(g*8+12)+(232-
g*16),9+(75+g*8): DRAW OVER 1;0,-(75+g*8)
8040 RETURN
8500 PRINT ''TAB 10;"ATIS": PRINT "5-8 ILE POZISYON DEGISTIRIR B ILE LASER TOPUNUZU ATESLEY IN": PRINT "5
UZAYLI KACTIGINDA OYUN BITER": PRINT ''">>>": PAUSE 0: RETURN
9000 FOR f=144 TO 148: FOR n=0 TO 7: READ Z
9020 POKE USR CHR$ f+n,Z: NEXT n: NEXT f
9030 DATA 1,3,7,15,31,63,127,255
9031 DATA 128,192,224,240,248,252,254,255
9032 DATA 24,24,60,60,60,126,126,126
9033 DATA 60,126,219,219,126,60,66,129
9034 DATA 129,102,126,60,60,126,102,129
9040 RETURN