DECLARE SUB screensavemenu ()
DECLARE SUB screenclock ()
DECLARE SUB screensave ()
DECLARE SUB lista ()
DECLARE SUB mousedriver (ax%, bx%, cx%, dx%, lb%, rb%, ex%)
DIM SHARED mouse$
DIM byte AS STRING * 1
DIM SHARED pass$
DIM SHARED pass
DIM SHARED sec
buffer = 0
CLS
mousedriver 1, bx%, cx%, dx%, lb%, rb%, 1
COLOR 15, 1
screensavemenu
CLS
DO
screens = screens + 1
IF screens >= (50 * sec) THEN screensave
LOCATE 1, 1: PRINT " A: B: Word Basic Dos Help"
LOCATE 2, 1: PRINT "Task Bar"
'dos prompt
IF dos = 1 THEN LOCATE 15, 1: PRINT "________________"
IF dos = 1 THEN LOCATE 16, 1: PRINT "|-|DOS Prompt|-|"
IF dos = 1 THEN LOCATE 17, 1: PRINT "| |"
IF dos = 1 THEN LOCATE 18, 1: PRINT "|______________|"
IF dos = 1 THEN LOCATE 17, 2: INPUT com$
IF dos = 1 AND com$ <> "" THEN CLS : SHELL com$: RUN
'word window
IF word = 1 THEN LOCATE 11, 1: PRINT "________________"
IF word = 1 THEN LOCATE 12, 1: PRINT "|-| Word |X|"
IF word = 1 THEN LOCATE 13, 1: PRINT "| |1| Start |"
IF word = 1 THEN LOCATE 14, 1: PRINT "|______________|"
'BASIC window
IF basic = 1 THEN LOCATE 7, 1: PRINT "________________"
IF basic = 1 THEN LOCATE 8, 2: PRINT "|-| Basica |"
IF basic = 1 THEN LOCATE 9, 3: PRINT "| |1| Start |"
IF basic = 1 THEN LOCATE 10, 4: PRINT "|______________|"
'Floppy Disks window
IF a = 1 THEN LOCATE 3, 1: PRINT "______________"
IF a = 1 THEN LOCATE 4, 1: PRINT "|-| A: |"
IF a = 1 THEN LOCATE 5, 1: PRINT "| |1| List |"
IF a = 1 THEN LOCATE 6, 1: PRINT "| |2| Open |"
IF a = 1 THEN LOCATE 7, 1: PRINT "|____________|"
IF b = 1 THEN LOCATE 3, 25: PRINT "______________"
IF b = 1 THEN LOCATE 4, 25: PRINT "|-| B: |X|"
IF b = 1 THEN LOCATE 5, 25: PRINT "| |1| List |"
IF b = 1 THEN LOCATE 6, 25: PRINT "| |2| Open |"
IF b = 1 THEN LOCATE 7, 25: PRINT "|____________|"
'Opens windows when buttons are clicked:
'DOS Prompt
IF dx% < 1 AND cx% / 8 > 30 AND cx% / 8 < 32 AND lb% = -1 THEN CLS : dos = 1
'Word
IF dx% / 8 < 1 AND cx% / 8 = 13 AND lb% = -1 THEN CLS : word = 1
IF dx% / 8 < 1 AND cx% / 8 = 14 AND lb% = -1 THEN CLS : word = 1
IF dx% / 8 < 1 AND cx% / 8 = 15 AND lb% = -1 THEN CLS : word = 1
IF dx% / 8 < 1 AND cx% / 8 = 16 AND lb% = -1 THEN CLS : word = 1
IF dx% / 8 = 11 AND cx% / 8 = 1 AND lb% = -1 THEN CLS : word = 2
IF cx% / 8 = 3 AND dx% / 8 = 12 AND lb% = -1 THEN CLS : RUN "word.w39"
'Task bar
'Floppy disk A:
IF dx% < 1 AND cx% / 8 > 3 AND cx% / 8 < 6 AND lb% = -1 THEN CLS : a = 1
IF a = 1 AND dx% / 8 = 4 AND cx% / 8 = 3 AND lb% = -1 THEN DIM SHARED whatdrive: whatdrive = 1: lista
IF a = 1 AND dx% / 8 = 3 AND cx% / 8 = 1 AND lb% = -1 THEN CLS : a = 2
IF a = 2 AND cx% = 2 AND dx% = 10 AND lb% = -1 THEN a = 1: CLS
'Floppy disk B:
IF dx% / 8 = 4 AND cx% / 8 = 27 AND lb% = -1 THEN DIM SHARED whatdrives: whatdrives = 1: lista:
IF dx% < 1 AND cx% / 8 > 7 AND cx% / 8 < 10 AND lb% = -1 THEN CLS : b = 1
mousedriver 3, bx%, cx%, dx%, lb%, rb%, 0
IF dx% / 8 = 3 AND cx% / 8 = 25 AND lb% = -1 THEN CLS : b = 2
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
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
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
SUB lista
LOCATE 20, 1
IF whatdrive = 1 THEN c$ = "DIR A:/p"
IF whatdrives = 1 THEN c$ = "DIR b:/p"
SHELL c$
SHELL "Pause"
CLS
END SUB
SUB mousedriver (ax%, bx%, cx%, dx%, lb%, rb%, ex%)
IF ex% = 1 THEN
mouse$ = SPACE$(58)
FOR i% = 1 TO 57
READ a$
h$ = CHR$(VAL("&h" + a$))
MID$(mouse$, i%, 1) = h$
NEXT i%
CLS
END IF
DEF SEG = VARSEG(mouse$)
CALL Absolute(ax%, bx%, cx%, dx%, SADD(mouse$))
lb% = ((bx% AND 1) <> 0)
rb% = ((bx% AND 2) <> 0)
END SUB
SUB screensave
mousedriver 1, bx%, cx%, dx%, lb%, rb%, 1
SCREEN 1
DO: a% = INT(RND * 639 + 1)
b% = INT(RND * 199 + 1)
c% = INT(RND * 639 + 1)
d% = INT(RND * 199 + 1)
colour% = INT(RND * 15 + 1)
color2% = INT(RND * 15 + 1)
IF colour% = color2% THEN colour% = 32
COLOR colour%, color2%
LINE (a%, b%)-(c%, d%)
mousedriver 3, bx%, cx%, dx%, lb%, rb%, 0
LOOP UNTIL INKEY$ <> "" OR lb% = -1
IF pass = 0 THEN CLS : PRINT "|-|Screen Saver|"
IF pass = 0 THEN PRINT "| |"
IF pass = 0 THEN PRINT "|______________|"
IF pass = 0 THEN LOCATE 2, 2: INPUT p$
IF pass = 0 AND p$ = pass$ THEN RUN
RUN
END SUB
SUB screensavemenu
INPUT "Seconds for screensaver(Max.120)", sec
IF sec > 120 OR sec = 0 THEN sec = 60
INPUT "Password:", pass$
IF pass$ = "" THEN pass = 1
END SUB