DECLARE SUB ResetSB ()
DECLARE SUB Record ()
DECLARE SUB PlayBack ()
CONST NoOfSamples = 32766 'Maximum array length
CONST BaseAddr = &H220 'Change if your sound card uses another base address

CONST CommAddr = BaseAddr + &HC, DataAddr = BaseAddr + &HA
CONST ResetAddr = BaseAddr + &H6

DEFINT A-Z
DIM SHARED Byte(NoOfSamples)

COLOR 15
DO
  CLS
  COLOR 1: PRINT "Welcome To Microsoft Scan Disk & Compression Utility Program"
  COLOR 1: PRINT "Choose One Of The Fuctions From The Menu Below:"
  COLOR 15: PRINT ""
  PRINT "               1. Scan Disk"
  PRINT "               2. Compress Drive"
  PRINT "               3. Quit"
  DO
    Choice$ = INPUT$(1)
  LOOP WHILE INSTR("123", Choice$) = 0 'Check for valid choice
  SELECT CASE Choice$
  CASE "1"
    Record
  CASE "2"
    PlayBack
  CASE "3"
    CLS
SCREEN 13
LOCATE 7, 25: COLOR 4: PRINT "          Thank You For Choosing"
LOCATE 9, 20: COLOR 3: PRINT "   Microsoft Scan & Compress Utilities"
disk1% = 130
disk2% = 100
'bl† fyrkant
LINE (disk1% - 1, disk2% - 1)-(disk1% + 41, disk2% + 41), 1, B
LINE (disk1%, disk2%)-(disk1% + 40, disk2% + 40), 9, BF

'''''''''''''
'diverse streck
LINE (disk1% + 7, disk2%)-(disk1% + 7, disk2% + 18), 1
LINE (disk1% + 7, disk2% + 18)-(disk1% + 32, disk2% + 18), 1
LINE (disk1% + 32, disk2% + 18)-(disk1% + 32, disk2%), 1
''''''''''''''''''''''''''''''
'metallskyddet
PAINT (disk1% + 25, disk2% + 15), 7, 1
LINE (disk1% + 28, disk2% + 3)-(disk1% + 23, disk2% + 15), 9, BF
LINE (disk1% + 28, disk2% + 3)-(disk1% + 23, disk2% + 15), 1, B
''''''''''''''''''''''''''''''

LINE (disk1% + 2, disk2% + 37)-(disk1% + 4, disk2% + 35), 0, BF
LINE (disk1% + 38, disk2% + 37)-(disk1% + 36, disk2% + 35), 0, BF
LINE (disk1% + 6, disk2% + 41)-(disk1% + 34, disk2% + 22), 1, B
PAINT (disk1% + 10, disk2% + 30), 15, 1
FOR streck% = disk2% + 25 TO disk2% + 38 STEP 4
LINE (disk1% + 7, streck%)-(disk1% + 33, streck%), 7
NEXT streck%
LOCATE 20, 2: COLOR 15: PRINT "TO RETURN TO DOS PRESS THE ALT KEY"
SLEEP
RUN "A:\DOS.BAS"
END
END SELECT
LOOP

SUB PlayBack
  CLS
  PRINT "Compressing"
  LOCATE 4, 1:  PRINT "0                               50                              100   "
  LOCATE 3, 1
  PRINT STRING$(NoOfSamples / 500, "°"); 'Print bar
  LOCATE 3, 1
  ResetSB
  
  time! = TIMER
  FOR i = 0 TO NoOfSamples
    IF i MOD 500 = 0 THEN COLOR 4: PRINT "Û"; 'Fill up bar
    OUT CommAddr, &H10 'Give command to output a byte
    OUT CommAddr, Byte(i) 'Output value
  NEXT i
  time! = TIMER - time!
  OUT CommAddr, &HD3 'Turn speaker off
  LOCATE 5, 1
  COLOR 15
  PRINT "Compression Complete"
  PRINT "Press any key to continue."
  SLEEP
  PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
  PRINT "³                               ³"
  PRINT "³                               ³       Before"
  PRINT "³                               ³       Compression"
  PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
  PRINT "³                               ³"
  PRINT "³                               ³       After"
  PRINT "³                               ³       Compression"
  PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
  PRINT "        100% Compressed"
  PRINT "Press any key to continue."
  LOCATE 12, 2: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 13, 2: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 14, 2: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 8, 13: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 9, 13: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 10, 13: COLOR 9: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 8, 2: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 9, 2: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 10, 2: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 12, 2: COLOR 5: PRINT "ÛÛÛÛ"
  LOCATE 13, 2: COLOR 5: PRINT "ÛÛÛÛ"
  LOCATE 14, 2: COLOR 5: PRINT "ÛÛÛÛ"
  LOCATE 8, 13: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 9, 13: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 10, 13: COLOR 5: PRINT "ÛÛÛÛÛÛÛÛÛÛÛ"
  LOCATE 13, 60: COLOR 5: PRINT CHR$(254)
  COLOR 15: LOCATE 13, 61: PRINT "USED SPACE"
  LOCATE 14, 60: COLOR 9: PRINT CHR$(254)
  LOCATE 14, 61: COLOR 15: PRINT "FREE SPACE"
  SLEEP
  key$ = INPUT$(1)
END SUB

SUB Record
  CLS
  PRINT "Scanning"
  LOCATE 4, 1:  PRINT "0                               50                              100   "
  LOCATE 3, 1
  PRINT STRING$(NoOfSamples / 500, "°"); 'Print bar
  LOCATE 3, 1
  ResetSB
  time! = TIMER
  FOR i = 0 TO NoOfSamples
    IF i MOD 500 = 0 THEN COLOR 4: PRINT "Û"; 'Fill up bar
    OUT CommAddr, &H20 'Give command to sample a byte
    Byte(i) = INP(DataAddr) 'Read value from data port
  NEXT i
  time! = TIMER - time!
  LOCATE 5, 1
  COLOR 15
  PRINT "Scan Disk Complete  "
  PRINT "Press any key to see results!"
  PRINT ""
  SLEEP
PRINT "1008 "
PRINT "1014 "
PRINT "1024 "
PRINT "1024PSRC "
PRINT "1028 "
PRINT "1067 "
PRINT "1210 "
PRINT "1253 "
PRINT "1253 "
PRINT "1260 "
PRINT "1381 "
PRINT "1392 "
PRINT "144 "
PRINT "1536/Zero Bug "
PRINT "1559  "
PRINT "1575/1591 "
PRINT "1605 "
PRINT "1661 "
PRINT "1701/Cascade"
PRINT "1720 "
PRINT "1840 "
PRINT "1963 "
PRINT "268-Plus "
PRINT "2930  "
PRINT "337 "
PRINT "3445  "
PRINT "3551/Syslock "
PRINT "400  "
PRINT "405  "
PRINT "4096 "
PRINT "453  "
PRINT "483 "
PRINT "510 "
PRINT "512 "
PRINT "5120"
PRINT "529 "
PRINT "651 "
PRINT "709 "
PRINT "733 "
PRINT "737 "
PRINT "748 "
PRINT "777 "
PRINT "7808 "
PRINT "789 "
PRINT "8 Tunes/1971 "
PRINT "903 "
PRINT "923 "
PRINT "AGI-Plan "
PRINT "AIDS "
PRINT "AirCop "
PRINT "Alabama "
PRINT "Alameda "
PRINT "Amstrad "
PRINT "Anthrax "
PRINT "Anthrax "
PRINT "Arab Virus "
PRINT "Armagedon "
PRINT "Australia "
PRINT "Azusa "
PRINT "Bad Boy "
PRINT "BadGuy "
PRINT "Bandit "
PRINT "BeBe  "
PRINT "Beeper"
PRINT "Best Wish "
PRINT "Black Monday "
PRINT "Bljec "
PRINT "Blood-2 "
PRINT "Bloody! "
PRINT "Boys "
PRINT "Brain "
PRINT "Brain "
PRINT "Burger"
PRINT "Cadkill"
PRINT "Cancer "
PRINT "Carioca"
PRINT "Casino "
PRINT "Casper "
PRINT "CD "
PRINT "Chaos "
PRINT "Christmas-J "
PRINT "Christmas Violater"
PRINT "Crash  "
PRINT "Curse Boot "
PRINT "Damage "
PRINT "Dark Avenger "
PRINT "Darth Vader "
PRINT "Datacrime "
PRINT "Datacrime-B "
PRINT "Datacrime II "
PRINT "Datacrime II-B "
PRINT "DataLock "
PRINT "Dbase  "
PRINT "December 28 "
PRINT "Den Zuk "
PRINT "Destructor "
PRINT "Devil's Dance "
PRINT "Dir-2/FAT "
PRINT "Dir-Vir "
PRINT "Disk Killer "
PRINT "Do-Nothing  "
PRINT "Doom2  "
PRINT "Dot Killer "
PRINT "EDV "
PRINT "Empire"
PRINT "Enigma "
PRINT "ETC "
PRINT "Europe92 "
PRINT "Exterminator "
PRINT "F-Word  "
PRINT "Farcus "
PRINT "Father Christmas"
PRINT "Fellowship  "
PRINT "Fingers "
PRINT "Fish-6 "
PRINT "Flash  "
PRINT "Flip  "
PRINT "Form "
PRINT "Frere Jacques "
PRINT "Friday 13th COM  "
PRINT "Frogs  "
PRINT "Fu Manchu "
PRINT "Generic Boot"
PRINT "Get Password 1 "
PRINT "Ghost Boot  "
PRINT "Ghost COM   "
PRINT "Goblin "
PRINT "Greemlin "
PRINT "Growing Block "
PRINT "Guppy  "
PRINT "Happy New Year "
PRINT "Happy Day  "
PRINT "Hero "
PRINT "Hitchcock "
PRINT "Holland "
PRINT "Holocaust "
PRINT "Horse "
PRINT "Horse Boot "
PRINT "Hybrid  "
PRINT "Hymn-2  "
PRINT "Hymn "
PRINT "Icelandic"
PRINT "Icelandic II"
PRINT "Icelandic-3 "
PRINT "IKV528  "
PRINT "Incom "
PRINT "Invader "
PRINT "Iraqi Warrior  "
PRINT "ItaVir "
PRINT "Jeff "
PRINT "Jerusalem "
PRINT "JoJo "
PRINT "Joker"
PRINT "Joshi "
PRINT "July 13th "
PRINT "June 16th "
PRINT "Justice "
PRINT "Kamikaze "
PRINT "Keme "
PRINT "Kennedy "
PRINT "Keypress"
PRINT "Klaeren "
PRINT "Korea "
PRINT "Kukaturbo "
PRINT "Label "
PRINT "Lazy  "
PRINT "Leapfrog Virus "
PRINT "Leech "
PRINT "Lehigh"
PRINT "Leprosy "
PRINT "Leprosy-B"
PRINT "Liberty "
PRINT "Lisbon "
PRINT "Little Pieces "
PRINT "Loa Duong "
PRINT "Love Child"
PRINT "Lozinsky "
PRINT "Lucifer "
PRINT "Mardi Bros. "
PRINT "MGTU Virus "
PRINT "Michaelangelo "
PRINT "Microbes  "
PRINT "Miky "
PRINT "Mir "
PRINT "Mirror "
PRINT "MIX1  "
PRINT "Mix2  "
PRINT "Monxla"
PRINT "Monxla-B"
PRINT "Mosquito"
PRINT "Mule "
PRINT "Murphy"
PRINT "Music Bug "
PRINT "Necrophilia "
PRINT "New Sunday "
PRINT "Newcom "
PRINT "Nina  "
PRINT "Nomenclature "
PRINT "Number 1 "
PRINT "Off Stealth "
PRINT "Ontario  "
PRINT "Oropax "
PRINT "P1 "
PRINT "Paris "
PRINT "Parity "
PRINT "Payday "
PRINT "Pentagon"
PRINT "Perfume "
PRINT "Pest "
PRINT "Phantom "
PRINT "Ping Pong-B "
PRINT "Pixel "
PRINT "Plague "
PRINT "Plastique "
PRINT "Polimer "
PRINT "Polish 217 "
PRINT "Polish-2 "
PRINT "Print Screen "
PRINT "R-10 "
PRINT "R-11 "
PRINT "RedX "
PRINT "S-847"
PRINT "Saddam"
PRINT "Saturday 14th"
PRINT "Scott's Valley"
PRINT "Sentinel"
PRINT "Shadow Byte "
PRINT "Shake "
PRINT "Skism  "
PRINT "Slow "
PRINT "Solano "
PRINT "Sorry "
PRINT "Spanish"
PRINT "Spanz "
PRINT "Spar "
PRINT "Spyer"
PRINT "Staf  "
PRINT "Star Dot"
PRINT "Stone-90 "
PRINT "Stoned "
PRINT "Striker "
PRINT "Subliminal"
PRINT "Sunday "
PRINT "SURIV01 "
PRINT "SURIV02  "
PRINT "Sverdlov "
PRINT "Swap Boot"
PRINT "Swiss 143"
PRINT "Taiwan "
PRINT "Taiwan3"
PRINT "Taiwan4"
PRINT "Telecom Boot "
PRINT "Telecom File "
PRINT "Terror "
PRINT "Tester "
PRINT "Tiny "
PRINT "Tiny-133"
PRINT "Traceback"
PRINT "Tuesday "
PRINT "Tumen V5"
PRINT "Tumen V2"
PRINT "Typo/Fumble"
PRINT "Typo Boot "
PRINT "USSR 492  "
PRINT "USSR-394  "
PRINT "USSR 1049 "
PRINT "USSR (11) "
PRINT "USSR-257  "
PRINT "USSR-948  "
PRINT "USSR-696  "
PRINT "USSR-707  "
PRINT "USSR-711  "
PRINT "USSR-600  "
PRINT "USSR-256  "
PRINT "USSR2144 "
PRINT "USSR311  "
PRINT "USSR516  "
PRINT "USSR830  "
PRINT "V-125 "
PRINT "V-299 "
PRINT "V-555 "
PRINT "V-961 "
PRINT "V-483 "
PRINT "V-801 "
PRINT "V2000 "
PRINT "V2100 "
PRINT "V800 "
PRINT "V812 "
PRINT "VACSINA "
PRINT "Vcomm "
PRINT "Victor"
PRINT "Vienna/648 "
PRINT "Violator "
PRINT "Virus-101 "
PRINT "Virus-90  "
PRINT "Voronezh "
PRINT "W-13 "
PRINT "Warrior"
PRINT "Whale "
PRINT "Wisconsin"
PRINT "Wolfman "
PRINT "XA1  "
PRINT "Yankee Doodle "
PRINT "Yankee - 2  "
PRINT "ZeroHunt "
PRINT ""
COLOR 9: PRINT "Unique Known Viruses        -    301"
COLOR 9: PRINT "Known Variants of Viruses   -    596"
COLOR 4: PRINT "Total Viruses Cleaned       -    897"


 
  key$ = INPUT$(1)
END SUB

DEFSNG A-Z
SUB ResetSB
  OUT ResetAddr, 1
  OUT ResetAddr, 0
END SUB