Commodore CBM - Page 384

Program 2, MESSAGES.
5 REM PROGRAM 2 MESSAGES
10 REM ******* B LAN K E T ****~**
20 REM CONTINUOUS-LINE DISPLAY OF ONE
30 REt'l CHARACTER ENTE RED FROt1 THE
40 REM KEY BOARD
50 REM *******************************
913 PRINT"HIT A IŒ'r'''.;
1€1€1 GET C$: IF C$="" GOTO 10€1
105 IF C$=CHR$(13) GOTO 170
110 PR 1 NT ":']" .; , : REM CLEAR SCREEN
120 FOR 1=1 TO 920 :REM 920~40=23 LINES
130 PRIHT C$.;
140 NEXT
150 PRIHT"PHEW!"
155 PRIHT"HIT A KEY OR <:R> TO Et·m".;
160 GOTO 100
170 EHD
Changes
Add:
Change:
Delete:
Lines 5, 155
Li nes 90, 160
None
Comments
This is also an easy change. First change the original message at line 90 to
the shortened. initial message. Then add the repeating message to print at the end
of the sequence
just before the branch back at line 160. You also have to change
the
GOTO at line 160 to branch below the initial message line.
371