DECLARE SUB eriklogo () 'This makes the picture when you start up DECLARE SUB loadWnewF () 'This is loaded if the user wants thier own icon DECLARE SUB userIcon () 'This is the icon itself DECLARE SUB loadqb () 'This loads Qbasic DECLARE SUB memberFiles () 'This has member files in it DECLARE SUB TopSecret () 'This is the Eriksen Inc. folder not icon! DECLARE SUB Tusers () 'This lists all the user names DECLARE SUB Tprograms () 'I believe this the Top Secret Projects thing DECLARE SUB Tapps () 'This is the window that show Qbasic and member files DECLARE SUB topSecretIcon () 'This is the Eriksen Inc. Icon DECLARE SUB gload () 'This loads w/ guest stuff DECLARE SUB db () 'This is the user ICON DECLARE SUB database () 'THis is the data base program DEFINT A-Z 'For some reason this is needed DECLARE SUB Mouse (cx, dx, bx) 'Mouse stuff DECLARE SUB MousePointer (SW) 'Yet more mouse stuff DECLARE FUNCTION TheyClickedFile% () '?????? DECLARE FUNCTION OpenFile$ (Option$) 'yet more????? 'DECLARE SUB Absolute (var1%, var2%, var3%, var4%, var5%, var6%, var7%, var8%, var9%, offset%) 'This helps the mouse DECLARE FUNCTION WhereTheyClicked% () 'DUH?????? DECLARE SUB STICKS (Joyx%, JOYY%, BUT1%, BUt2%, BUT3%) 'I dunno DECLARE SUB MouseStatus (lb%, rb%, Xmouse%, Ymouse%) 'Mouse status DECLARE SUB MouseShow () 'Shows the mouse DECLARE SUB MouseDriver (AX%, bx%, cx%, dx%) 'Locates mouse driver DECLARE FUNCTION D! () 'I Have NO clue! DECLARE FUNCTION MouseInit% () DECLARE SUB bootup () 'This loads the user login and background DECLARE SUB sconfig () 'Sound config DECLARE SUB DragTheBar () 'I dunno DECLARE SUB MouseHide () 'Hides the Mouse? DECLARE SUB vcongif () 'Video config DECLARE SUB vga () 'VGA settings DECLARE SUB sblaster () 'Sound blaster settings DECLARE SUB pc () 'PC speaker settings DECLARE SUB time () 'The current time DECLARE SUB clock () 'The clock program DECLARE SUB draw1 () 'The soon to be made in a different file draw DECLARE SUB type1 () 'Old word prossesor DOH! DECLARE SUB saveit () 'Saves the Word Prossesor file DECLARE SUB applications () 'Applications icon DECLARE SUB applications1 () 'Applications folder DECLARE SUB Rename () 'Rename option in file DECLARE SUB New () 'The new folder option in file DECLARE SUB deletee () 'the Delete option in file DECLARE SUB solitare () 'Apocalypse, delete this! DECLARE SUB file2 () 'This also! They are both the old Solitare game! DECLARE SUB deal () 'This is also solitare deletable stuff DECLARE SUB find () 'Find option in the file menu bar (FUNCTIONAL!!) DECLARE SUB help1 () 'You guessed it! Help! DECLARE SUB uhelp () 'Help for using help! DECLARE SUB about () 'About option if help DECLARE SUB change () 'I know this is something... DECLARE SUB config () 'Config option DECLARE SUB qload () 'GUEST startup! DECLARE SUB load () 'Members startup! DECLARE SUB e () 'Exit option DECLARE SUB filem () 'User files in main folder DECLARE SUB setup () 'Setup program, displays settings DECLARE SUB display () 'Displays video card DECLARE SUB file () 'The file menu DECLARE SUB options () 'The options menu DECLARE SUB Help () 'The help menu DECLARE SUB mopt () 'The main folder DECLARE SUB game () 'Games folder DECLARE SUB back () 'Loads the back of this OS DECLARE SUB games () 'The games icon DECLARE SUB bar () 'The menu bar DECLARE SUB main () 'The main icon DO 'LOOP comes back here eriklogo 'loads the start up picture LOOP 'Starts the LOOP TYPE OFType 'THE REST OF THIS STUFF IS NOT USED!!!!! HighFile AS INTEGER ' The highlighted file (File element number/pointer) HighDir AS INTEGER ' The highlighted directory END TYPE SCREEN 12 'Puts the screen into mode 12 back 'loads back games 'loads the rest bar main applications time 'Stops loading DIM SHARED A(9) DEF SEG = VARSEG(A(0)) 'Sets the current segment address FOR i = 0 TO 17 READ r POKE VARPTR(A(0)) + i, r NEXT i DATA &HB8,&H00,&H00 : 'Data for segment address DATA &H55 : DATA &H8B,&HEC : DATA &HCD,&H33 : DATA &H92 : DATA &H8B,&H5E,&H06 : DATA &H89,&H07 : DATA &H5D : DATA &HCA,&H02,&H00 : CALL MousePointer(0) CALL MousePointer(3) DO IF button = 1 THEN file 'Left mouse button IF button = 2 THEN e 'Right mouse button IF button = 3 THEN applications1 'Right & Left together LOOP DIM SHARED MMouse$ RESTORE MMouse$ = SPACE$(57) FOR i% = 1 TO 57 READ A$ H$ = CHR$(VAL("&H" + A$)) MID$(MMouse$, i%, 1) = H$ NEXT i% MS% = MouseInit% IF NOT MS% THEN LET AMOUSE$ = "NO" PRINT "A mouse was not found on you system! Please make sure your mouse is hooked" PRINT "up right and installed. You can run this in keyboard mode only..." PRINT PRINT " Press any key to run in keyboard mode...." SLEEP load END IF LET AMOUSE$ = "YES" MouseShow DO STICKS Joyx%, JOYY%, BUT1%, BUt2%, BUT3% MouseStatus lb%, rb%, Xmouse%, Ymouse% LOOP DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53 DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F DATA 8B,5E,06,89,17,5D,CA,08,00 DEFSNG A-Z SUB about LOCATE 5, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 14 COLOR 14 PRINT "About Eriksen Inc. OS/2" LOCATE 6, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББ" LOCATE 7, 8 COLOR 14 PRINT "Eriksen Inc. OS/2 is an operating" LOCATE 8, 8 PRINT "system for PC's. It's is easy to use" LOCATE 9, 8 PRINT "fun and good for the whole family!" LOCATE 11, 11 PRINT "(c) 1999 Eriksen Inc." LOCATE 12, 27 PRINT "B to go back." LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load END SUB SUB applications LOCATE 15, 40 COLOR 11 PRINT "ллллллл" LOCATE 16, 40 COLOR 15 PRINT "лллллллБ" LOCATE 17, 40 COLOR 15 PRINT "лллллллБ" LOCATE 18, 41 PRINT "БББББББ" LOCATE 19, 38 COLOR 7 PRINT "pplications" LOCATE 19, 37 COLOR 15 PRINT "A" END SUB SUB applications1 LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Applications" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 14, 17 COLOR 6 PRINT "ллллл" LOCATE 15, 17 PRINT "ллллл" LOCATE 16, 17 COLOR 7 PRINT "Dr" LOCATE 16, 19 COLOR 14 PRINT "a" LOCATE 16, 20 COLOR 7 PRINT "w" LOCATE 14, 25 COLOR 1 PRINT "ллллл" LOCATE 15, 25 PRINT "ллллл" LOCATE 16, 26 COLOR 7 PRINT "ype" LOCATE 16, 25 COLOR 14 PRINT "T" LOCATE 14, 34 COLOR 6 PRINT "ллллл" LOCATE 15, 34 PRINT "ллллл" LOCATE 16, 35 COLOR 7 PRINT "lock" LOCATE 16, 34 COLOR 14 PRINT "C" COLOR 15 LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "a" OR ExitSelction$ = "A" THEN draw1 IF ExitSelction$ = "t" OR ExitSelction$ = "T" THEN type1 IF ExitSelction$ = "c" OR ExitSelction$ = "C" THEN clock END SUB SUB back COLOR 3 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" COLOR 15 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" COLOR 7 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 1, 30 COLOR 14 PRINT "Sublime Inc. OS/2" END SUB SUB bar LOCATE 2, 3 COLOR 7 PRINT "ile" LOCATE 2, 2 COLOR 15 PRINT "F" LOCATE 2, 9 COLOR 7 PRINT "Opt" LOCATE 2, 12 COLOR 15 PRINT "i" LOCATE 2, 13 COLOR 7 PRINT "ons" LOCATE 2, 19 COLOR 7 PRINT "Hel" LOCATE 2, 22 COLOR 15 PRINT "p" END SUB SUB bootup ttttoppp: CLS SCREEN 12 back games bar main applications time LOCATE 2, 68 PRINT "Command:" LOCATE 5, 25 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 5, 29 COLOR 14 PRINT "Sublime Inc. OS/2 User Login" LOCATE 6, 25 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 25 PRINT "лллллллллллл лллБ" LOCATE 8, 25 PRINT "лллллллллллл лллБ" LOCATE 9, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 25 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 26 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 7, 26 COLOR 14 PRINT "User Name:" LOCATE 8, 26 PRINT "Password:" LOCATE 11, 26 COLOR 14 PRINT "Enter GUEST for name if not user!" LOCATE 7, 38 INPUT ExitSelction$ IF ExitSelction$ = "NukemNOW" OR ExitSelction$ = "nukemnow" THEN GOTO password IF ExitSelction$ = "apocalypse" OR ExitSelction$ = "Apocalypse" THEN GOTO password1 IF ExitSelction$ = "guest" OR ExitSelction$ = "GUEST" THEN GOTO skip wrong: SOUND 40, 2 LOCATE 13, 35 COLOR 12 PRINT "Wrong User Name!" SLEEP 2 GOTO ttttoppp END password1: SOUND 300, 2 LOCATE 8, 38 PRINT "**********" COLOR 0 LOCATE 8, 38 INPUT ExitSelction$ IF ExitSelction$ = "Paranoid" OR ExitSelction$ = "paranoid" THEN GOTO finish password: SOUND 300, 2 LOCATE 8, 38 PRINT "********" COLOR 0 LOCATE 8, 38 INPUT ExitSelction$ IF ExitSelction$ = "bomber" OR ExitSelction$ = "BOMBER" THEN GOTO finish wwrong: SOUND 40, 2 LOCATE 13, 35 COLOR 12 PRINT "Wrong User password!" SLEEP 2 GOTO ttttoppp END skip: SOUND 350, 2 LOCATE 13, 30 COLOR 14 PRINT "Wecome Guest!" SLEEP GOTO guestHelp finish: SOUND 350, 2 COLOR 14 LOCATE 13, 35 PRINT "Welcome member!" SLEEP load guestHelp: LOCATE 5, 25 COLOR 2 PRINT "ллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 31 COLOR 14 PRINT "Guest Help:" LOCATE 6, 25 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 25 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 25 PRINT "лллллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 26 PRINT "БББББББББББББББББББББББББББББББББББББББ" LOCATE 7, 26 COLOR 14 PRINT "Being a guest you may only go into" LOCATE 8, 26 PRINT "certain areas in our OS/2. See " LOCATE 9, 26 PRINT "this was made for Eriksen Inc. members" LOCATE 10, 26 PRINT "It was so that it would be easier to" LOCATE 11, 26 PRINT "do work for our group and know" LOCATE 12, 26 PRINT "each other better. You will not" LOCATE 13, 26 PRINT "be alowd in top secret and data" LOCATE 14, 26 PRINT "base. Thank and good night...." SLEEP gload END SUB SUB change LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 24 COLOR 14 PRINT "Change" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл лллллллллллллБ" LOCATE 7, 5 PRINT "лллллллллл лллллллллллллБ" LOCATE 8, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 7, 7 COLOR 14 PRINT "New Name?" LOCATE 9, 7 COLOR 14 PRINT "STATUS:" SOUND 300, 2 LOCATE 6, 7 COLOR 14 INPUT "Origanal Directory name"; hold$ SOUND 300, 2 LOCATE 7, 7 INPUT "New Name"; hnew$ SOUND 300, 2 LOCATE 9, 18 COLOR 14 PRINT "Directory changed!" SLEEP 2 load END SUB SUB clock SOUND 300, 2 LOCATE 3, 18 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 3, 28 COLOR 14 PRINT "Clock" LOCATE 10, 18 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 4, 18 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 5, 18 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 18 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 18 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 18 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 18 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 18 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 19 PRINT "ББББББББББББББББББББББББББББББББББББ" DO UNTIL INKEY$ = CHR$(1) T$ = TIME$ Hr = VAL(T$) IF Hr < 12 THEN Ampm$ = " AM" ELSE Ampm$ = " PM" IF Hr > 12 THEN Hr = Hr - 12 IF Hr = 0 THEN Hr = 12 prgTime$ = STR$(Hr) + RIGHT$(T$, 6) + Ampm$ IF Ampm$ = " AM" THEN ' convert prgTime$ to 5 characters prTime$ = LEFT$(prgTime$, 5) + " AM" 'for AM END IF IF Ampm$ = " AM" AND VAL(LEFT$(prgTime$, 3)) >= 10 THEN ' convert prgTime$ to 6 characters prTime$ = LEFT$(prgTime$, 6) + " AM" 'for PM after 10 END IF IF Ampm$ = " PM" THEN ' convert prgTime$ to 5 characters prTime$ = LEFT$(prgTime$, 5) + " PM" 'for PM END IF IF Ampm$ = " PM" AND VAL(LEFT$(prgTime$, 3)) >= 10 THEN ' convert prgTime$ to 6 characters prTime$ = LEFT$(prgTime$, 6) + " PM" 'for PM after 10 END IF COLOR 14 LOCATE 5, 22: PRINT "Time:" COLOR 11 LOCATE 6, 20 ' PRINT prTime$ PRINT LTRIM$(prTime$); " "; RIGHT$(TIME$, 2) todaydate$ = DATE$ ' " " date COLOR 14 LOCATE 5, 34: PRINT "Present Date:" COLOR 11 LOCATE 6, 34: PRINT ""; SELECT CASE VAL(MID$(todaydate$, 1, 2)) CASE 1: PRINT "01"; CASE 2: PRINT "02"; CASE 3: PRINT "03"; CASE 4: PRINT "04"; CASE 5: PRINT "05"; CASE 6: PRINT "06"; CASE 7: PRINT "07"; CASE 8: PRINT "08"; CASE 9: PRINT "09"; CASE 10: PRINT "10"; CASE 11: PRINT "11"; CASE 12: PRINT "12"; END SELECT PRINT VAL(MID$(todaydate$, 4, 2)); VAL(MID$(todaydate$, 7, 4)) LOCATE 9, 19 COLOR 14 PRINT "Hold ALT press 1 then B to go back" LOOP LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "B" OR ExitSelction$ = "b" THEN load END SUB SUB config LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "Config OS/2" LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 12 COLOR 14 PRINT "S" LOCATE 8, 13 COLOR 7 PRINT "ound config" LOCATE 9, 12 COLOR 14 PRINT "V" LOCATE 9, 13 COLOR 7 PRINT "ideo config" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "s" OR ExitSelction$ = "S" THEN sconfig IF ExitSelction$ = "v" OR ExitSelction$ = "V" THEN vcongif END SUB ' SUB database New: LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Data Base:" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллл лллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" COLOR 14 LOCATE 13, 16 PRINT "Name:" SOUND 300, 2 LOCATE 13, 22 INPUT ExitSelction$ IF ExitSelction$ = "Erik" OR ExitSelction$ = "erik" THEN GOTO matche IF ExitSelction$ = "Eugene" OR ExitSelction$ = "eugene" THEN GOTO match2 IF ExitSelction$ = "Apocalypse" OR ExitSelction$ = "apocalypse" THEN GOTO guestInfo noname: SOUND 40, 2 LOCATE 15, 30 COLOR 14 PRINT "No matches found!" SLEEP GOTO New matche: SOUND 300, 2 LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Erik:" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 11, 16 COLOR 14 PRINT "Name: Erik" LOCATE 12, 16 PRINT "Age: 13" LOCATE 13, 16 PRINT "E-MAIL: NukemN0W@aol.com" LOCATE 14, 16 PRINT "Quote: I hate proggraming a mouse" LOCATE 17, 20 PRINT "N for new search B for back" LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "n" OR ExitSelction$ = "N" THEN GOTO New IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load guestInfo: SOUND 300, 2 LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Guest:" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 11, 16 COLOR 14 PRINT "Name: Apocalypse" LOCATE 12, 16 PRINT "Age: Duh..." LOCATE 13, 16 PRINT "E-MAIL: NA" LOCATE 14, 16 PRINT "Quote: NA" LOCATE 17, 20 PRINT "N for new search B for back" LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "n" OR ExitSelction$ = "N" THEN GOTO New IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load match2: SOUND 300, 2 LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Eugene:" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 20 COLOR 14 PRINT "Wrong Company!" SLEEP 2 GOTO New END SUB ' SUB db LOCATE 20, 55 COLOR LOCATE 15, 58 COLOR 11 PRINT "ллллллл" LOCATE 16, 58 COLOR 15 PRINT "лллллллБ" LOCATE 17, 58 COLOR 15 PRINT "лллллллБ" LOCATE 18, 59 PRINT "БББББББ" LOCATE 19, 59 COLOR 7 PRINT ""; userIicon$; "" LOCATE 19, 58 COLOR 15 PRINT ""; userfirst$; "" END SUB SUB deal LOCATE 3, 1 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 3, 30 COLOR 14 PRINT "Solitare" LOCATE 4, 1 COLOR 15 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 3 COLOR 7 PRINT "Fi" LOCATE 4, 5 COLOR 15 PRINT "l" LOCATE 4, 6 COLOR 7 PRINT "e" LOCATE 5, 1 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 6, 3 COLOR 4 PRINT "ллллллллллл" LOCATE 7, 3 PRINT "ллллллллллл" LOCATE 8, 3 PRINT "ллллллллллл" LOCATE 9, 3 PRINT "ллллллллллл" LOCATE 10, 3 PRINT "ллллллллллл" LOCATE 15, 3 COLOR 4 PRINT "ллллллллллл" LOCATE 16, 3 PRINT "ллллллллллл" LOCATE 17, 3 PRINT "ллллллллллл" LOCATE 18, 3 PRINT "ллллллллллл" LOCATE 19, 3 PRINT "ллллллллллл" LOCATE 15, 16 COLOR 4 PRINT "ллллллллллл" LOCATE 16, 16 PRINT "ллллллллллл" LOCATE 17, 16 PRINT "ллллллллллл" LOCATE 18, 16 PRINT "ллллллллллл" LOCATE 19, 16 PRINT "ллллллллллл" LOCATE 15, 29 COLOR 4 PRINT "ллллллллллл" LOCATE 16, 29 PRINT "ллллллллллл" LOCATE 17, 29 PRINT "ллллллллллл" LOCATE 18, 29 PRINT "ллллллллллл" LOCATE 19, 29 PRINT "ллллллллллл" LOCATE 2, 68 COLOR 15 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "l" OR ExitSelction$ = "L" THEN file2 IF ExitSelction$ = "f" OR ExitSelction$ = "F" THEN file END SUB SUB deletee LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 24 COLOR 14 PRINT "Delete" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 7 COLOR 14 SOUND 300, 2 INPUT "Delete what"; hfind$ LOCATE 6, 18 COLOR 14 SOUND 40, 2 PRINT "FILE NOT FOUND" SLEEP 2 load END SUB SUB display LOCATE 6, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 6, 26 COLOR 14 PRINT "Display" LOCATE 7, 10 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 8, 10 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 10 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 11 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 8, 22 COLOR 14 PRINT "Standard:" LOCATE 8, 33 PRINT "ASCII Display" LOCATE 10, 34 PRINT "B to go back" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelection$ = "B" THEN load END SUB SUB draw1 LOCATE 3, 1 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 3, 30 COLOR 14 PRINT "Draw" LOCATE 4, 1 COLOR 15 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 3 COLOR 7 PRINT "Fi" LOCATE 4, 5 COLOR 15 PRINT "l" LOCATE 4, 6 COLOR 15 PRINT "e" LOCATE 5, 1 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 1 COLOR 6 PRINT "ллллллллллл" LOCATE 6, 1 PRINT "ллллллллллл" LOCATE 7, 1 PRINT "ллллллллллл" LOCATE 8, 1 PRINT "ллллллллллл" LOCATE 9, 1 PRINT "ллллллллллл" LOCATE 10, 1 PRINT "ллллллллллл" LOCATE 11, 1 PRINT "ллллллллллл" LOCATE 12, 1 PRINT "ллллллллллл" LOCATE 13, 1 PRINT "ллллллллллл" LOCATE 14, 1 PRINT "ллллллллллл" LOCATE 15, 1 PRINT "ллллллллллл" LOCATE 16, 1 PRINT "ллллллллллл" LOCATE 17, 1 PRINT "ллллллллллл" LOCATE 2, 68 COLOR 15 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load IF ExitSelction$ = "f" OR ExitSelction$ = "F" THEN file END SUB SUB e LOCATE 13, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллл" LOCATE 13, 30 COLOR 14 PRINT "Exit?" LOCATE 14, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллБ" LOCATE 17, 16 PRINT "ББББББББББББББББББББББББББББББББББ" LOCATE 15, 17 COLOR 14 PRINT "Are you sure you want to exit?" LOCATE 16, 28 PRINT "(Y or N)" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "y" OR ExitSelction$ = "Y" THEN GOTO bye IF ExitSelction$ = "n" OR ExitSelction$ = "N" THEN load notValid: load bye: LOCATE 25, 60 COLOR 11 PRINT "EXITING..." CLS COLOR 7 END END SUB DEFINT A-Z SUB eriklogo SCREEN 12 LOCATE 10, 3 COLOR 9 PRINT " лллллллллллллллллллллллллллллллллллллллл" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ллллллллллллллллллллллллллллллллллллллллБ" PRINT " ББББББББББББББББББББББББББББББББББББББББ" LOCATE 11, 20 COLOR 14 PRINT "лллллллллллллл" LOCATE 12, 20 COLOR 6 PRINT "лллл" LOCATE 13, 20 COLOR 1 PRINT "лллллллллллллл" LOCATE 14, 30 COLOR 7 PRINT "лллл" LOCATE 15, 20 COLOR 4 PRINT "лллллллллллллл" LOCATE 13, 35 COLOR 2 PRINT "ublime Inc." LOCATE 17, 40 COLOR 14 PRINT "Operating System" LOCATE 12, 31 SLEEP 4 bootup END SUB DEFSNG A-Z SUB file LOCATE 3, 3 COLOR 8 PRINT "ллллллллллллБ" LOCATE 4, 3 PRINT "ллллллллллллБ" LOCATE 5, 3 PRINT "ллллллллллллБ" LOCATE 6, 3 PRINT "ллллллллллллБ" LOCATE 7, 3 PRINT "ллллллллллллБ" LOCATE 8, 4 PRINT "ББББББББББББ" LOCATE 3, 5 COLOR 7 PRINT "ind" LOCATE 3, 4 COLOR 14 PRINT "F" LOCATE 4, 5 COLOR 7 PRINT "ename" LOCATE 4, 4 COLOR 14 PRINT "R" LOCATE 5, 5 COLOR 7 PRINT "ew folder" LOCATE 5, 4 COLOR 14 PRINT "N" LOCATE 6, 5 COLOR 7 PRINT "elete" LOCATE 6, 4 COLOR 14 PRINT "D" LOCATE 7, 4 COLOR 7 PRINT "E" LOCATE 7, 5 COLOR 14 PRINT "x" LOCATE 7, 6 COLOR 7 PRINT "it" LOCATE 2, 68 COLOR 15 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "x" OR ExitSelection$ = "X" THEN e IF ExitSelction$ = "f" OR ExitSelection$ = "F" THEN find IF ExitSelction$ = "r" OR ExitSelection$ = "R" THEN Rename IF ExitSelction$ = "n" OR ExitSelection$ = "N" THEN New IF ExitSelction$ = "d" OR ExitSelection$ = "D" THEN deletee END SUB SUB file2 LOCATE 5, 3 COLOR 7 PRINT "ллллллллл" LOCATE 6, 3 PRINT "лллллллллБ" LOCATE 7, 4 PRINT "БББББББББ" LOCATE 5, 6 COLOR 7 PRINT "eal" LOCATE 5, 5 COLOR 14 PRINT "D" LOCATE 6, 6 COLOR 7 PRINT "xit" LOCATE 6, 5 COLOR 14 PRINT "E" LOCATE 2, 68 COLOR 15 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "e" OR ExitSelction$ = "E" THEN load IF ExitSelction$ = "d" OR ExitSelction$ = "D" THEN deal END SUB SUB filem LOCATE 9, 3 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 9, 22 COLOR 14 PRINT "Files" LOCATE 10, 3 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 4 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 11, 7 COLOR 14 PRINT "" LOCATE 16, 43 COLOR 14 PRINT "B to go back" LOCATE 2, 68 SOUND 300, 2 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelection$ = "B" THEN load END SUB SUB find LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 24 COLOR 14 PRINT "Find" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 7 COLOR 14 SOUND 300, 2 PRINT "Find what" LOCATE 6, 17 INPUT ExitSelction$ IF ExitSelction$ = "data base" OR ExitSelction$ = "DATA BASE" THEN database IF ExitSelction$ = "type" OR ExitSelction$ = "Type" THEN type1 IF ExitSelction$ = "clock" OR ExitSelction$ = "Clock" THEN clock IF ExitSelction$ = "Draw" OR ExitSelction$ = "draw" THEN draw1 IF ExitSelction$ = "solitare" OR ExitSelction$ = "Solitare" THEN solitare IF ExitSelction$ = "games" OR ExitSelction$ = "Games" THEN game IF ExitSelction$ = "Main" OR ExitSelction$ = "main" THEN mopt IF ExitSelction$ = "files" OR ExitSelction$ = "Files" THEN filem IF ExitSelction$ = "display" OR ExitSelction$ = "Display" THEN display IF ExitSelction$ = "qbasic" OR ExitSelction$ = "Qbasic" THEN loadqb IF ExitSelction$ = "members" OR ExitSelction$ = "Members" THEN TopSecret IF ExitSelction$ = "Back" OR ExitSelction$ = "back" THEN load wwwrong: LOCATE 6, 18 SOUND 40, 2 COLOR 14 PRINT "FILE NOT FOUND" SLEEP 2 find END SUB SUB game LOCATE 10, 13 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 10, 17 COLOR 14 PRINT "Games" LOCATE 11, 13 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 13 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 13 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 13 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 13 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 14 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 15, 36 COLOR 14 PRINT "B to go back" LOCATE 12, 18 COLOR 4 PRINT "лллллл" LOCATE 13, 18 PRINT "лллллл" LOCATE 14, 17 COLOR 7 PRINT "S" LOCATE 14, 18 COLOR 14 PRINT "o" LOCATE 14, 19 COLOR 7 PRINT "litare" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load IF ExitSelction$ = "o" OR ExitSelction$ = "O" THEN solitare END SUB SUB games LOCATE 15, 3 COLOR 11 PRINT "ллллллл" LOCATE 16, 3 COLOR 15 PRINT "лллллллБ" LOCATE 17, 3 COLOR 15 PRINT "лллллллБ" LOCATE 18, 4 PRINT "БББББББ" LOCATE 19, 5 COLOR 7 PRINT "ames" LOCATE 19, 4 COLOR 15 PRINT "G" END SUB SUB garbag END SUB DEFINT A-Z SUB gload topp: CLS PRINT "" PRINT " LOADING ERIKSEN INC. OS SYSTEM..." CLS SCREEN 12 back games bar main applications time LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelection$ IF ExitSelection$ = "f" OR ExitSelection$ = "F" THEN file IF ExitSelection$ = "i" OR ExitSelection$ = "I" THEN options IF ExitSelection$ = "p" OR ExitSelection$ = "P" THEN Help IF ExitSelection$ = "g" OR ExitSelection$ = "G" THEN game IF ExitSelection$ = "m" OR ExitSelection$ = "M" THEN mopt IF ExitSelection$ = "a" OR ExitSelection$ = "A" THEN applications1 END SUB DEFSNG A-Z SUB Help LOCATE 3, 20 COLOR 8 PRINT "ллллллллллллллл" LOCATE 4, 20 PRINT "лллллллллллллллБ" LOCATE 5, 20 PRINT "лллллллллллллллБ" LOCATE 6, 21 PRINT "БББББББББББББББ" LOCATE 3, 22 COLOR 7 PRINT "He" LOCATE 3, 24 COLOR 14 PRINT "l" LOCATE 3, 25 COLOR 7 PRINT "p" LOCATE 4, 23 COLOR 7 PRINT "sing Help" LOCATE 4, 22 COLOR 14 PRINT "U" LOCATE 5, 22 COLOR 7 PRINT "A" LOCATE 5, 23 COLOR 14 PRINT "b" LOCATE 5, 24 COLOR 7 PRINT "out" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "l" OR ExitSelction$ = "L" THEN help1 IF ExitSelction$ = "u" OR ExitSelction$ = "U" THEN uhelp IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN about END SUB SUB help1 LOCATE 5, 8 COLOR 2 PRINT "ллллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 23 COLOR 14 PRINT "Help" LOCATE 6, 8 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 8 PRINT "лллллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 9 PRINT "БББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 17 COLOR 14 PRINT "Welcome to Help!" LOCATE 7, 10 PRINT "To go places press the letter that you" LOCATE 8, 10 PRINT "see in yellow. Then press enter. This" LOCATE 9, 10 PRINT "is a great way to find your way around!" LOCATE 10, 10 PRINT "Pressing an invalid letter will close" LOCATE 11, 10 PRINT "The program your in and bring you back" LOCATE 12, 10 PRINT "to the desktop." LOCATE 13, 30 PRINT "B to go back" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load END SUB SUB load top: CLS PRINT "" PRINT " LOADING ERIKSEN INC. OS SYSTEM..." CLS SCREEN 12 back games topSecretIcon bar main applications time LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelection$ IF ExitSelection$ = "f" OR ExitSelection$ = "F" THEN file IF ExitSelection$ = "i" OR ExitSelection$ = "I" THEN options IF ExitSelection$ = "p" OR ExitSelection$ = "P" THEN Help IF ExitSelection$ = "g" OR ExitSelection$ = "G" THEN game IF ExitSelection$ = "m" OR ExitSelection$ = "M" THEN mopt IF ExitSelection$ = "a" OR ExitSelection$ = "A" THEN applications1 IF ExitSelection$ = "u" OR ExitSelection$ = "U" THEN userIcon IF ExitSelection$ = "s" OR ExitSelection$ = "S" THEN TopSecret IF ExitSelection$ = "g" OR ExitSelection$ = "G" THEN game END SUB DEFINT A-Z SUB loadqb END SUB SUB loadWnewF toppp: CLS PRINT "" PRINT " LOADING ERIKSEN INC. OS SYSTEM..." CLS SCREEN 12 back games db topSecretIcon bar main applications time LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelection$ IF ExitSelection$ = "f" OR ExitSelection$ = "F" THEN file IF ExitSelection$ = "i" OR ExitSelection$ = "I" THEN options IF ExitSelection$ = "p" OR ExitSelection$ = "P" THEN Help IF ExitSelection$ = "g" OR ExitSelection$ = "G" THEN game IF ExitSelection$ = "m" OR ExitSelection$ = "M" THEN mopt IF ExitSelection$ = "a" OR ExitSelection$ = "A" THEN applications1 IF ExitSelection$ = "u" OR ExitSelection$ = "U" THEN userIcon IF ExitSelection$ = "e" OR ExitSelection$ = "E" THEN TopSecret IF ExitSelection$ = "g" OR ExitSelection$ = "G" THEN game END SUB DEFSNG A-Z SUB main LOCATE 15, 25 COLOR 11 PRINT "ллллллл" LOCATE 16, 25 COLOR 15 PRINT "лллллллБ" LOCATE 17, 25 COLOR 15 PRINT "лллллллБ" LOCATE 18, 26 PRINT "БББББББ" LOCATE 19, 27 COLOR 7 PRINT "ain" LOCATE 19, 26 COLOR 15 PRINT "M" END SUB DEFINT A-Z SUB memberFiles load END SUB DEFSNG A-Z SUB mopt LOCATE 12, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 12, 27 COLOR 14 PRINT "Main" LOCATE 13, 15 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 14, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 19, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 20, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 21, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 15, 17 COLOR 6 PRINT "ллллл" LOCATE 16, 17 PRINT "ллллл" LOCATE 17, 17 COLOR 7 PRINT "Fi" LOCATE 17, 19 COLOR 14 PRINT "l" LOCATE 17, 20 COLOR 7 PRINT "es" LOCATE 15, 25 COLOR 1 PRINT "ллллл" LOCATE 16, 25 PRINT "ллллл" LOCATE 17, 26 COLOR 7 PRINT "etup" LOCATE 17, 25 COLOR 14 PRINT "S" LOCATE 15, 34 COLOR 6 PRINT "ллллл" LOCATE 16, 34 PRINT "ллллл" LOCATE 17, 34 COLOR 7 PRINT "isplay" LOCATE 17, 33 COLOR 14 PRINT "D" COLOR 15 LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "l" OR ExitSelection$ = "L" THEN filem IF ExitSelction$ = "s" OR ExitSelection$ = "S" THEN setup IF ExitSelction$ = "d" OR ExitSelection$ = "D" THEN display END SUB DEFINT A-Z SUB Mouse (up, over, button) POKE VARPTR(A(4)), &H92 'Swap code,Get up setup 'Run Code up = up 'Adjust 25x80 POKE VARPTR(A(4)), &H91 'Swap code,Get over setup 'Run Code over = over 'Adjust 25x80 POKE VARPTR(A(4)), &H93 'Swap code,Get BX setup 'Run Code END SUB DEFSNG A-Z SUB MouseDriver (AX%, bx%, cx%, dx%) DEF SEG = VARSEG(MMouse$) MMouse% = SADD(MMouse$) END SUB SUB MouseHide AX% = 2 MouseDriver AX%, 0, 0, 0 END SUB FUNCTION MouseInit% AX% = 0 MouseDriver AX%, 0, 0, 0 MouseInit% = AX% END FUNCTION DEFINT A-Z SUB MousePointer (SW) POKE VARPTR(A(0)) + 1, SW 'Swap code,Set AX = (SW) 'Run Code 'Note: 'SW = 0-reset 'SW = 1-on 'SW = 2-off 'SW = 3-coordinates END SUB DEFSNG A-Z SUB MousePut AX% = 4 cx% = x% dx% = y% MouseDriver AX%, 0, cx%, dx% END SUB SUB MouseShow AX% = 1 MouseDriver AX%, 0, 0, 0 END SUB SUB MouseStatus (lb%, rb%, Xmouse%, Ymouse%) AX% = 3 MouseDriver AX%, bx%, cx%, dx% lb% = ((bx% AND 1) <> 0) rb% = ((bx% AND 2) <> 0) Xmouse% = cx% Ymouse% = dx% END SUB SUB New LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 18 COLOR 14 PRINT "New folder" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 8, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 7, 7 COLOR 14 PRINT "First letter:" LOCATE 6, 7 COLOR 14 SOUND 300, 2 INPUT "Name"; userIicon$ LOCATE 7, 7 COLOR 14 SOUND 300, 2 INPUT "First letter"; userfirst$ LOCATE 8, 18 COLOR 14 PRINT "ok!" SLEEP 2 loadWnewF END SUB SUB options LOCATE 3, 10 COLOR 8 PRINT "ллллллллллллллл" LOCATE 4, 10 PRINT "лллллллллллллллБ" LOCATE 5, 10 PRINT "лллллллллллллллБ" LOCATE 6, 10 PRINT "лллллллллллллллБ" LOCATE 7, 10 PRINT "лллллллллллллллБ" LOCATE 8, 11 PRINT "БББББББББББББББ" LOCATE 3, 12 COLOR 7 PRINT "Re" LOCATE 3, 14 COLOR 14 PRINT "l" LOCATE 3, 15 COLOR 7 PRINT "oad" LOCATE 4, 12 COLOR 14 PRINT "C" LOCATE 4, 13 COLOR 7 PRINT "hange.." LOCATE 5, 12 COLOR 7 PRINT "Quick" LOCATE 5, 17 PRINT "loa" LOCATE 5, 20 COLOR 14 PRINT "d" LOCATE 6, 12 COLOR 7 PRINT "Con" LOCATE 6, 15 COLOR 14 PRINT "f" LOCATE 6, 16 COLOR 7 PRINT "ig" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "l" OR ExitSelction$ = "L" THEN load IF ExitSelction$ = "c" OR ExitSelction$ = "C" THEN change IF ExitSelction$ = "d" OR ExitSelction$ = "D" THEN qload IF ExitSelction$ = "f" OR ExitSelction$ = "F" THEN config END SUB SUB pc LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "OK!" LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 13 COLOR 7 PRINT "OK!" SOUND 300, 2 SLEEP 2 load END SUB DEFINT A-Z SUB PopDownTheDamnMenu MouseHide PAINT (2, 2), 5, 15 MouseShow END SUB DEFSNG A-Z SUB qload LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 18 COLOR 14 PRINT "Quick Load" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 7 COLOR 14 INPUT "Load what"; hfind$ LOCATE 6, 18 COLOR 14 PRINT "FILE NOT FOUND!" SLEEP 2 load END SUB SUB Rename LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 24 COLOR 14 PRINT "Rename" LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 7 COLOR 14 SOUND 300, 2 INPUT "Rename what"; hfind$ SOUND 300, 2 COLOR 14 LOCATE 6, 7 INPUT "To what: "; lala$ COLOR 14 LOCATE 6, 26 SOUND 40, 2 PRINT "FILE NOT FOUND" SLEEP 2 load END SUB SUB saveit LOCATE 4, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 24 COLOR 14 PRINT "Save as..." LOCATE 5, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 6, 5 PRINT "лллллллллл ллллллллллллБ" LOCATE 7, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 6, 7 COLOR 14 SOUND 300, 2 INPUT "Save as"; sfile$ LOCATE 6, 18 COLOR 14 SOUND 300, 2 PRINT "FILE SAVED!" SLEEP 2 load END SUB SUB sblaster LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "OK!" LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 13 COLOR 7 PRINT "OK!" SOUND 300, 2 SLEEP 2 load END SUB SUB sconfig LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "Config OS/2" LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 13 COLOR 7 PRINT "C sound" LOCATE 8, 12 COLOR 14 PRINT "P" LOCATE 9, 13 COLOR 7 PRINT "ound Blaster" LOCATE 9, 12 COLOR 14 PRINT "S" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "s" OR ExitSelction$ = "S" THEN sblaster IF ExitSelction$ = "p" OR ExitSelction$ = "P" THEN pc END SUB SUB setup LOCATE 10, 5 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 10, 20 COLOR 14 PRINT "Eriksen Inc. OS/2 setup" LOCATE 11, 5 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 5 PRINT "ллллллллллллллллллллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 6 PRINT "ББББББББББББББББББББББББББББББББББББББББББББББББББББББ" LOCATE 16, 35 COLOR 14 PRINT "B to go back" LOCATE 11, 7 COLOR 14 PRINT "OS System:" LOCATE 11, 30 PRINT "Eriksen Inc." LOCATE 12, 7 PRINT "Video:" LOCATE 12, 30 PRINT "Standard" LOCATE 13, 7 PRINT "Sound:" LOCATE 13, 30 PRINT "PC Speaker" LOCATE 14, 7 PRINT "Year made:" LOCATE 14, 30 PRINT "1999" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelection$ = "B" THEN load END SUB SUB solitare LOCATE 3, 1 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 3, 30 COLOR 14 PRINT "Solitare" LOCATE 4, 1 COLOR 15 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 3 COLOR 7 PRINT "Fi" LOCATE 4, 5 COLOR 15 PRINT "l" LOCATE 4, 6 COLOR 7 PRINT "e" LOCATE 5, 1 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 2, 68 COLOR 15 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "l" OR ExitSelction$ = "L" THEN file2 IF ExitSelction$ = "f" OR ExitSelction$ = "F" THEN file END SUB SUB STICKS (Joyx%, JOYY%, BUT1%, BUt2%, BUT3%) Joyx% = STICK(0) JOYY% = STICK(1) BUT1% = STRIG(1) BUt2% = STRIG(5) BUT3% = STRIG(7) END SUB DEFINT A-Z SUB Tapps LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 18 COLOR 14 PRINT "Eriksen Inc. member's programs" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 12, 17 COLOR 7 PRINT "Member " LOCATE 12, 24 COLOR 14 PRINT "F" LOCATE 12, 25 COLOR 7 PRINT "iles" LOCATE 13, 17 COLOR 14 PRINT "Q" LOCATE 13, 18 COLOR 7 PRINT "basic" SOUND 300, 2 COLOR 15 LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "f" OR ExitSelction$ = "F" THEN memberFiles IF ExitSelction$ = "q" OR ExitSelction$ = "Q" THEN loadqb load END SUB FUNCTION TheyClickedFile% IF x% > 0 AND x% < 100 THEN IF y% > 0 AND y% < 24 THEN TheyClickedFile% = 1 END IF END FUNCTION DEFSNG A-Z SUB time T$ = TIME$ Hr = VAL(T$) IF Hr < 12 THEN Ampm$ = " AM" ELSE Ampm$ = " PM" IF Hr > 12 THEN Hr = Hr - 12 IF Hr = 0 THEN Hr = 12 prgTime$ = STR$(Hr) + RIGHT$(T$, 6) + Ampm$ IF Ampm$ = " AM" THEN ' convert prgTime$ to 5 characters prTime$ = LEFT$(prgTime$, 5) + " AM" 'for AM END IF IF Ampm$ = " AM" AND VAL(LEFT$(prgTime$, 3)) >= 10 THEN ' convert prgTime$ to 6 characters prTime$ = LEFT$(prgTime$, 6) + " AM" 'for PM after 10 END IF IF Ampm$ = " PM" THEN ' convert prgTime$ to 5 characters prTime$ = LEFT$(prgTime$, 5) + " PM" 'for PM END IF IF Ampm$ = " PM" AND VAL(LEFT$(prgTime$, 3)) >= 10 THEN ' convert prgTime$ to 6 characters prTime$ = LEFT$(prgTime$, 6) + " PM" 'for PM after 10 END IF LOCATE 26, 64: PRINT "Time came here:" COLOR 2 LOCATE 27, 66 ' PRINT prTime$ PRINT LTRIM$(prTime$); " "; RIGHT$(TIME$, 2) END SUB DEFINT A-Z SUB TopSecret LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 19 COLOR 14 PRINT "Eriksen Inc. -Members only!" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" COLOR 7 LOCATE 11, 16 PRINT "Top Secret " LOCATE 11, 27 COLOR 14 PRINT "P" LOCATE 11, 28 COLOR 7 PRINT "ojects" LOCATE 12, 16 PRINT "All " LOCATE 12, 20 COLOR 14 PRINT "U" LOCATE 12, 21 COLOR 7 PRINT "ser names" LOCATE 13, 16 COLOR 14 PRINT "M" LOCATE 13, 17 COLOR 7 PRINT "ember Programs" LOCATE 14, 17 COLOR 7 PRINT "ata Base" LOCATE 14, 16 COLOR 14 PRINT "D" COLOR 14 LOCATE 16, 16 PRINT "Selection:" SOUND 300, 2 LOCATE 16, 26 INPUT ExitSelction$ IF ExitSelction$ = "p" OR ExitSelction$ = "P" THEN Tprograms IF ExitSelction$ = "u" OR ExitSelction$ = "U" THEN Tusers IF ExitSelction$ = "m" OR ExitSelction$ = "M" THEN Tapps IF ExitSelction$ = "d" OR ExitSelction$ = "D" THEN database END SUB SUB topSecretIcon LOCATE 11, 5 COLOR LOCATE 9, 4 COLOR 11 PRINT "ллллллл" LOCATE 10, 4 COLOR 15 PRINT "лллллллБ" LOCATE 11, 4 COLOR 15 PRINT "лллллллБ" LOCATE 12, 5 PRINT "БББББББ" LOCATE 13, 4 COLOR 7 PRINT "ublime Inc." LOCATE 13, 3 COLOR 15 PRINT "S" END SUB SUB Tprograms LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "Top Secret Projects" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 12, 17 COLOR 7 PRINT "ilver Tab" LOCATE 12, 16 COLOR 14 PRINT "S" SOUND 300, 2 SLEEP TopSecret END SUB SUB Tusers LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "All User Names" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 12, 16 COLOR 14 PRINT "User Name :Erik" LOCATE 13, 16 PRINT "Password: coffee" SOUND 300, 2 LOCATE 16, 30 PRINT "-->" SLEEP LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "All User Names" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 12, 16 COLOR 14 PRINT "User Name :Guest" LOCATE 13, 16 PRINT "Password: Not required" SOUND 300, 2 LOCATE 16, 30 PRINT "-->" SLEEP LOCATE 9, 15 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 9, 23 COLOR 14 PRINT "All User Names" LOCATE 10, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 15 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 15, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 16, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 17, 15 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 18, 16 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 12, 16 COLOR 14 PRINT "Name :Apocalypse" LOCATE 13, 16 PRINT "Password: I'll ask em'" SOUND 300, 2 LOCATE 16, 30 PRINT "-->" SLEEP TopSecret END SUB DEFSNG A-Z SUB type1 LOCATE 4, 1 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 4, 30 COLOR 14 PRINT "Type" LOCATE 5, 1 COLOR 15 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 3 COLOR 7 PRINT "Fi" LOCATE 5, 5 COLOR 15 PRINT "l" LOCATE 5, 6 COLOR 15 PRINT "e" LOCATE 6, 1 COLOR 8 PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" LOCATE 6, 3 COLOR 14 INPUT ""; type$ LOCATE 10, 3 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллл" LOCATE 10, 10 COLOR 14 PRINT "SAVE?" LOCATE 11, 3 COLOR 7 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 3 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 4 PRINT "ББББББББББББББББББББББББББББББББББББББББ" LOCATE 11, 5 COLOR 14 PRINT "Save changes?" LOCATE 12, 5 COLOR 7 PRINT "Y" LOCATE 12, 6 COLOR 14 PRINT "e" LOCATE 12, 7 COLOR 7 PRINT "s" LOCATE 12, 12 COLOR 7 PRINT "o" LOCATE 12, 11 COLOR 14 PRINT "N" LOCATE 12, 16 COLOR 14 PRINT "Q" LOCATE 12, 17 COLOR 7 PRINT "uit" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "e" OR ExitSelction$ = "E" THEN saveit IF ExitSelction$ = "n" OR ExitSelction$ = "N" THEN load IF ExitSelction$ = "q" OR ExitSelction$ = "Q" THEN load END SUB SUB uhelp LOCATE 5, 8 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллллллл" LOCATE 5, 18 COLOR 14 PRINT "Using Help" LOCATE 6, 8 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 7, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 8, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 11, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 12, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 13, 8 PRINT "ллллллллллллллллллллллллллллллллллллллллБ" LOCATE 14, 9 PRINT "ББББББББББББББББББББББББББББББББББББББББ" LOCATE 7, 10 COLOR 14 PRINT "To use help you just go to help" LOCATE 8, 10 PRINT "by pressing P and enter. Then press" LOCATE 9, 10 PRINT "L this will open the help box. Read" LOCATE 10, 10 PRINT "and you will know how to work your" LOCATE 11, 10 PRINT "Eriksen Inc. OS/2 like a pro!!!!" LOCATE 13, 30 PRINT "B to go back" LOCATE 2, 68 PRINT "Command:" LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "b" OR ExitSelction$ = "B" THEN load END SUB DEFINT A-Z SUB userIcon PRINT "WORK ON THIS ERIK!!!" SLEEP END SUB DEFSNG A-Z SUB vcongif LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "Config OS/2" LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 13 COLOR 7 PRINT "SICII graphics" LOCATE 8, 12 COLOR 14 PRINT "A" LOCATE 9, 12 COLOR 14 PRINT "V" LOCATE 9, 13 COLOR 7 PRINT "GA graphics" LOCATE 2, 68 PRINT "Command:" SOUND 300, 2 LOCATE 2, 76 INPUT ExitSelction$ IF ExitSelction$ = "a" OR ExitSelction$ = "A" THEN load IF ExitSelction$ = "v" OR ExitSelction$ = "V" THEN vga END SUB SUB vga LOCATE 7, 10 COLOR 2 PRINT "лллллллллллллллллллллллллллллллллллл" LOCATE 7, 23 COLOR 14 PRINT "VGA GRAPHICS LOADING..." LOCATE 8, 10 COLOR 8 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 9, 10 PRINT "ллллллллллллллллллллллллллллллллллллБ" LOCATE 10, 11 PRINT "ББББББББББББББББББББББББББББББББББББ" LOCATE 8, 11 COLOR 7 PRINT "PLEASE WAIT..." SOUND 300, 2 SLEEP 2 SCREEN 13 back games bar main applications time END SUB DEFINT A-Z FUNCTION WhereTheyClicked% ' 1 = on a file name ' 2 = on a directory ' 3 = up, dir select ' 4 = down, dir select ' 5 = left, dir select ' 6 = right, dir select IF x% > 90 AND x% < 435 THEN IF y% > 190 AND y% < 338 THEN WhereTheyClicked% = 1 END IF IF x% > 456 AND x% < 552 THEN IF y% > 190 AND y% < 338 THEN WhereTheyClicked% = 2 END IF IF x% > 558 AND x% < 570 THEN IF y% > 190 AND y% < 210 THEN WhereTheyClicked% = 3 IF y% > 320 AND y% < 338 THEN WhereTheyClicked% = 4 END IF IF y% > 345 AND y% < 365 THEN IF x% > 88 AND x% < 104 THEN WhereTheyClicked% = 5 IF x% > 420 AND x% < 437 THEN WhereTheyClicked% = 6 END IF LINE (88, 345)-(437, 365), 15, B ' arrow box END FUNCTION