home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / CPRN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  747 b   |  26 lines
  1. 5 POKE 53281,0
  2. 10 PRINT CHR$(14)+"[147]"+""
  3. 20 PRINT TAB(11)"*** [195]ITADEL64 ***"
  4. 21 PRINT TAB(9)"[194]ULLETIN [194]OARD [211]YSTEM"
  5. 22 PRINT ""
  6. 23 PRINTTAB(12)"(C) 1986 BY [203]2[206][197]":PRINT
  7. 25 PRINT
  8. 26 PRINT TAB(10)"[193]LL RIGHTS RESERVED."
  9. 27 PRINT"[198]OR INFORMATION, WRITE:":PRINTTAB(10)"[203]2[206][197] [211]OFTWARE"
  10. 28 PRINTTAB(10)"[208].[207]. [194]OX 289":PRINTTAB(10)"[195]HATSWORTH, [206][202] 08019":PRINT
  11. 29 PRINT"[195]ITADEL-64 IS *FREEWARE*.  [215]E ASK A $15":PRINT"   DONATION IF YOU USE";
  12. 30 PRINT" IT.  [212]HANKS!!"
  13. 33 OPEN2,2,0,CHR$(6):PRINT#2,"A";"T";"V";"0";"X";"1";"S";"0";"=";"2";
  14. 34 PRINT#2,"E";"1";CHR$(13);
  15. 35 FORX=1TO3000:NEXT:CLOSE2
  16. 38 PRINT "[144]":FORX=1TO500:NEXTX
  17. 39 REM
  18. 40 GOSUB100:POKE253,HIUSER:POKE254,LOWUSER:IFMAXUSER=0THENPOKE253,0:POKE254,150
  19. 41 REM
  20. 43 PRINT "LOAD ";CHR$(34);"TOD";CHR$(34);",8"
  21. 45 PRINT "RUN[145][145][145][145][145][145][145][145]"
  22. 50 POKE631,13:POKE632,13:POKE198,2
  23. 60 CLR:NEW
  24. 100 MAXUSER=0:HIUSER=INT(MAXUSER/256):LOWUSER=MAXUSER-256*HIUSER
  25. 110 RETURN
  26.