Commodore PET User Manual page 383

BLANKET
10 REM
*******
B LAN K E T
*******
2(1 REM CONTINUOU:::;-LINE
Il 1
SF'LA'T' OF ot-IE
30 REM CHARACTERENTERED FROM THE
40 REM KEYBOARD
50 REM
************•••*********.*.****
90
F'F~
1
NT" H1T A KE'T'
OF~
<:FD·
TO Et·m".:
101<:1 GET C$: 1F C$="" GOTO 1
ÜO
105 IF C$=CHR$(13) GOTO 170
110
F'RINT"~";REM
CLEAR SCREEN
120 FOR
1~1
TO 920 :REM 920/40=23 LINES
130 F'F.:INT C$.:
140 t·jE>,:T
150
F'F~
1tH"
F'HE~,J
! "
160 OOTO 90
170 END
Program 1, CLEAN SCREEN.
5 REM F'ROGRAM 1 CLEAN SCREEN
10 REM
**••*.*
B LAN
K
E T
tt*****
20 REM CONTINUOUS-LINE I1ISF'LAY OF ONE
30 REM CHARACTER ENTERED FROM THE
40 REM KEYBOARD
50 REM
******.************************
;::10 PF~ 1 NT"~"
.:
90 PRHJT"HIT A KEY OF.: (F.:> Tû Et·m".;
100 GET C$: IF C$="" OOTO 10(1
105 IF C$=CHR$(13) GOTO 170
11 (1
PF~
1
~n"~"
. : :
F.:Et' 1 CLEAF.:
:::;CF~EEN
120 FOR 1=1 TO 920 REM 920/40=23 LINES
130 PF.:INT C$.:
140
t~n:T
150 PRINT"PHEW!"
160 OOTO 90
17(1
nm
Changes
Add:
Change:
Delete:
Comments
Lines 5. 80
None
None
This is an easy change. Ali vou have ta do is print a Clear Screen literai just
before the HIT A KEY message. The reset of the program stays the same.
370