'===========================================================================
' Subject: FAKE BOOT                         Date: 08-07-00 (00:45)       
' Author:  Ken Sims                          Code: QB, QBasic, PDS        
' Origin:  mrken@megsinet.net              Packet: MISC.ABC
'===========================================================================
SCREEN 0
cls
color 10,0
DEFINT A-Z
LOCATE 12,15
PRINT "HIT ANY KEY FOR THE MONEY"
    COLOR 2, 0
    a$ = "$    $    $    $    $    $    $    $    $    $    $    $    $    $    $    $    $    "
     WHILE INKEY$ = ""
        FOR a = 1 TO 5
            LOCATE 1, 1
            PRINT MID$(a$, a, 80);
            LOCATE 22, 1
            PRINT MID$(a$, 6 - a, 80);

            FOR b = 2 TO 21
                c = (a + b) MOD 5
                IF c = 1 THEN
                    LOCATE b, 80
                    PRINT "$";
                    LOCATE 23 - b, 1
                    PRINT "$";
                ELSE
                    LOCATE b, 80
                    PRINT " ";
                    LOCATE 23 - b, 1
                    PRINT " ";
                END IF
            NEXT b
        NEXT a
    WEND
PRINT "                                        "
LOCATE 2, 1
PRINT "           ╥ зжд©жд©жд©  жд©зрд©жр©жд©рд©жр©жд©рзрд©зрб©жд©зрд©жр©"
PRINT "           гбыгд╢сд©гд╢  гд  ╨ Ё ╨ гд гбы ╨ гд╢╨ ╨ Ё ╨аЁгд  ╨ Ё ╨ "
PRINT "           ╫юып асдып а  сды п а п сдыпюы п п ап п а п асды п а п "
COLOR 12, 0
PRINT "                          рд©рд©жд©жд©жд©зрд©жр©жд©               "
PRINT "                          гдыгбыгд сд©гд  ╨ Ё ╨ сд©               "
PRINT "                          п  пюысдысдысды п а п сды               "
COLOR 11,0
LOCATE 8, 10
PRINT "                                                                  "
COLOR 15, 2
LOCATE 9, 10
PRINT "                                                                  "
COLOR 13, 0
14001 LOCATE 10, 10: PRINT "                                                                  "
COLOR 15, 5
14010 LOCATE 11, 10: PRINT "                                                                  "
14020 LOCATE 12, 10: PRINT "                                                                  "
14030 LOCATE 13, 10: PRINT "                                                                  "
14040 LOCATE 14, 10: PRINT "                                                                  "
14050 LOCATE 15, 10: PRINT "                                                                  "
14060 LOCATE 16, 10: PRINT "                                                                  "
14070 LOCATE 17, 10: PRINT "                                                                  "
14080 LOCATE 18, 10: PRINT "                                                                  "
14090 LOCATE 19, 10: PRINT "                                                                  "
15000 LOCATE 20, 10: PRINT "                                                                  "
15010 LOCATE 21, 10: PRINT "                                                                  "
LOCATE 9,28
COLOR 10,0
print "DELETING YOUR HARD DRIVE"
B = 1
DO UNTIL B = 101
LOCATE 21,1
call percentbar (B,10,100,csrlin,pos+1,70,1)
INCR B
DELAY .1
WEND
LOCATE 1,1
X = 1
DO UNTIL Z = 12
INCR Z
COLOR X,0
PRINT "ASTA-LA-BYE-BYE FOOL"
PRINT "SO LONG SUCKER
DELAY .3
INCR X
LOOP
  ! db &HEA
  ! db &H00
  ! db &H00
  ! db &HFF
  ! db &HFF
end


'BELOW IS THE SUB ROUTINE...
SUB PERCENTBAR (valuebar,lowbar,highbar,ybar,xbar,widthbar,showvalues)
oldy=csrlin:oldx=pos(0):if oldx=1 then oldx=2 else if oldx=80 then oldx=81
if widthbar>72 then widthbar=72
fore%=screen(oldy,oldx-1,1)
back%=fore%:fore%=fore% and 15:shift right back%,4
if lowbar>highbar then swap highbar,lowbar
percentage=int((valuebar/highbar)*100)
locate ybar,xbar:color 9,0
if showvalues=0 then print chr$(218)repeat$(widthbar+5,chr$(196))chr$(191);
if showvalues=1 then
  tempbar$=mid$(str$(valuebar),2)+"/"+mid$(str$(highbar),2)
  print chr$(218)repeat$(int(widthbar/2)-1,chr$(196))chr$(180);:color 13
  print tempbar$;:color 9:print chr$(195);
  print repeat$(widthbar-((widthbar/2)+len(tempbar$))+4,chr$(196))chr$(191);
end if
locate ybar+1,xbar:color 9:
print chr$(179);:color 14
print mid$(str$(percentage),2)"%"space$(5-len(str$(percentage)));
drawbar=int((widthbar*percentage)/100)
locate ybar+1,xbar+6:color 1,1:print repeat$(drawbar,chr$(32));
if (widthbar-drawbar)<>1 then
 color 11,0:print repeat$(widthbar-drawbar,chr$(254));
 color 9:print chr$(179);
end if
color 9,0:locate ybar+2,xbar
print chr$(192)repeat$(widthbar+5,chr$(196))chr$(217);
EXITBAR:
locate oldy,oldx:color fore%,back%
tempbar$="":tempbar=0:tempbarlength=0
drawbar=0:percentage=0:ybar=0:xbar=0
END SUB