home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / EXIT.PRIME (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  107 lines
  1. 85 REM EXIT.PRM  V1.3
  2. 90 POKE53280,11:POKE53281, 0:POKE646,15:REM COLORS:BORDER,BACKGROUND,CHARACTER
  3. 95 GOTO115
  4. 96  :
  5. 100 :DEFINE TARGET CONFIGURATION
  6. 110 :SLOT#  DEV #         DEV TYPE
  7. 111 :
  8. 115 :T(1)=   10:        TT(1)=   4
  9. 120 :T(2)=   11:        TT(2)=   4
  10. 125 :T(3)=   08:        TT(3)=   8
  11. 130 :T(4)=   09:        TT(4)=   9
  12. 135 :T(5)=   12:        TT(5)=  10
  13. 140 :T(6)=   13:        TT(6)=   4
  14. 141 :
  15. 145 A$="EXITNODE*":REM TARGET PROGRAM
  16. 150 TD= 0:REM TARGET DEVICE # =TD.                  :TD=0 SEARCHES ALL DRIVES
  17. 151 PN=0:REM PARTITION # ON HD (MUST SET         TD IN LINE 150)
  18. 152 JD=1:SR=0:REM JIFFY DOS?: SELF-RUN?
  19. 153 SP=  0:REM SYSTEM PARTITION ON HD
  20. 165 REM LIST 175- FOR MORE OPTIONS REM(null)
  21. 170 GOTO210
  22. 175 PA$=":PART NAME":REM OR HD DIR PATH
  23. 180 :
  24. 185 REM PRINT#15,"CD"+PA$:REM HD DIR
  25. 190 REM PRINT#15,"/"+PA$:FORT=1TO700:NEXT:REM 81 PART
  26. 191 :
  27. 195 REM(null)
  28. 200 RETURN
  29. 205 :
  30. 210 GOSUB525
  31. 215 RD=23:REM DEVICE# TO BEGIN TEMPORARY CONFIGURATION
  32. 220 FORT=1TO9:TF(T)=1:NEXT
  33. 225 :
  34. 230 X=1:PRINT"[147]POLLING"
  35. 235 FORT=8TO29:IFT=14THEN275
  36. 240 :OPEN5,T,5:CLOSE5:IFST<>0THEN275
  37. 245 :OPEN15,T,15:Z$=""
  38. 250 :PRINT#15,"M-R"CHR$(160)CHR$(254)CHR$(6):FORI=1TO6:GET#15,B$:Z$=Z$+B$:NEXT
  39. 251 :IFZ$="CMD RL"THENDT(X)=10:GOTO265
  40. 252 :IFZ$="CMD HD"THENDT(X)=9:GOTO265
  41. 255 :CM=1:PRINT#15,"/0:DUMMY":GOSUB500: IF CM=1 THEN DT(X)=8: GOTO265
  42. 260 :DT(X)=4:GOSUB600
  43. 265 :CLOSE15
  44. 270 :D(X)=T:X=X+1
  45. 275 :NEXT:Z=X-1
  46. 280 :
  47. 285 PRINT"BUFFERING"
  48. 290 FORX=1TOZ
  49. 295 :OD=D(X):ND=(RD-1)+X:GOSUB475
  50. 300 :D(X)=ND:NEXT
  51. 305 :
  52. 310 PRINT"CONFIGURING"
  53. 315 FORX=1TOZ
  54. 320 :IF DT(X)=TT(1)ANDTF(1) THEN OD=D(X):ND=T(1):GOSUB475:TF(1)=0:GOTO340
  55. 325 :IF DT(X)=TT(2)ANDTF(2) THEN OD=D(X):ND=T(2):GOSUB475:TF(2)=0:GOTO340
  56. 330 :IF DT(X)=TT(3)ANDTF(3) THEN OD=D(X):ND=T(3):GOSUB475:TF(3)=0:GOTO340
  57. 335 :IF DT(X)=TT(4)ANDTF(4) THEN OD=D(X):ND=T(4):GOSUB475:TF(4)=0:GOTO340
  58. 336 :IF DT(X)=TT(5)ANDTF(5) THEN OD=D(X):ND=T(5):GOSUB475:TF(5)=0:GOTO340
  59. 337 :IF DT(X)=TT(6)ANDTF(6) THEN OD=D(X):ND=T(6):GOSUB475:TF(6)=0:GOTO340
  60. 340 :D(X)=ND:NEXT
  61. 345 :
  62. 350 IFTD=0THEN380
  63. 353 OPEN15,TD,15
  64. 355 PRINT#15,"C[208]"+CHR$(PN):GOSUB500
  65. 360 PRINT#15,"CD/":GOSUB500:IFEN>19THENPRINT#15,"/":GOSUB500
  66. 365 GOSUB175:CLOSE15:GOTO445
  67. 370 :
  68. 375 REM FIND PROGRAM DISK
  69. 380 IFA$="PROGRAM.NAME...."THENNEW
  70. 382 F=0:FORT=1TOZ
  71. 385 :OPEN15,D(T),15:OPEN5,D(T),5,A$+",P,R":GOSUB500:CLOSE5:CLOSE15
  72. 390 :IFAB THEN EN=0:GOTO400
  73. 395 :IFEN=0THENTD=D(T):IFDT(T)<>9THENSP=0
  74. 400 :IFEN=0THENT=Z:F=1
  75. 405 :NEXT
  76. 410 IF F=1THEN445
  77. 415 PRINT"[147]INSERT DISK CONTAINING":PRINT""A$:PRINT"PRESS A KEY (_TO EXIT)"
  78. 420 GETIN$:IFIN$=""THEN420
  79. 425 IFIN$="_"THENCLR:END:*************
  80. 430 GOTO375
  81. 435 :
  82. 440 REM LOAD TARGET
  83. 445 GOSUB610
  84. 447 PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","TD",1:"
  85. 450 PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
  86. 452 IFJDTHEN @#TD
  87. 453 Z8=3:IFSRTHENZ8=2
  88. 455 POKE631,19:POKE632,13:POKE633,13:POKE198,Z8:NEW
  89. 460 :
  90. 470 REM CHANGE DEV #
  91. 475 OPEN15,OD,15:PRINT#15,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(ND+32)CHR$(ND+64)
  92. 480 CLOSE15:RETURN
  93. 485 :
  94. 495 REM ERROR CHANNEL
  95. 500 INPUT#15,EN$,EM$,ET$,ES$:EN=VAL(LEFT$(EN$,2))
  96. 505 IF EN<22 OR EN=62 OR EN=74 THEN RETURN
  97. 510 IF EN=31OREN=30THEN CM=0:RETURN
  98. 515 PRINT"ERROR "EN:PRINTEM$:PRINT"TRACK "ET;:PRINT" SECTOR "ES
  99. 520 CLOSE5:CLOSE15:STOP
  100. 525 FORT=49152TO49172:POKET,0:NEXT:RETURN
  101. 600 PRINT#15,"M-W";CHR$(106)CHR$(0)CHR$(1)CHR$(133)
  102. 605 RETURN
  103. 607 :
  104. 610 OPEN15,TD,15:SG$=STR$(SP)+":SYSTEMINFO.PRM"
  105. 620 PRINT#15,"S"+SG$
  106. 640 RETURN
  107.