Commodore PET - Page 389

Program 7. INDIAN BLANKET.
5 REM PROGRAM 7 INDIAN BLANKET
10 REM ~ •• **.* B LAN K E T ***.*.*
20 REM CONTINUOUS-LINE DISPLAY OF
30 REM CHARACTERS ENTERED FROM THE
40 REM KEYBOARD
50 REM * •• **.**************.** ••••••••
90 PRII"-H"HIT AtW KEYS".;
1 üü GET C$: IF C$="" GOTO 1 ü0
110 PR 1 NT ";:'1" .: : REM CLEAR SCREEN
120 FOR 1=1 TO 920 'REM 920/4ü=23 LINES
130 PRINT C$.;
134 FOR 3=1 TO 40:NEXT J 'REM DELAY
1 ::::5 GET D$: 1F D$<:>"" THEN C$=D$
137 IF D$=CHR$(13) GOTO 170
140 NEXT
150 PRINT"PHEW!"
155 PRINT"HIT ANY I<E'T'S OR <R> TO END";
160 GOTO 100
17(1 Et·m
Changes
Add:
Change:
Delete:
Lines 5. 134. 135. 137. 155
Lines 20. 30. 90. 160
Line 105
Comments
Line 135 allows different characters to be keyed in during the display. If a
key has been struck. it
is fetched as D$. and C$ is assigned the new character.
Line 137 is added to handle the case where the RETURN key is struck during a dis-
play sequence. The messages were modified by changing lines 90 and 160 and
adding line 155
just as described for Program 2. The program is slowed down by a
delay loop at line 134 exactly the same
as in Program 5 (Iine 135) except that the
delay time is lengthened by having an end value of 40 (instead of 10 as in Program
5).
376