Advertisement
plirof2

Basic ZX - Medical Center Server CSSCGC NOT SEND

May 20th, 2022 (edited)
2,797
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 5 CLS :PRINT "Welcome To Medical Center Server": PAUSE 0
  2. 10 GO SUB 9500: GO SUB subpass: GO SUB submenu:
  3. 20 INPUT "PLEASE ENTER THE SYBSYSTEM CODE to enter :";a$
  4. 25 REM IF VAL$(a$)<>VAL(a$) THEN GOTO 20
  5. 29 REM ADD AND OPTION STOP - System Tasks Of Online Processes
  6. 30 IF VAL(a$)<1 OR VAL (a$)>20 THEN GOTO 20
  7. 40 LET systemid=VAL(a$)
  8. 100 GO SUB 9400:GO SUB submain+systemid*10
  9.    
  10. 900 POKE 23610,1+INT (RND*253)
  11. 1950 GO TO 5
  12.  
  13.  
  14.  
  15.  
  16.  
  17. 4998 REM ---------------------------------------------
  18. 4999 REM Subsystem logins
  19. 5010 INPUT #3,a : REM [b]J Invalid I/O device, 10:1[/b]
  20. 5020 BORDER 9 : REM [B]K Invalid colour, 10:1[/b]
  21. 5030 DIM a(50000) :REM
  22. 5040 FOR I=1 TO 0 : REM [b]I FOR without NEXT, 10:1[/b]
  23. 5050 PRINT 10^39
  24.  
  25. 5060 LET x=0: NEXT x :REM
  26. 5070 NEXT x : REM
  27. 5080 REM FORMAT "p";0
  28. 5090 DIM a(5):PRINT a(6) : REM
  29. 5100 PRINT USR "z" : REM [B]A Invalid argument, 0:1[/B]
  30. 5110 DIM a(70000) : REM [B]B INTEGER out of range, 0:1[/B]
  31. 5120 SAVE "Long File Name" : REM [B]C Nonsense in BASIC, 0:1[/B]
  32. 5130 READ a :REM [B]E Out of DATA, 0:1[/B]
  33. 5140 SAVE "" : REM [b]F Invalid file name, 10:1[/b]
  34. 5150 CLEAR 1 : REM M RAMTOP no good, 0:1
  35. 5160 OPEN #16, "P" : REM O Invalid stream, 0:1
  36. 5170 PRINT FN a() : REM P FN without DEF FN, 0:1
  37. 5180 DEF FN a(x) = 1 : PRINT FN a (2,3) : REM Q Parameter error, 10:2
  38. 5190 REM FORMAT "";0 : REM O invalid Stream
  39. 5200 SAVE INKEY$ CODE CODE INKEY$, CODE INKEY$ : REM F Invalid file name, 10:0
  40.  
  41. 5250 REM **** POKE 23610,28 : REM ASk FOR PORT ID : T ? 1982 Sinclair Research Ltd, 0:1
  42. 5400 RETURN
  43.  
  44. 6500 REM wait some seconds--------------------------
  45. 6510 FOR I=1 TO 100: PAUSE 1:NEXT I
  46. 6600 RETURN
  47.  
  48. 6999 REM ---------------------------------------------
  49. 7000 REM Intro Text
  50. 7030 PRINT "Please you are connecting in a life critical system. Wrong commands might cause deaths! Your IP is logged!"
  51. 7040 PRINT "All security measures are taken but, in case you have a crash try doing RUN +ENTER in the first 10seconds. "
  52. 7500 RETURN
  53.  
  54.  
  55.  
  56. 7999 REM ---------------------------------------------
  57. 8000 REM Secure Password Protection
  58. 8010 LET p$="1234"
  59. 8020 CLS : PAPER pwdpaper: INK pwdink: BORDER pwdborder
  60. 8030 PRINT ,,"Weclome to the infallible "'FLASH 1;n$;FLASH 0
  61.  
  62. 8040 PRINT "This system is protected"'"by a secured linux core that"'"runs on top of a BASIC core"
  63. 8050 INPUT "Please enter your username";u$
  64. 8060 INPUT "Please, make sure noone is looking and THEN enter your password: ";e$
  65. 8070 IF e$<>p$ THEN CLS:PRINT FLASH 0;"WROND CREDENTIALS !";FLASH 0'" Lives DEPEND on you please BE CAREFLU!" : GOSUB wait: GO TO 8030
  66. 8500 RETURN
  67.  
  68.  
  69.  
  70. 8999 REM ---------------------------------------------
  71. 9000 REM Subsystem Integration option (shows ONLY systems that are online)
  72.  
  73.  
  74. 9180 PRINT "STOP) System Tasks and Online Processes";
  75.  
  76. 9390 RETURN
  77.  
  78. 9400 REM Logging messages
  79. 9410 CLS : PAPER menupaper:INK menuink: BORDER menuborder
  80. 9110 PRINT ,,"Weclome to the infallible "'FLASH 1;n$;FLASH 0
  81. 9120 FOR I=1 TO 10:
  82. 9130 PRINT AT 10,5 ;INVERSE 1;FLASH 1;" Connecting .  ";INVERSE 0;FLASH 0:FOR T=1 TO 50:NEXT T
  83. 9140 PRINT AT 10,5 ;INVERSE 1;FLASH 1;" Connecting ..  ";INVERSE 0;FLASH 0:FOR T=1 TO 50:NEXT T
  84. 9150 PRINT AT 10,5 ;INVERSE 1;FLASH 1;" Connecting ...  ";INVERSE 0;FLASH 0:FOR T=1 TO 50:NEXT T
  85. 9160 NEXT I
  86.  
  87. 9450 RETURN
  88.  
  89. 9600 REM -------------------------
  90. 9610 REM init variables
  91. 9620 LET n$="SBOSSA - Spectrum Basic Overwatch Security System Administration"
  92. 9630 LET pwdink=2: LET pwdpaper=0: LET pwdborder=2
  93. 9640 LET menuink=2: LET menupaper=0: LET menuborder=2
  94. 9650 LET wait=6500: LET subpass=8000: LET submenu=9000: LET subintro=7000: LET submain=5000
  95.  
  96. 9900 RETURN
  97.  
  98.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement