52COMMODORE 64FUN AND GAMES





60030GOTO 60010

60070Z=ASC(Z$) :ZL=LEN(IN$) :IF(Z AND127) <32 THENPRINT1I,,{left}II;:
GOTO60110

60090IF ZL>QITHEN60010

60100IN$=IN$+Z$:PRINTZ$;ZD$;Z$;
60110IF Z=13THENIN$=MID$(IN$,2) :PRINTCR$; :RETURN

60120IF Z=20 ANDZL>l THENIN$=LEFT$(IN$,ZL-l):PRINTlI{left}II;:
GOTO60010

60130IF Z=141THENZ$=CHR$(-20*(ZL>1:FOR Z=2 TO ZL:PRINTZ$;:NEXT:
GOTO60000
60140GOTO 60010

61000CRT=1024:VIC=53248:WD=40:CR$=CHR$(13):SID=54272:JS=56320:
CM=55296

61010QL=214:QI=254:RETURN
62000GOSUB61000:POKEVIC+32,0:POKEVIC+33,0:LN=LEN(PG$):
TB=(40-LN)/2

6201'0 PRINT"{clr 4downyelrvs-on}"TAB(TB)LEFT$("{21space}",LN>
62020PRINT"{rvs-on}"TAB(TB)PG$:PRINT"{rvs-on}"

TAB(TB)LEFT$("{21space}",LN)
62030PRINT"{2down}"TAB40-LEN(AU$/2)AU$

62040r1S$="HIT"RETURN" TO"BEG IN":IF JF THEN
MS$="HIT"JOYSTICK"BUTTON"TO"BEGIN"
62050TB=40-LEN(MS$/2)

62060PRINT"{4downcyn}"TAB(TB)MS$:PRINT"{7downcyn 9space}
(C),,1983"THE"CODE"WORKS "
62070GETIN$:IFIN$<>""THEN62120
62080IF(PEEK(JS)AND16)=0THEN62120

62090PRINT"{horne 14down}"TAB (TB)LEFT$ ("{pur cyn} ",K+l)LEFT$ (MS$,
Q)

62100Q=Q+1:IFQ>LEN(MS$)THEN Q=O:K=l-K
62110GOTO62070
62120CLR:PRINT"{clr wht}":GOSUB61000:GOTO100

