home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-PRGMS.SDA / START (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  50 lines
  1. 20 A$="":CA$="":POKE56579,38:POKE56577,.:POKE650,128
  2. 22 IFFL=0THENFL=1:LOAD"ASCI.*",8,1
  3. 23 IFFL=1THENFL=2:LOAD"PRINT.ML",8,1
  4. 26 POKE53281,.:POKE53280,11:PRINTCHR$(147)CHR$(30)CHR$(14)
  5. 27 PRINT:PRINT"    [201][206][211][197][210][212] [217][207][213][210] [196][193][212][193] [196][201][211][203]([211]) [206][207][215]!!!"
  6. 28 PRINT:PRINT"   --===[200]IT [193][206][217] KEY TO CONTINUE===--"
  7. 29 GETA$:IFA$=""THEN29
  8. 30 PRINT:PRINT:INPUT" '[210]EAD [198]ROM' DRIVE: 8[157][157][157]";DR:POKE1008,DR
  9. 31 PRINT:INPUT"  '[215]RITE [212]O' DRIVE: 9[157][157][157]";DW:POKE1009,DW:PRINT
  10. 33 POKE1004,.:POKE1005,.:POKE1006,.:POKE1007,.:POKE1011,.:POKE1013,.:POKE1014,.
  11. 34 POKE1001,.:INPUT"[211][217][211][207][208] AVAILABLE FOR [[195]]HAT  N[157][157][157]";A$:IFA$="Y"THENPOKE1001,1
  12. 35 PRINT:INPUT"[205]SG. BASE PROTECTED  Y[157][157][157]";A$:POKE1010,.:IFA$="Y"THENPOKE1010,1
  13. 36 PRINT:INPUT"[198]ILE [212]RANS. AVAIL.  Y[157][157][157]";A$:POKE1013,.:IFA$<>"Y"THEN39
  14. 37 PRINT:INPUT"# [203] FREE  1[157][157][157]";X:X=X*8:POKE1013,1:POKE1023,INT(X/256)
  15. 38 POKE1022,INT(X-(PEEK(1023)*256))
  16. 39 PRINTCS$:PRINT:INPUT"[205]ONTH ";MO:INPUT"  [196]AY ";DA:POKE1002,MO:POKE1003,DA
  17. 40 SYS49197:A$=A$+STR$(DA):SYS49209:GOSUB300:POKE1000,1
  18. 41 CLOSE2:OPEN2,DR,2,"STATUS FILE,S,R":INPUT#2,A1$,P2$
  19. 42 CLOSE2:PRINTCS$;:PRINT:PRINT:PRINT"[212]HE SYSTEM STATUS IS:"
  20. 44 PRINT"[210][197][205][207][212][197] [208]ASSWORD: ";P2$
  21. 47 PRINT:INPUT"[201]S THIS CORRECT  Y[157][157][157]";A$
  22. 48 IFA$="Y"THEN100
  23. 50 INPUT"[210][197][205][207][212][197] [208]ASSWORD;";P2$
  24. 53 CLOSE15:OPEN15,DR,15,"S0:STATUS FILE":CLOSE15
  25. 54 CLOSE2:OPEN2,DR,2,"STATUS FILE,S,W"
  26. 55 PRINT#2,QW$+"1"+QW$
  27. 57 PRINT#2,QW$+P2$+QW$
  28. 61 CLOSE2:GOTO41
  29. 99 REM---LOAD UP BBS PROGRAM
  30. 100 A=PEEK(1018):PRINT:INPUT"# [195]ALLERS TODAY  ";A:POKE1018,A
  31. 200 PRINT:INPUT"[196]RIVE NUMBER  8[157][157][157]";DV
  32. 210 PRINT"[147]LOAD"CHR$(34)"BBS-*"CHR$(34);",";DV
  33. 212 PRINT"RUN"
  34. 214 POKE198,3:POKE631,19:POKE632,13:POKE633,13:NEW
  35. 299 REM---SET CURRENT TIME
  36. 300 SYS49203:PRINT:PRINT"[195]URRENT [212]IME IS "+A$
  37. 302 PRINT:INPUT"[211]ET THE TIME  Y[157][157][157]";A$
  38. 306 IFA$<>"Y"THENRETURN
  39. 310 C=56584
  40. 312 PRINT:PRINT"[197]NTER TIME (24 HR) -"
  41. 314 INPUT"[200][200]: ";H
  42. 316 INPUT"[205][205]: ";M
  43. 320 POKEC+7,PEEK(C+7)AND127
  44. 322 IFH>12THENH=H+68
  45. 324 POKEC+3,16*INT(H/10)+H-INT(H/10)*10
  46. 326 POKEC+2,16*INT(M/10)+M-INT(M/10)*10
  47. 328 POKEC+1,.:POKEC,.
  48. 330 SYS49203:PRINT:PRINT" [206]EW TIME IS "+A$:FORI=1TO2000:NEXT
  49. 332 RETURN
  50.