0 POKE53280,0:POKE53281,0:PRINT"[147]"
10 T=T+1:READA$:IFA$="*"THEN220
20 GOSUB100:PRINT:PRINT
30 GOTO10
100 A=INT((37-LEN(A$))/2+.1)
101 FORT=0TO3000:NEXT
110 FORR=1TO4:PRINTTAB(A)MID$("[151][152][155]",R,1)A$"[145]":FORE=0TO45:NEXTE,R:C$="[145]":RETURN
200 DATAYOUR NAME HERE,PRESENTS,IN 1999,A MEGA WHATEVER,CONTACT OUR BOARDS
201 DATA(WASHING BOARD,IRONING BOARD)
202 DATAGREETS TO ALL OUR FRIENDS,AND CTX WORLDWIDE,IN OUR ST,BOOTING SYSTEM,*
220 LOAD"INTRO4URPRGBASIC",8,1:RUN