home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / AABBS68.ARC / _STARTHERE (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  33 lines
  1. 0 POKE770,131:POKE771,164
  2. 10 POKE53281,7:POKE53280,7:PRINT"[147][152]        [204]OAD [194][194][211] OR [211]ETUP?"
  3. 20 PRINT"B=[194][194][211]               S=[211]ETUP
  4. 30 [161]A$:[145][171](A$[179][177]"B"[175]A$[179][177]"S")[137]30
  5. 90 C$[178]"_AA SETUP V*":[139]A$[178]"B"[167]C$[178]"_AA BOOT  V*
  6. 100 FORI=1TOLEN(C$):POKE3114+I,ASC(MID$(C$,I,1)):NEXT
  7. 2000 GOSUB2060:PRINT""SPC(10)"[142]THE ALL AMERICAN BBS
  8. 2005 [153]"
  9. 2010 GOSUB2250:PRINT"[157][157][157][157]    [150]THE AA BBS V6.7             [146]
  10. 2020 [153]"ON";:[141]2250:[153]"CMDCMDCMDCMD    BY NICK SMITH               WAIT
  11. 2030 PRINT"[145]";:GOSUB2250:PRINT"[157][157][157][157]    [154]IS NOW LOADING              [146]
  12. 2040 [153]"ON";:[141]2250:[153]"CMDCMDCMDCMD    OPENPLEASE STAND BY             WAITONON
  13. 2050 SYS3022:END
  14. 2060 REM ** FLAGRANT CHAUVINISM **
  15. 2070 A$="    "+CHR$(18)
  16. 2080 B$=CHR$(146)
  17. 2090 C$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":C$=C$+C$
  18. 2100 D$=" * * * * * * *"
  19. 2110 E$=""
  20. 2120 F$=A$+C$
  21. 2130 G$=A$+B$+C$
  22. 2140 H$=A$+RIGHT$(D$,13)+B$
  23. 2150 J$=A$+LEFT$(D$,13)+B$
  24. 2160 POKE53265,91
  25. 2170 POKE53282,1:POKE53283,6:POKE53284,2
  26. 2180 PRINT"[147]"E$
  27. 2190 FORX=1TO6:PRINTF$CHR$(141)G$:NEXT
  28. 2200 PRINTF$E$
  29. 2210 PRINTH$,,,J$,,,H$,,,J$,,,H$,,,J$,,,H$
  30. 2230 RETURN
  31. 2240 GOTO2240
  32. 2250 FORN=1TO10:POKE53281,N:POKE53280,N+1:FORX=1TO35:NEXT:PRINT""N"[157][157]";N;"[157][157][157]";:NEXT:RETURN
  33.