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)