Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Please Help! My Program skips input command

MGSFANMGSFAN Posts: 3Member
Here is the program It skips the login and password
I tried making login and password a sub

------
CLS
PRINT "Loading MGX"


SLEEP 8

PRINT "Memory: 1048576k/1049216k available (1162k kernel code, 6812k"
PRINT "482k data 240k init, Ok highmem)"


PRINT "Dentry-cache hash table entries: 32768 (order: 6, 262144 bytes)"

PRINT "Buffer-cache hash table entries: 8192 (order: 3, 32768 bytes)"
PRINT "Page-cache hash table entries: 65536 (order: 6, 262144 bytes)"
PRINT "Inode-cache hash table entries: 16384 (order: 5, 131072 bytes)"

PRINT "Enabling fast FPU save and restore"
SLEEP 3
PRINT "Enabling unmasked SIMD FPU exception support"
SLEEP 3
PRINT "Checking 'hlt' instruction"
SLEEP 1

PRINT "MGX NET9.0 for MGX 6.0"

PRINT "BIOS Vendor: KCEJ"

PRINT "BIOS Version: 5.73"

PRINT "Starting kswapd v3.0"
SLEEP 3
PRINT "pty: 256 Unix98 ptys configured"

PRINT "Uniform Multi-Platform E-IDE driver Revision: 9.11"

PRINT "DMA at 0xf000-0xf007, BIOS settings: da0:DMA, da1:pio"

PRINT "19623/16/255 from BIOS ignored"
SLEEP 9
PRINT "da0: TOKUGAWA HD4192 E, ATA DISK drive"

PRINT "da1: TOKUGAWA CF2048J, REMOVABLE drive"

PRINT "ide0 at 0x1f0-0x1f7, 0x3f6 on irq 14"

PRINT "158856/16/63 UDMA(33)"

PRINT "Partition check:"
SLEEP 10
PRINT "eth0: ARMSTECH Corporation 826557, 00:03:47:70:29:86, IRQ 9."
SLEEP 1
PRINT "NET9: MGX TCP/IP 4.0 for NET9.0"
SLEEP 1
PRINT "IP Proyocols: ICMP, UDP, TCP, IGMP"

PRINT "IP: routing cache hash table of 512 buckets, 4Kbytes"
SLEEP 5
PRINT "ICP: hash tables configured (established 8192 bind 8192)"

PRINT "x domain sockets 1.0/SMP for MGX NET9.0"

PRINT "VFS: Mounted root (ext4 filesystem) readonly."

PRINT "Freeing unused kernel memory: 176k freed"
SLEEP 8
PRINT "Adding Swap: 211640k swap space (priority -1)"
SLEEP 4
PRINT "INIT: Version 5.64"
SLEEP 3
CLS
PRINT "Welcome to MONORITH SERVICE SYSTEM"

PRINT "PROVIDED BY STRATELOGIC INC.,LTD."

PRINT "######################CAUTION#########################"

PRINT "FOR MILITARY USE ONLY."

PRINT "UNAUTHORIZED PERSONNEL MAKING ACCESS OR ATTEMPTING ACCESS WILL BE"

PRINT "PENALIZED SEVERELY UNDER MARTIAL LAW."
SLEEP 50
PRINT "Mounting proc filesystem"
SLEEP 4
PRINT "Configuring kernel parameters"
SLEEP 2
PRINT "Loading default keymap"
SLEEP 1
PRINT "Activating swap partitions"
SLEEP 2
PRINT "Setting hostname SYS001"
SLEEP 4
PRINT "Checking root filesystem"
SLEEP 2
PRINT "H9/dev/da01: clean 2676/788800 files, 492275/3155200 blocks"

PRINT "Remounting root filesystem in read-write mode"
SLEEP 8
PRINT "Finding module dependencies"
SLEEP 4
PRINT "/dev/da05: clean 21/82328 files, 10415/329301 blocks"

PRINT "/dev/da06: clean 75098/9729792 files, 316284/38919168 blocks"

PRINT "/dev/da07: clean 20881/9729792 files, 834953/38919168 blocks"

PRINT "Mounting local filesystems"
SLEEP 4
PRINT "Enabling swap space"
SLEEP 4
PRINT "INIT: Entering runlevel: 4"
SLEEP 3
PRINT "Entering non-interactive startup"
SLEEP 5
PRINT "Setting network parameters"
SLEEP 8
PRINT "Bringing up interface lo"
SLEEP 4
PRINT "Bringing up interface eth0"
SLEEP 4
PRINT "MONORITH MGX 2.1.5"
PRINT "Kernel 6.2.38"
DIM LOGON AS STRING
DIM PASSWORD AS STRING
SLEEP 2
INPUT "Login:", LOGON
INPUT "Password:", PASSWORD
PRINT "Login Correct"
PRINT "Password Correct"
PRINT "Last login:"; "on tty1"
------------------

Comments

  • Azurith_XEONAzurith_XEON Posts: 15Member
    cls
    REM These are the real password and login
    Passwordx$=(Puttherealpasswordhere)
    Loginnamex$=(Puttherealloginnamehere)

    REM This asks for the real logon name, if correct it asks for a
    REM password.
    Login:
    INPUT "Login:";LOGON$,
    If logon$=loginnamex$
    then goto password1

    REM If the password matches, it will proceed to the main script, if
    REM not, it goes to login: (You could also set it to quite after three
    REM failed attempts at password.)
    Password1:
    INPUT "Password:";Password$,
    If password$=passwordx$
    goto end
    else
    goto login
    endif

    end:
    PRINT "Login Correct"
    PRINT "Password Correct"
    Print "Welcome"

    Maby that'll work, hope it does.
    BTW, i'd use a real memory retrieve command {to make it more real to the user} Different people have different comps. lol

    ~~Azurith_Xeon
Sign In or Register to comment.