'===========================================================================
' Subject: ASCII 666 ADDER                   Date: 04-20-98 (02:03)       
' Author:  Hauke Daempfling                  Code: QB, QBasic, PDS        
' Origin:  hcd@berlin.snafu.de             Packet: MISC.ABC
'===========================================================================
DEFINT A-Z

starthere:
CLS
PRINT "*^*^*^*^* ASCII 666 Adder *^*^*^*^*"
PRINT "something funky by Hauke X :)"
PRINT "hcd@berlin.snafu.de"
PRINT
PRINT "1) 'WINDOWS95' (+1)"
PRINT "2) 'MS-DOS 6.21' (wow!)"
PRINT "3) 'BILLGATES' (William Henry Gates III)"
PRINT "4) your own"
PRINT "9) Exit"
PRINT
PRINT "Select: ";

DO
  DO: x$ = INKEY$: LOOP UNTIL x$ <> ""
  SELECT CASE VAL(x$)
    CASE 1
      x$ = "WINDOWS95"
      GOTO calcit
    CASE 2
      x$ = "MS-DOS 6.21"
      GOTO calcit
    CASE 3
      x$ = "BILLGATES"
      GOTO calcit
    CASE 4
      PRINT "4"
      PRINT
      INPUT "Text: ", x$
      IF x$ = "" THEN GOTO starthere
      GOTO calcit
    CASE 9
      PRINT "9"
      PRINT
      PRINT "Goodbye"
      SYSTEM
  END SELECT
LOOP

calcit:
CLS
PRINT "*^*^*^*^* ASCII 666 Adder *^*^*^*^*"
PRINT
PRINT "Calculating:"
PRINT "  '"; x$; "'"
PRINT
y = 0
FOR a = 1 TO LEN(x$)
  c$ = MID$(x$, a, 1)
  y = y + ASC(c$)
  PRINT TAB(3); c$; TAB(6); ASC(c$)
NEXT a
PRINT " ----------"
PRINT "  =  "; y
IF y < 666 THEN
  PRINT
  PRINT "  +  "; 666 - y
  PRINT " ----------"
  PRINT "  =   666"
END IF
IF y > 666 THEN
  PRINT
  PRINT "  -  "; y - 666
  PRINT " ----------"
  PRINT "  =   666"
END IF
PRINT
PRINT "Press any key..."
DO: LOOP UNTIL INKEY$ <> ""
GOTO starthere