FONT 0 KEYBOARD ON PRINT INPUT "BOOT ARTHUR 4.1? >"; A$ IF A$ = "ADMIN" THEN GOTO START LOADING_BAR: CLS B=3 WAIT 60 PRINT " " LOCATE 0,4 PRINT " ARTHUR 4.1" PRINT PRINT " (==============)" LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 LOCATE B,6 WAIT 45 PRINT "/" B=B+1 WAIT 50 GOTO NA START: CLS LOCATE 0,2 WAIT 50 PRINT "WELCOME BACK " PRINT "THE LORD OF TIME." GOTO INP NA: CLS LOCATE 0,2 WAIT 50 PRINT "GREETINGS USER." GOTO INP INP: PRINT INPUT ">"; A$ WAIT 50 PRINT IF INSTR(A$, "HI") THEN PRINT "HELLO." IF INSTR(A$, "GREETING") THEN PRINT "HELLO." IF INSTR(A$, "HELLO") THEN PRINT "HELLO." IF INSTR(A$, "BYE") THEN PRINT "BYE? WHERE ARE YOU GOING?" IF INSTR(A$, "SO LONG") THEN PRINT "SO LONG? WHERE ARE YOU GOING?" REM STARTERS IF INSTR(A$, "WHAT") THEN GOTO WHAT NW: IF INSTR(A$, "HOW") THEN GOTO HOW NH: IF INSTR(A$, "WHEN") THEN GOTO WHEN NWW: IF INSTR(A$, "WHO") THEN GOTO WHO GOTO INP WHAT: IF INSTR(A$, "YOU") THEN PRINT "I AM A CHATBOT BETA." GOTO NW HOW: GOTO NH WHEN: GOTO NWW WHO: IF INSTR(A$, "YOU") THEN PRINT "MY NAME IS ARTHUR." IF INSTR(A$, "CREATOR") THEN PRINT "THE LORD OF TIME IS MY CREATOR." GOTO INP #1:MAIN PALETTES 003F2F0000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 00003E435D613E000000000000000000 00000808080808000000000000000000 00007F017F407F000000000000000000 00007E011F017E000000000000000000 000041417F0101000000000000000000 00007F407F017F000000000000000000 00003F407E413E000000000000000000 00007E01010101000000000000000000 00003E417F413E000000000000000000 00003E413F017E000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00003E417F4141000000000000000000 00007E417E417E000000000000000000 00003F4040403F000000000000000000 00007E4141417E000000000000000000 00003F407C403F000000000000000000 00003F407C4040000000000000000000 00003F404F413E000000000000000000 000041417F4141000000000000000000 00007F0808087F000000000000000000 00007E0101413E000000000000000000 000041427C4241000000000000000000 0000404040403F000000000000000000 00004163554941000000000000000000 00006151494543000000000000000000 00003E4141413E000000000000000000 00003E417E4040000000000000000000 00003E4149453A000000000000000000 00003E417E4241000000000000000000 00003F403E017E000000000000000000 00007F08080808000000000000000000 0000414141413E000000000000000000 00004141221408000000000000000000 00004149556341000000000000000000 00006314081463000000000000000000 000041413F0101000000000000000000 00007F021C207F000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 00003C4A523C00000000000000000000 00001010101000000000000000000000 00007E0E707E00000000000000000000 00007C061E7C00000000000000000000 0000427E020200000000000000000000 00007E700E7E00000000000000000000 00007E704E7E00000000000000000000 00007C02020200000000000000000000 00007E724E7E00000000000000000000 00007E720E7E00000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00003C427E4200000000000000000000 0000407C423C00000000000000000000 00003E40403E00000000000000000000 0000023E423C00000000000000000000 00003E40703E00000000000000000000 00003E40704000000000000000000000 00003E404E3C00000000000000000000 0000427E424200000000000000000000 00007C10107C00000000000000000000 00007E02427C00000000000000000000 0000427C424200000000000000000000 00004040403E00000000000000000000 0000466A524200000000000000000000 000062524A4600000000000000000000 00003C42423C00000000000000000000 00003C427C4000000000000000000000 00003C424E3E00000000000000000000 00003C427C4200000000000000000000 00003E700E7C00000000000000000000 00007C10101000000000000000000000 00004242423C00000000000000000000 00004242241800000000000000000000 000042526A4600000000000000000000 00004224186600000000000000000000 0000423E020200000000000000000000 00007E0C307E00000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 3E7F63676B737F3E0000000000000000 3F7F7F1F1F1F1F1F0000000000000000 7F7F1F7F7F7C7F7F0000000000000000 7F7F7F1F7F1F7F7F0000000000000000 77777F7F7F1F1F1F0000000000000000 7F7F7C7F7F1F7F7F0000000000000000 3F7F7C7F7F737F3E0000000000000000 7F7F7F7F7F1F1F1F0000000000000000 3E7F7F737F737F3E0000000000000000 3E7F737F7F1F7F7E0000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 7F7F7F737F7F77770000000000000000 7E7F677C7F677F7E0000000000000000 3F7F7F7C7F7F7F3F0000000000000000 7E7F7F737F7F7F7E0000000000000000 7F7F7F7C7F7C7F7F0000000000000000 7F7F7F7C7F7C7C7C0000000000000000 3E7F7F7C7D7D7F3E0000000000000000 77777F7F7F7F77770000000000000000 7F7F3E3E3E3E7F7F0000000000000000 7E7F7F1F5F5F7F3E0000000000000000 77777F7C7F7F77770000000000000000 7C7C7C7F7F7F7F7F0000000000000000 6363777F7F7F77770000000000000000 7D7D7F7F7F7F5F5F0000000000000000 3E7F7F737F7F7F3E0000000000000000 7E7F7F737F7E7C7C0000000000000000 3F7F7F677F3F1F1F0000000000000000 7E7F7F737F7E77770000000000000000 3E7F7F7C1F7F7F3E0000000000000000 7F7F7F7F7F1C1C1C0000000000000000 77777F7F7F7F7F3E0000000000000000 77777F7F7F3E1C080000000000000000 636B7F7F7F7F77360000000000000000 77777F1C7F7F77770000000000000000 77777F7F7F3E3E3E0000000000000000 7F7F1F3F7E7C7F7F0000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000