home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / SCBBS3.0.ARC / BOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  265 b   |  12 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 12 PRINTCHR$(14);"[147]"
  3. 14 OPEN1,8,3,"TITLE"
  4. 16 GET#1,X$:PRINTX$;
  5. 18 IFST=0GOTO16
  6. 20 CLOSE1
  7. 22 GETA$:IFA$=""THEN22
  8. 24 IFA$="1"THENPRINT"[147][144]LOAD"CHR$(34)"^SCBBS"CHR$(34)",8,1":GOTO60
  9. 26 IFA$="2"THENPRINT"[147][144]LOAD"CHR$(34)"SETUP"CHR$(34)",8,1":GOTO60
  10. 28 GOTO22
  11. 60 PRINT"RUN";:POKE631,13:POKE632,13:POKE198,2
  12.