Pete's QBASIC Site

Code: Select all

TYPTEXT y, x, "text here"
ALNTYPE "left, center, or right", y, "text here"
ALNTEXT "left, center, or right", y, "text here"
REVTEXT y, x, "text here"
NUMTEXT y, x, "text here"

Code: Select all

'
'     Hello, and welcome to my SCREEN 0, 2, 3, 4, 8, 9, & 10
' SUB routines for modified print staments. Great routines for
' ASCII text adventure to add ease and eye-catching efects.
' Take a look at the examples below, they'll show you how
' to work them....

DECLARE SUB ALNTYPE (aln$, y!, text$)
DECLARE SUB NUMTEXT (y!, x!, text$)
DECLARE SUB REVTEXT (y!, x!, text$)
DECLARE SUB ALNTEXT (aln$, y!, text$)
DECLARE SUB TYPTEXT (y!, x!, text$)

CLS
' ########### EXAMPLES ################
'Read over what each statment does, how it works. Then press <F5>
'to see then in action!!

'TYPTEXT types text as if it were bieng entered from a keyboard!
' You must note Y & X locations as with LOCATE...

TYPTEXT 1, 1, "You can have your text type like a LOCATE/PRINT statment!"

'ALNTYPE types text like above statment, but from either
' CENTER, LEFT, or RIGHT (Any Case), Y location must be noted

ALNTYPE "right", 2, "Or type to the right of the screen!"
ALNTYPE "center", 3, "Type into the center of the screen!"
ALNTYPE "left", 4, "Or just type from the left!!"

'ALNTEXT, if you want to PRINT to the LEFT, CENTER, or RIGHT (Any Case)
' Y Location must be noted (Are you tiered of me saying that yet?)

ALNTEXT "right", 5, "PRINT to the right!"
ALNTEXT "center", 6, "PRINT into the center!"
ALNTEXT "left", 7, "Or PRINT from the left!"

'REVTEXT is just for fun, reverses the intered text
' Y & X locations must be noted

REVTEXT 9, 1, "Looking funny yet?"

'NUMTEXT, returns the ASCII values in numbers
' Y & X locations must be noted

NUMTEXT 11, 1, "NUMBERS!"

'Enjoy these SUB routine statments, easy to map into any program!

SUB ALNTEXT (aln$, y, text$)
a = LEN(text$)
IF UCASE$(aln$) = "LEFT" THEN
   x = 1
   LOCATE y, x: PRINT text$
END IF
IF UCASE$(aln$) = "CENTER" THEN
   c = a \ 2
   x = 40 - c
   LOCATE y, x: PRINT text$
END IF
IF UCASE$(aln$) = "RIGHT" THEN
   x = 80 - a
   LOCATE y, x: PRINT text$
END IF
END SUB

SUB ALNTYPE (aln$, y, text$)
a = LEN(text$)
IF UCASE$(aln$) = "LEFT" THEN
   x = 1
   IF y > 23 THEN y = 23
   cont = 0
   DO
      cont = cont + 1
      phr$ = phr$ + MID$(text$, cont, 1)
      LOCATE y, x: PRINT phr$
      IF cont = LEN(text$) THEN GOTO endsub
      FOR i = 1 TO 40000: NEXT
   LOOP UNTIL INKEY$ = CHR$(27)
END IF
IF UCASE$(aln$) = "CENTER" THEN
   x = 40 - (a \ 2)
   IF y > 23 THEN y = 23
   cont = 0
   DO
      cont = cont + 1
      phr$ = phr$ + MID$(text$, cont, 1)
      LOCATE y, x: PRINT phr$
      IF cont = LEN(text$) THEN GOTO endsub
      FOR i = 1 TO 40000: NEXT
   LOOP UNTIL INKEY$ = CHR$(27)
END IF
IF UCASE$(aln$) = "RIGHT" THEN
   x = 80 - a
   IF y > 23 THEN y = 23
   cont = 0
   DO
      cont = cont + 1
      phr$ = phr$ + MID$(text$, cont, 1)
      LOCATE y, x: PRINT phr$
      IF cont = LEN(text$) THEN GOTO endsub
      FOR i = 1 TO 40000: NEXT
   LOOP UNTIL INKEY$ = CHR$(27)
END IF

endsub:
END SUB

SUB NUMTEXT (y, x, text$)
cont = 0
DO
cont = cont + 1
lttr$ = MID$(text$, cont, 1)
num = ASC(lttr$)
lnum$ = STR$(num)
pnum$ = pnum$ + lnum$
IF cont = LEN(text$) THEN EXIT DO
LOOP
LOCATE y, x: PRINT pnum$
END SUB

SUB REVTEXT (y, x, text$)
cont = LEN(text$)
DO
phr$ = phr$ + MID$(text$, cont, 1)
cont = cont - 1
IF cont = 0 THEN EXIT DO
LOOP
LOCATE y, x: PRINT phr$
END SUB

SUB TYPTEXT (y!, x!, text$)
IF y > 23 THEN y = 23
cont = 0
DO
cont = cont + 1
phr$ = phr$ + MID$(text$, cont, 1)
LOCATE y, x: PRINT phr$
IF cont = LEN(text$) THEN EXIT DO
FOR i = 1 TO 40000: NEXT
LOOP UNTIL INKEY$ = CHR$(27)
END SUB

Code: Select all

TYPTEXT 1, 1, "Hello,  world!"

Code: Select all

FOR i = 1 TO 40000: NEXT 

Code: Select all

CALL Change_To_Better_Code Rattrapmax6, For/Next, Time

SUB Change_To_Better_Code(Programmer, BadCode, ReplaceCode)
'Statements
END SUB

Code: Select all

CALL Change_To_Better_Code Mitth'raw'nurudo, For/Next, Time

SUB Change_To_Better_Code(Programmer, BadCode, ReplaceCode)
'Statements
END SUB

Code: Select all

DECLARE SUB CNTTEXT (y!, text$)

SCREEN 13
CLS

CNTTEXT 4, "Center in SCEEN 13!"

SUB CNTTEXT (y!, text$)
a = LEN(text$)
c = a \ 2
x = 20 - c
LOCATE y, x: PRINT text$
END SUB

Code: Select all

DECLARE SUB CNTCORD (y!, x!, text$)

CLS
CNTCORD 12, 40, "Power Centering!"

SUB CNTCORD (y!, x!, text$)
'Error handle
a = LEN(text$)
cntr = a \ 2
IF a > 80 THEN PRINT "String Overflow!": END
IF y < 1 THEN y = 1
IF y > 23 THEN y = 23
IF x + cntr > 80 THEN PRINT "Over Set!": END
IF x - cntr < 1 THEN PRINT "Under Set!": END
'Center and PRINT
x = x - cntr
LOCATE y, x: PRINT text$
END SUB