Commodore PET - 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~ 1 tH" 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