10 REM >WordPrc
   20 REM by Steven Flintham
   30 REM
   40 REM A single-line wordprocessor!
   50 REM
   60 REM Sunday 4th April 1993
   70 REM Saturday 10th April 1993
   80 :
   90 MODE128:DIMT 2559:FORC=0TO2559:T?C=0:NEXT:P=-1:VDU31,0,0:REPEAT:REPEAT:K=GET:UNTIL(K>31ANDK<128)ORK=0:P=P+(1+(K=127)):T?P=K*((K=127)+1):P=P+(K=127):VDU K:UNTIL K=0:VDU2:FORS=0TOP:VDU1,T?S:VDU 1,(S MOD80=0)*13:NEXT:VDU3