Directory of image this file is from
This file as a plain text file
20 FILEV#1:"TV:" \PRINT#1:PNT(102) \PRINT#1: \PRINT#1: 90 REMARK AND ORIGINAL IDEA AND PROGRAMED BY PAUL PERAINO 180 REMARK FROM WOODROW WILSON HIGH SCHOOL 200 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 270 DIM C(15),A(100,6) 340 PRINT#1:" B O W L I N G " 350 PRINT#1: \PRINT#1: \PRINT#1: 360 PRINT#1:" WELCOME TO THE ALLEY" \PRINT#1: 450 PRINT#1:" BRING YOUR FRIENDS" \PRINT#1: 540 PRINT#1:" OKAY LET'S FIRST GET ACQUAINTED" 630 PRINT#1:\PRINT#1: \PRINT#1: 720 PRINT#1:"WANT INSTRUCTIONS (Y OR N)"; 730 CLOSE #1 \FILE#2:"TV:" 810 INPUT#2: Z$ \CLOSE #2 \FILEV#1:"TV:" \PRINT#1:PNT(102) 900 IF Z$="Y" THEN 990 960 IF Z$="N" THEN 1530 990 PRINT#1:"THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME" 1080 PRINT#1:"THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH" 1170 PRINT#1:"OTHER PLAYERS[UP TO FOUR].YOU WILL BE PLAYING TEN FRAMES" 1260 PRINT#1:"ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE" 1350 PRINT#1:"PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR" 1440 PRINT#1:"SCORES ." 1530 PRINT#1: \PRINT#1: \PRINT#1: 1531 PRINT#1:"FIRST OF ALL...HOW MANY ARE PLAYING" 1540 G=1 1550 CLOSE#1 \FILE#2:"TV:" 1620 INPUT#2:R \CLOSE #2 \FILEV#1:"TV:" 1710 PRINT#1: 1800 PRINT#1:"VERY GOOD..." 1810 FOR I=1 TO 100 1820 FOR J=1 TO 6 1830 A(I,J)=0 1840 NEXT J 1850 NEXT I 1980 F=1 2070 FOR P=1 TO R 2160 M=0 2250 B=1 2340 M=0\Q=0 2400 FOR I=1 TO 15 2410 C(I)=0 2420 NEXT I 2520 REMARK BALL GENERATOR USING MOD '15' SYSTEM 2610 PRINT#1:"PLAYER";P;"-- TYPE ROLL" 2620 CLOSE#1 \FILE#2:"TV:" 2700 INPUT#2:N$ \CLOSE#2 \FILEV#1:"TV:" \PRINT#1:PNT(102) 2790 K=0\D=0 2880 FOR I=1 TO 20 2970 X=INT(RND(I)*100) 3060 FOR J=1 TO 10 3150 IF X<15*J THEN 3330 3240 NEXT J 3330 C(15*J-X)=1 3420 NEXT I 3510 REMARK PIN DIAGRAM 3600 PRINT#1: " PLAYER:";P;" FRAM:";F;" BALL:";B 3690 V=0 3691 PRINT#1: \PRINT#1: \PRINT#1: 3692 FOR I=0 TO 3 \V=V+1 3780 PRINT#1: 3870 FOR J=1 TO 4-I 3960 K=K+1 4050 IF C(K)=1 THEN 4320 4140 PRINT#1:TAB(20+(2*I)+V);" + "; 4230 GOTO 4410 4320 PRINT#1:TAB(20+(2*I)+V);" O "; 4410 NEXT J \PRINT#1: 4500 NEXT I 4590 PRINT#1: \PRINT#1: \PRINT#1: 4680 REMARK ROLL ANALYSIS 4770 FOR I=1 TO 10 4860 D=D+C(I) 4950 NEXT I 5040 IF D-M <> 0 THEN 5220 5130 PRINT#1:" GUTTER!!" 5220 IF B<>1 GOTO 5490\IF D<>10 GOTO 5490 5310 PRINT#1:" STRIKE!!!!!" 5400 Q=3 5490 IF B<>2 GOTO 5760\IF D<>10 GOTO 5760 5580 PRINT#1:" SPARE!!!!" 5670 Q=2 5760 IF B<>2 GOTO 6030\IF D>=10 GOTO 6030 5850 PRINT#1:" ERROR!!!" 5940 Q=1 6030 IF B<>1 GOTO 6210\IF D>=10 GOTO 6210 6110 PRINT#1: \PRINT#1: 6120 PRINT#1:"ROLL YOUR 2ND BALL" 6210 REMARK STORAGE OF THE SCORES 6300 PRINT#1: 6390 A(F*P,B)=D 6480 IF B=2 THEN 7020 6570 B=2 6660 M=D 6750 IF Q=3 THEN 6210 6840 A(F*P,3)=D-M 6930 IF Q=0 THEN 2520 7020 A(F*P,3)=Q 7110 NEXT P 7200 F=F+1 7290 IF F<11 THEN 2070 7295 PRINT#1:PNT(102) 7296 PRINT#1:" FRAMES" 7380 FOR I=1 TO 10 7470 PRINT#1:I;" "; 7560 NEXT I 7650 PRINT#1: \PRINT#1: 7740 FOR P=1 TO R 7830 FOR I=1 TO 3 7920 FOR J=1 TO 10 8010 PRINT#1:A(J*P,I); 8050 PRINT#1:TAB(G+4); 8060 G=G+4 8100 NEXT J 8105 PRINT#1: 8150 G=1 8190 NEXT I 8280 PRINT#1: 8370 NEXT P 8460 PRINT#1:"DO YOU WANT ANOTHER GAME (Y OR N)" 8470 CLOSE#1 \FILE#2:"TV:" 8550 INPUT#2:A$ \CLOSE#2 \FILEV#1:"TV:" 8640 IF A$="Y" THEN 1530 8730 END 90 REMARK AND ORIGINAL IDEA AND PROGRAMED BY PAUL PERAINO 180 REMARK FROM WOODROW WILSON HIGH SCHOOL 200 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 270 DIM C(15),A(100,6) 360 PRINT "WELCOME TO THE ALLEY" 450 PRINT "BRING YOUR FRIENDS" 540 PRINT "OKAY LET'S FIRST GET ACQUAINTED" 630 PRINT\PRINT\PRINT 720 PRINT "WANT INSTRUCTIONS (Y OR N)"; 810 INPUT Z$ 900 IF Z$="Y" THEN 990 960 IF Z$="N" THEN 1530 990 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME" 1080 PRINT "THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH" 1170 PRINT "OTHER PLAYERS[UP TO FOUR].YOU WILL BE PLAYING TEN FRAMES" 1260 PRINT "ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE" 1350 PRINT "PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR" 1440 PRINT "SCORES ." 1530 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING"; 1540 G=1 1620 INPUT R 1710 PRINT 1800 PRINT "VERY GOOD..." 1810 FOR I=1 TO 100 1820 FOR J=1 TO 6 1830 A(I,J)=0 1840 NEXT J 1850 NEXT I 1980 F=1 2070 FOR P=1 TO R 2160 M=0 2250 B=1 2340 M=0\Q=0 2400 FOR I=1 TO 15 2410 C(I)=0 2420 NEXT I 2520 REMARK BALL GENERATOR USING MOD '15' SYSTEM 2610 PRINT "PLAYER";P;"-- TYPE ROLL" 2700 INPUT N$ 2790 K=0\D=0 2880 FOR I=1 TO 20 2970 X=INT(RND(I)*100) 3060 FOR J=1 TO 10 3150 IF X<15*J THEN 3330 3240 NEXT J 3330 C(15*J-X)=1 3420 NEXT I 3510 REMARK PIN DIAGRAM 3600 PRINT "PLAYER:";P;" FRAM:";F;" BALL:";B 3690 FOR I=0 TO 3 3780 PRINT 3870 FOR J=1 TO 4-I 3960 K=K+1 4050 IF C(K)=1 THEN 4320 4140 PRINT TAB(I+1);"+ "; 4230 GOTO 4410 4320 PRINT TAB(I+1);"O "; 4410 NEXT J 4500 NEXT I 4590 PRINT\PRINT\PRINT 4680 REMARK ROLL ANALYSIS 4770 FOR I=1 TO 10 4860 D=D+C(I) 4950 NEXT I 5040 IF D-M <> 0 THEN 5220 5130 PRINT "GUTTER!!" 5220 IF B<>1 GOTO 5490\IF D<>10 GOTO 5490 5310 PRINT "STRIKE!!!!!" 5400 Q=3 5490 IF B<>2 GOTO 5760\IF D<>10 GOTO 5760 5580 PRINT "SPARE!!!!" 5670 Q=2 5760 IF B<>2 GOTO 6030\IF D>=10 GOTO 6030 5850 PRINT "ERROR!!!" 5940 Q=1 6030 IF B<>1 GOTO 6210\IF D>=10 GOTO 6210 6120 PRINT "ROLL YOUR 2ND BALL" 6210 REMARK STORAGE OF THE SCORES 6300 PRINT 6390 A(F*P,B)=D 6480 IF B=2 THEN 7020 6570 B=2 6660 M=D 6750 IF Q=3 THEN 6210 6840 A(F*P,3)=D-M 6930 IF Q=0 THEN 2520 7020 A(F*P,3)=Q 7110 NEXT P 7200 F=F+1 7290 IF F<11 THEN 2070 7295 PRINT "FRAMES" 7380 FOR I=1 TO 10 7470 PRINT I;" "; 7560 NEXT I 7650 PRINT 7740 FOR P=1 TO R 7830 FOR I=1 TO 3 7920 FOR J=1 TO 10 8010 PRINT A(J,I); 8050 PRINT TAB(G+4); 8060 G=G+4 8100 NEXT J 8105 PRINT 8150 G=1 8190 NEXT I 8280 PRINT 8370 NEXT P 8460 PRINT "DO YOU WANT ANOTHER GAME (Y OR N)" 8550 INPUT A$ 8640 IF A$="Y" THEN 1530 8730 END 2 FILEV#1:"TV:" 4 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 5 PRINT#1: "WILLKOMMEN IM DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!" 6 PRINT#1: \PRINT#1:"DEIN SPIELER HEUTE NACHT IST PETER P. EIGHT." 7 REM PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR" 8 REM PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT#1: 9 RANDOMIZE 10 DIM A(13) \DIM L$(20) 20 REM PRINT "FRAGEN DIE EIN JA ODER NEIN ERFORDERN," 25 PRINT#1:"ANTWORTE MIT 'J' FUER JA, 'N' FUER NEIN."\PRINT#1: 30 PRINT#1:"MINDESTEINSATZ 100 DM .........VIEL GLUECK" 32 PRINT#1: 40 PRINT#1:"MIT WIEVIELEN DM WILLST DU STARTEN";\CLOSE#1 \FILE#2:"TV:" 41 INPUT#2:F \CLOSE#2 \FILEV#1:"TV:" 42 PRINT#1: 43 F1=F 50 PRINT#1:\PRINT#1:"WAS IST DEIN EINSATZ JETZT"; \CLOSE#1 \FILE#2:"TV:" 51 INPUT#2:W \CLOSE#2 \FILEV#1:"TV:" \PRINT#1:PNT(102) 52 PRINT#1: 53 IF W>F GOTO 56 54 IF W<10 GOTO 58 55 GOTO 100 56 PRINT#1:"DEINE WETTE UEBERSTEIGT DEINE KAPITAL." 57 GOTO 50 58 PRINT#1:"KLEINSTER EINSATZ DM 10." 59 GOTO 50 100 GOSUB 780 102 P1=I 104 PRINT#1:"DEINE ERSTE KARTE IST EIN";L$ \REM CHR$(L) 106 GOSUB 780 110 P2=I 112 PRINT#1:"DEINE ZWEITE KARTE IST EIN";L$ \REM CHR$(L) 115 GOTO 200 117 PRINT#1:\ PRINT#1:"DU HAST ";P3;" GESEHEN." \PRINT#1: 119 GOSUB 760 120 P3=P3+I 122 PRINT#1:"DU BEKOMMST EIN";L$ \REM CHR$(L) 123 IF P3>21 GOTO 820 124 GOTO 117 200 GOSUB 780 201 P3=P1+P2 202 D1=I 204 GOSUB 780 206 D2=I 208 PRINT#1: \ PRINT#1: "SPIELER ZIEHT EIN";L$ \REM CHR$(L) 210 GOTO 117 212 D3=D1+D2 214 PRINT#1:"SPIELER HAT ";D3 216 IF D3>16 GOTO 222 217 GOSUB 780 218 PRINT#1:"SPIELER GIBT EIN";L$ \REM CHR$(L) 219 D3=D3+I 220 GOTO 214 222 IF D3<22 GOTO 800 224 PRINT#1:"SPIELER BANKROTT." 226 GOTO 802 760 PRINT#1:"NOCH EINE KARTE ?"; \CLOSE#1 \FILE#2:"TV:" 762 INPUT#2: K$ \CLOSE#2 \FILEV#1:"TV:" 764 PRINT#1: 766 IF K$="N" GOTO 212 768 GOSUB 780 770 RETURN 780 I=INT(13*RND(0)+1) 782 A(I)=A(I)+1 784 IF A(I)>4 GOTO 780 786 GOSUB 900 788 RETURN 800 IF D3>=P3 GOTO 820 802 F=F+W 806 PRINT#1:"DU GEWINNST. DU HAST NUN DM ";F 808 GOTO 980 820 F=F-W 822 PRINT#1:"DU VERLIERST. DU HAST NOCH DM ";F 824 GOTO 980 900 IF I<>1 GOTO 910 904 I=11 906 L=1 908 GOTO 942 910 IF I<>13 GOTO 920 912 I=10 914 L=11 916 GOTO 942 920 IF I<>12 GOTO 930 922 I=10 924 L=17 926 GOTO 942 930 IF I<>11 GOTO 937 932 I=10 934 L=10 936 GOTO 942 937 IF I<>10 GOTO 940 938 L=20 939 GOTO 944 940 L=I+48 942 IF L < 27 THEN 944 943 L$ = "E "&CHR$(L) \GOTO 960 944 IF L = 10 THEN 945 \GOTO 946 945 L$ = "EN JUNGEN" \GOTO 960 946 IF L = 17 THEN 947 \GOTO 948 947 L$ = "E DAME" \GOTO 960 948 IF L = 11 THEN 949 \GOTO 950 949 L$ = "EN KOENIG" \GOTO 960 950 L$ = " ASS" 960 RETURN 980 PRINT#1:"MOECHTEST DU WEITER SPPIELEN ?"; \CLOSE#1 \FILE#2:"TV:" 982 INPUT#2:K$ \CLOSE#2 \FILEV#1:"TV:" 984 PRINT#1: \PRINT#1: 986 IF K$="J" GOTO 50 987 PRINT#1:\PRINT#1:\PRINT#1: \IF F>F1 THEN 995 988 PRINT#1:PNT(102)\ PRINT#1:"NICHT VERZWEIFELN! DU HAST";F1-F;"D-MARK" 989 PRINT#1:"AN DAS EDUSYSTEM CASINO VERLOREN" 990 GOTO 998 995 PRINT#1:"NICHT SCHLECHT! DU HAST";F-F1;"D-MARK" 996 PRINT#1:"IM EDUSYSTEM CASINO GEWONNEN" 998 PRINT#1:\PRINT#1:"HOFFE ES HAT DIR GEFALLEN. DANKE FUER DAS SPIEL." 999 CLOSE#1 \ FILE#2:"TV:" \INPUT#2:X \CLOSE#2 \END 1 REM *** WRITTEN BY CHARLES LUND, AMERICAN SCHOOL, THE HAGUE, NETHERLANDS 2 REM *** MODIFIED AND CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL 3 DIM B(70),T(9,9) \FILEV#1:"TV:" 4 PRINT#1:PNT(108);PNT(126);PNT(117) 5 PRINT#1:"THIS IS THE GAME OF HI-Q"\PRINT#1:"HERE IS THE BOARD" 7 PRINT#1:" 13 14 15" 9 PRINT#1:" 22 23 24" 11 PRINT#1:"29 30 31 32 33 34 35" 13 PRINT#1:"38 39 40 41 42 43 44" 15 PRINT#1:"47 48 49 50 51 52 53" 17 PRINT#1:" 58 59 60" 18 PRINT#1: 19 PRINT#1:" 67 68 69" 22 PRINT#1:"TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD" 23 PRINT#1:"WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG" 24 PRINT#1:"NUMBERS. O.K., LET'S BEGIN..." 28 REM *** SET UP BOARD 29 FOR R=1 TO 9 30 FOR C=1 TO 9 31 IF (R-4)*(R-5)*(R-6)=0 THEN 40 32 IF (C-4)*(C-5)*(C-6)=0 THEN 40 35 T(R,C)=-5 36 GOTO 50 40 IF (R-1)*(C-1)*(R-9)*(C-9)=0 THEN 35 42 T(R,C)=5 50 NEXT C 60 NEXT R 65 T(5,5)=0\GOSUB 500 70 REM *** INPUT MOVE AND CHECK ON LEGALITY 75 FOR W=1 TO 33 77 READ M 79 DATA 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 81 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69 83 B(M)=-7\NEXT W 86 B(41)=-3 100 PRINT#1:PNT(105);" " 101 PRINT#1:PNT(105);"MOVE WHICH PIECE"; 102 CLOSE#1 \FILE#2:"TV:" \INPUT#2:Z \CLOSE#2 \FILEV#1:"TV:" 110 IF B(Z)=-7 THEN 140 120 PRINT#1: "ILLEGAL MOVE, TRY AGAIN..."\GOTO 100 140 PRINT#1:"TO WHERE"; 141 CLOSE#1 \FILE#2:"TV:" \INPUT#2:P \CLOSE#2 \FILEV#1:"TV:" 150 IF B(P)=0 THEN 120 153 IF B(P)=-7 THEN 120 156 IF Z=P THEN 100 160 IF ((Z+P)/2)=INT((Z+P)/2) THEN 180 170 GOTO 120 180 IF (ABS(Z-P)-2)*(ABS(Z-P)-18)<>0 THEN 120 190 GOSUB 1000 200 GOSUB 500 210 GOSUB 1500 220 GOTO 100 500 REM *** PRINT BOARD 510 FOR X=1 TO 9 520 FOR Y=1 TO 9 525 IF (X-1)*(X-9)*(Y-1)*(Y-9)=0 THEN 550 530 IF (X-4)*(X-5)*(X-6)=0 THEN 570 540 IF (Y-4)*(Y-5)*(Y-6)=0 THEN 570 550 REM 560 GOTO 610 570 IF T(X,Y)<>5 THEN 600 580 PRINT#1: TAB(Y*2);"!"; 590 GOTO 610 600 PRINT#1:TAB(Y*2);"O"; 610 REM 615 NEXT Y 620 PRINT#1: 630 NEXT X \CLOSE#1 \FILEV#1:"TV:" 640 RETURN 1000 REM*** UPDATE BOARD 1005 C=1\FOR X=1 TO 9 1020 FOR Y=1 TO 9 1030 IF C<>Z THEN 1220 1040 IF C+2<>P THEN 1080 1045 IF T(X,Y+1)=0 THEN 120 1050 T(X,Y+2)=5 1060 T(X,Y+1)=0\B(C+1)=-3 1070 GOTO 1200 1080 IF C+18<>P THEN 1130 1085 IF T(X+1,Y)=0 THEN 120 1090 T(X+2,Y)=5\T(X+1,Y)=0\B(C+9)=-3 1120 GOTO 1200 1130 IF C-2<>P THEN 1170 1135 IF T(X,Y-1)=0 THEN 120 1140 T(X,Y-2)=5\T(X,Y-1)=0\B(C-1)=-3 1160 GOTO 1200 1170 IF C-18<>P THEN 1220 1175 IF T(X-1,Y)=0 THEN 120 1180 T(X-2,Y)=5\T(X-1,Y)=0\B(C-9)=-3 1200 B(Z)=-3\B(P)=-7 1210 T(X,Y)=0\GOTO 1240 1220 C=C+1 1225 NEXT Y 1230 NEXT X 1240 RETURN 1500 REM *** CHECK IF GAME IS OVER 1505 F=0 1510 FOR R=2 TO 8 1520 FOR C=2 TO 8 1530 IF T(R,C)<>5 THEN 1580 1535 F=F+1 1540 FOR A=R-1 TO R+1 1545 T=0 1550 FOR B=C-1 TO C+1 1560 T=T+T(A,B) 1561 NEXT B 1564 IF T<>10 THEN 1567 1565 IF T(A,C)<>0 THEN 1630 1567 NEXT A 1568 FOR X=C-1 TO C+1 1569 T=0 1570 FOR Y=R-1 TO R+1 1571 T=T+T(Y,X) 1572 NEXT Y 1573 IF T<>10 THEN 1575 1574 IF T(R,X)<>0 THEN 1630 1575 NEXT X 1580 NEXT C 1590 NEXT R 1600 REM *** GAME IS OVER 1605 PRINT#1:"THE GAME IS OVER." 1610 PRINT#1:"YOU HAD";F;"PIECES REMAINING" 1611 IF F<>1 THEN 1615 1612 PRINT#1: "BRAVO! YOU MADE A PERFECT SCORE!!" 1613 PRINT#1:"SAVE THIS PAPER AS A RECORD OF YOUR WORK." 1615 PRINT#1: \PRINT#1:"PLAY AGAIN (YES OR NO)";\INPUT A$ 1617 IF A$="NO" THEN 2000 \CLOSE#1 \FILEV#1:"TV:" 1618 RESTORE\GOTO 29 1620 STOP 1630 RETURN 2000 PRINT#1:\PRINT#1:"SO LONG FOR NOW."\PRINT#1: \CLOSE#1 2005 END 10 FILEV#1:"LPT:" 100 REM PROGRAM WRITTEN BY DANIEL R. VERNON 110 REM SENIOR AT BUTLER SENIOR HIGH SCHOOL 120 REM BUTLER, PENNSYLVANIA 16001 130 REM DATE: 2-1-73 140 REM COMPUTER SUPERVISION- MR. WILLIAM ELLIS 150 REM COMPUTER TOPICS INSTRUCTION- MR. ALBERT STEWART 160 REM 170 REM THIS PROGRAM IS DESIGNED TO CREATE POSTERS 180 REM 185 REM TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 190 DIM G$(54,1),H$(9,9),B$(54),G(6),A(54) 200 PRINT "INPUT HEIGHT IN INCHES"\INPUT L 205 PRINT "INPUT WIDTH IN INCHES"\INPUT R\S=0\A=R*2\C=A 210 PRINT"HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE " 220 PRINT"THE LETTERS";\INPUT S\S=12*S 230 PRINT"INPUT MESSAGE HERE" 240 INPUT B$ 250 FOR I=1TO LEN(B$) 252 A(I)=ASC(SEG$(B$,I,I)) 253 NEXT I 260 H$(1)=" "\H$(2)=" "\H$(3)=" "\H$(4)=" " 261 H$(5)=" "\H$(6)=" "\H$=H$(L) 262 GOSUB 940 270 F=F+1\IF A(F)=0 GOTO 990\G(0)=L 271 FOR I=1 TO LEN(B$) 272 G$(I)=CHR$(A(I)) 280 NEXT I 290 FOR X=1TO A/2 291 PRINT #1: 292 NEXT X 295 G$=CHR$(A(F)) 297 FOR X=2 TO L\G$=G$&CHR$(A(F))\NEXT X 300 IF A(F)