330 K = 0:P = PEEK( -16380): POKE -16368,0: IF P >127 THEN K = 1: REM CHECK KEYBOARD FOR KEY PRESS
340 RETURN
350 REM
360 REM -----------------------
370 REM CONVERT STRING INTO
380 REM INTO NORMAL POKE VALUE
390 REM -----------------------
400 REM
410 HTAB 1: VTAB 4: INPUT "ENTER A STRING (UP TO 39 CHARACTERS) ";S$
420 L = LEN(S$): DIM LN(L): IF L >39 OR L = 0 THEN VTAB 4: HTAB 1: PRINT " ": CALL -958: GOTO 410
430 FOR X = 1 TO L:LN(X) = ASC( MID$ (S$,X,1)) +128: NEXT : RETURN
440 REM
450 REM -------------------
460 REM CONVERT STRING TO
470 REM NORMAL AND INVERSE
480 REM POKE VALUES
490 REM -------------------
500 REM
510 HTAB 1: VTAB 4: INPUT "ENTER A STRING (UP TO 39 CHARACTERS) ";S$:L = LEN(S$): IF L >39 OR L = 0 THEN VTAB 4: HTAB 1: PRINT " ": CALL -958: GOTO 510
520 DIM LN(L),LI(L)
530 FOR X = 1 TO L:LN(X) = ASC( MID$ (S$,X,1)) +128:LI(X) = ASC( MID$ (S$,X,1)) -64
540 IF LI(X) <0 THEN LI(X) = LI(X) +64: REM LEAVE CONTROL CHARS AND OTHERS WITH ASCII VALUE<64 ALONE
550 NEXT : RETURN
560 REM
570 REM -------------------
580 REM WAVING IN THE AIR
590 REM -------------------
600 REM
610 GOSUB 290
620 DIM LN(20): FOR X = 1 TO 20: READ LN(X): NEXT
630 DATA 151,129,150,137,142,135,160,137,142,160,148,136,133,160,129,137,146,160,160,160: REM ASCII VALUES FOR'WAVING IN THE AIR'
820 VTAB 4: HTAB 1: PRINT "OVER OR UNDER? (O/U) ";: GET B$: PRINT B$: IF B$ < >"O" AND B$ < >"o" AND B$ < >"U" AND B$ < >"u" AND B$ < > CHR$(27) THEN 820
830 IF B$ = CHR$(27) THEN 140
840 IF B$ = "O" THEN D = 1920
850 HTAB 1: VTAB 4: INPUT "ENTER A STRING (UP TO 19 CHARACTERS) ";S$: IF LEN(S$) >19 OR LEN(S$) = 0 THEN HTAB 1: VTAB 4: CALL -958: GOTO 810
860 GOSUB 420
870 FOR X = 1 TO L: POKE 1064 +X,LN(X): NEXT
880 FOR X = 1 TO L
890 POKE 1064 +X,160
900 FOR J = X +1 TO L +X
910 POKE D +J,LN(X): GOSUB 320: POKE D +J,160
920 NEXT
930 POKE 1064 +X +L +1,LN(X)
940 NEXT
950 CLEAR
960 VTAB 20: PRINT "DO IT AGAIN? (Y/N) ";: GET A$: PRINT A$: IF A$ = "Y" OR A$ = "y" THEN VTAB 3: HTAB 1: CALL -958: GOTO 810
970 CLEAR :CC = 190: GOTO 130
980 REM
990 REM ------
1000 REM BORDER
1010 REM ------
1020 REM
1030 HOME
1040 GOSUB 510:A$ = S$
1050 REM VTAB 4:INPUT "ENTER A STRING PLEASE ";A$:IF LEN(A$)>40 OR LEN(A$)=0 THEN 1030