home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / AABBS68.ARC / _AACGBBSV6.7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  32.2 KB  |  20 lines
  1. 7 SYS2080 
  2. 20000 ICK SMITH
  3. 59329  _NEW MESSAGE***ERROR***BJ OR***ERROR***7>***ERROR***RTHEN***ERROR***.OR***ERROR***RY=ABSa***ERROR***0:_USERIDS,S,AABSFREABS`ABSBCLOSE?<GOTO<CLOSE\<GOTO<CLOSE2<GOTO<CLOSE@<GOTO<><GOTO<OR<GOTO<CLOSE7Ch?ABSad***ERROR***SGNB***ERROR*** *****ERROR***VAL***ERROR*** ***ERROR******ERROR***VAL***ERROR*****<GOTO<CLOSE?<GOTO<CLOSE2<GOTO<CLOSE\CSGNB***ERROR*** *****ERROR***^**CSGNa***ERROR***
  4. 0:_NEW,S,W<FRE<`>HCLOSE8SCLOSE8<a***ERROR***
  5. 0:_NEW,S,A<FRE<`>***ERROR***FRECLOSE<BCMDTO C<BCLOSE@<***ERROR*** AT <AND<***ERROR*** WITH<CLOSE-0<***ERROR*** PEEKAUDC<D<aW}CLOSE@>=61***ERROR***CLOSE@SGN=61***ERROR***CLOSE@USR=61***ERROR***kCLOSEk>***ERROR***kREMLOGCLOSEkSPC(   GOSUB>***ERROR***>***ERROR***>***ERROR***kREMSGNREMABS
  6. REMPOS
  7. REMRND
  8. CLOSEk***ERROR***    REM>***ERROR***>***ERROR***kREM>REM<
  9. REMINT
  10. REMUSR
  11. REMFRE
  12. REMSQR
  13. REMLOG
  14. CLOSEkSPC(     REM>***ERROR***>***ERROR***kGOSUB0=SPC(***ERROR***6***ERROR***<GOSUBSQR    ***ERROR***0CLOSE<***ERROR***<REM0=SPC(***ERROR***6***ERROR***SGNREMSQR    ***ERROR***0CLOSESGN***ERROR***SGNCLOSEk0=SPC(***ERROR***6***ERROR***INTCLOSEkSQR    ***ERROR***0CLOSEINT***ERROR***INTCLOSE<***ERROR***/CLOSESGN***ERROR***/CLOSEINT***ERROR***@>B***ERROR***V0CjVALSPC(y***ERROR***STEPSPC(FRE***ERROR***+tRNDPCLOSE@SCLOSE@<>6***ERROR***/CLOSE@ABS>6***ERROR***/
  15. ***ERROR*** ***ERROR***RONG VALNTRY>[***ERROR***0:CLOSEB***ERROR***S,S,RSQRFRESQR`***ERROR***
  16. ***ERROR***ORRY, NONE TODAYATN(sCLOSE8SQRa'6INTD?OR***ERROR***"á">***ERROR***"║Há"TO S-***ERROR******ERROR***  CLOSE"0/ª 6á"0***ERROR*** - CLOSE"ñ ┴!â¢░ö R[ï║a@uÉ1α(á(▒á(á"
  17. X***ERROR***0:CLOSEBSTOP***ERROR***,S,RFREFREFRE`***ERROR***
  18. ***ERROR******ERROR******ERROR******ERROR***, NOTHING THERE!ATN(sCLOSE8FREa"<'
  19. ╕┌"***ERROR***SAVELOAD
  20. LISTOR !DATA\FREa'
  21. INTHENDFEND***ERROR***R\(ORSPC(ASC?***ERROR***<CLOSE2<***ERROR***WAIT <CLOSE?<***ERROR***WAIT <THENSTEP.0>***ERROR***
  22. ***ERROR***HICH DRIVE?>=***ERROR***WAITtGOCLOSEPRINT1***ERROR***CMDFRECMDTHENAND.
  23. ***ERROR*** ***ERROR***OT ***ERROR******ERROR******ERROR***RIGHT$***ERROR***VAL!>`<_SPC(>aSINCMD>`CMD<***ERROR***ACTIVE>`<_SPC(INTB***ERROR***ATN***ERROR******ERROR***CSGNCLOSEABSORCLOSE%THEN***ERROR***.SGNSGNCLOSE%THEN*.=ORCLOSEABSTHEN***ERROR***.ORSGNCLOSEABSTHEN*.>OR***ERROR***THEN,CLOSESPC( CLOSEABSORCLOSE%THEN*.OR SPC(&CLOSEABSSPC(&CLOSE%CLOSE%.***ERROR*** CLOSE&RGOINTB***ERROR***+++<ERGO****ERROR***=INTHENDFEND***ERROR***R]EENDFEND***ERROR***R]E*CLOSE=THENOR    >***ERROR***'3PRINT]ENDSPC(***ERROR***3
  24. THENOR***ERROR***-l;ENDGOTOENDSPC(GOSUB3
  25. 
  26. THEN,***ERROR***-l;*CLOSE=THENOR    >***ERROR***'3PRINT]***ERROR***
  27. ATN***ERROR***VAL ***ERROR******ERROR******ERROR*** ***ERROR******ERROR***RIGHT$***ERROR***CHR$ ATN LEN-64/128 LEN***ERROR******ERROR******ERROR******ERROR***ATN!CLR***ERROR***CHR$***ERROR***ATN***ERROR***LEFT$RIGHT$LEN***ERROR*** ***ERROR***VAL***ERROR******ERROR***RIGHT$***ERROR***ATN***ERROR*** ***ERROR******ERROR******ERROR***CHR$***ERROR***ATN***ERROR***ATN!CLRFREMID$!***ERROR***POKE***ERROR***Y>GO***ERROR***MID$ORGOINTBRESTORECINTB***ERROR***WAIT...C***ERROR***LOAD<OPEN>SPC(m***ERROR***STEPSPC(INT***ERROR***+tRND***ERROR******ERROR***N<CLOSEY***ERROR***CMDFF<?***ERROR***<***ERROR***>YS***ERROR***P   LENURRENTLY RIGHT$***ERROR***<CLOSED    ***ERROR***CMDCMD***ERROR******ERROR******ERROR***<?***ERROR***<***ERROR***>RINT ***ERROR***SER ***ERROR***OG>***ERROR***LENHOICE <CLOSEC<***ERROR***?<ENDFEND***ERROR***^NEND***ERROR***A&***ERROR***LOADATNBORT>***ERROR***
  28. ***ERROR***OU MAY CONTINUE NOWATN!CLREND***ERROR***Bx
  29. ]***ERROR***?END***ERROR***C.!***ERROR***TANEND***ERROR***D[END***ERROR***E`QEND***ERROR***F    >***ERROR***'3PRINTEND***ERROR***Gd`]***ERROR***END***ERROR***H_SPC(]***ERROR***END***ERROR***JsD]***ERROR***END***ERROR***L    ORLENANDPEEK*PEND***ERROR***M,***ERROR******ERROR***YS***ERROR***P***ERROR***?***ERROR******ERROR***UBLIC***ERROR***3CLOSEG***ERROR***2>***ERROR***JORLENANDPEEKSGNTHENNOTSGNTHENSTEP*GOTOEND***ERROR***OCLOSEY***ERROR***YCLOSEY"º«ÇΘPc²|]πÇΘRRd:ÇΘSáDαDáD"THEN/END***ERROR***T jjVAL]***ERROR***END***ERROR***U`***ERROR***]***ERROR***END***ERROR***YcB]***ERROR***END***ERROR***VSINCLOSEF***ERROR***
  30. ATNDJUST VOLUME>`<ORCLOSEFEND***ERROR***Xc]***ERROR******ERROR***LOAD<OPEN>SPC(***ERROR******ERROR***STEPSPC(USR***ERROR***+tRNDSPC(ASC***ERROR***STEPSPC(RND***ERROR***+tRNDENDFEND***ERROR***ER`END***ERROR***CR\REND***ERROR***AEND***ERROR***D R_ATNEND***ERROR***A
  31. >aSINFRE>`***ERROR***STR$ISK LENOMMAND:<SPC($***ERROR***WAITtGOCLOSEPRINT***ERROR***R_SPC(>BCLOSEPRINTC>HCLOSE8UCLOSELWCLOSE(WCLOSE6Q***ERROR***
  32.   ***ERROR***TATUS:<CLOSE8<CLOSEL<CLOSE(<CLOSE6>`<_SPC(SPC(9***ERROR***STEPSPC(FRE***ERROR***+tRND>THENGOSUBLORSPC(ASC***ERROR******ERROR***STEPSPC(RND***ERROR***+tRNDTHENSTEP.>P***ERROR******ERROR***HAT'S NEW LEVEL<CLOSE7SCLOSE7ORCLOSE7SGN
  33. ***ERROR***LEFT$IGHEST ***ERROR***EVEL=4>`<CLOSE7THENNOTCLOSE7THENSTEP***ERROR***
  34. ***ERROR***ALIDATE HIM?>CLOSEUSRFCLOSEUSR***ERROR***`<CLOSEUSR***ERROR***Y>***ERROR***JOR***ERROR***J***ERROR*** LOAD***ERROR***ALIDATE:>'***ERROR******ERROR***0:_TTUSERIDS,S,WUSRFREUSR`OR***ERROR***FREOR***ERROR***POS>ORCLOSEPOSABSHENDUPRINT#WCLOSE4WCLOSE5WCLOSE(WCLOSE6WCLOSE7Q->***ERROR***POS***ERROR*** LOAD***ERROR***AME***ERROR*** : <END>***ERROR***
  35. ***ERROR***ASSWORD: <PRINT#>***ERROR***
  36. ***ERROR***HONE   : <CLOSE4>***ERROR***
  37. STR$ATE***ERROR*** : <CLOSE5>***ERROR***    ***ERROR***IMES   :<CLOSE(>***ERROR******ERROR***ECURITY ***ERROR***EVEL:<CLOSE7>***ERROR*** ***ERROR***ALIDATED: <CLOSE6
  38. ***ERROR******ERROR***ES>aSYS***ERROR******ERROR***O>***ERROR***LENHANGE ***ERROR***ALIDATION (Y/N)>CLOSELFCLOSEL***ERROR***aPOSCLOSEL***ERROR***Y    CLOSE6>***ERROR***6***ERROR***LENHANGE ***ERROR***ECURITY ***ERROR***EVEL (Y/N)>CLOSELFCLOSEL***ERROR***Ra***ERROR***CLOSEL***ERROR***Y8P***ERROR******ERROR***EW ***ERROR***ECURITY ***ERROR***EVEL<CLOSE7SCLOSE7SGN***ERROR***LEFT$IGHEST ***ERROR***EVEL=4>a***ERROR******ERROR***STR$ELETE THIS USER (Y/N)>CLOSELFCLOSEL***ERROR***bSCLOSEL***ERROR***YCLOSEFRE>***ERROR***FRECLOSEFRECLOSE4***ERROR*** CLOSEPOSRbCOS***ERROR***
  39. ***ERROR***EVIEW (Y/N)>CLOSELFCLOSEL***ERROR***bLETCLOSEL***ERROR***YRaUSRBEND<GOTO<PRINT#<GOTO<CLOSE4<GOTO<CLOSE5<GOTO<CLOSE(<GOTO<CLOSE6<GOTO<CLOSE7CABSaUSRa>B***ERROR*** S0:_USERIDSC>B***ERROR***R0:_USERIDS=0:_TTUSERIDSC>***ERROR***CLOSEFRECLOSE>B***ERROR***S0:_E.CMDTO C***ERROR******ERROR***EE WHICH DRIVE? >=***ERROR***WAITtGOCLOSEPRINT1***ERROR***CMDFRECMDTHENAND.
  40. XCMDNOTSTOPGFOR
  41.