home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / EXIT.SMR (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  93 lines
  1. 50 POKE53280,11:POKE53281,0:POKE646,15
  2. 95 REM EXXIT V1.2
  3. 100 A$="^":REM PROGRAM TO LOAD WHEN DONE
  4. 105 AA$="PROGRAM.TITLE":REM:TARGET TITLE
  5. 110 RU$="RUN":REM OR "SYSXXXXX"
  6. 115 LD$=",1": REM "" FOR BASIC PROGRAMS
  7. 120 SP=254:REM PARTITION # FOR SYSTEMINFO
  8. 125 REM PRINTER COMMANDS
  9. 130 PR=1:REM PRINTER SWITCH:1=ON/0=OFF
  10. 135 P(1)=27:P(2)=64:P(3)= 0:P(4)= 0:P(5)= 0:P(6)= 0:P(7)= 0:P(8)= 0:P(9)= 0
  11. 137 JD=1:SR=0: REM JIFFY DOS?: SELF-RUN?
  12. 140 REM LIST 150- FOR ADDITIONAL OPTIONSREM(null)
  13. 145 GOTO190
  14. 150 P=1:REM OPTIONAL HD PARTITION NUMBER FOR A$
  15. 155 PA$=":81PART.NAME":REM OR HD DIR PATH FOR A$
  16. 160 REM:PRINT#15,"C[208]"+CHR$(P):REM HD PARTITION FOR A$
  17. 165 REM:PRINT#15,"/"+PA$:REM 81 PARTITIONFOR A$
  18. 170 REM:PRINT#15,"CD"+PA$:REM HD SUBDIR
  19. 175 REM(null)
  20. 180 RETURN
  21. 185 :
  22. 190 RD=22:REM DEVICE # TO BEGIN TEMPORARY CONFIGURATION
  23. 195 SI$="SYSTEMINFO.SMR"
  24. 200 :
  25. 205 PRINT"[147]RECONFIGURING...":RT=0
  26. 210 :
  27. 215 CM=1:REM CHECK DEV # & IF HD
  28. 220 DV=PEEK(186)
  29. 225 OPEN15,DV,15:PRINT#15,"G-P":GOSUB465:
  30. 230 :
  31. 235 SI$=":"+SI$:IFCM THEN SI$=STR$(SP)+SI$
  32. 240 OPEN5,DV,5,SI$+",S,R":GOSUB465:IFEXTHENCLOSE5:GOTO335
  33. 245 X=1
  34. 250 INPUT#5,A$(X):IFVAL(A$(X))=-1THENZ=X-1:GOTO265
  35. 255 OD(X)=VAL(LEFT$(A$(X),2)):ND(X)=VAL(RIGHT$(A$(X),2))
  36. 260 X=X+1:GOTO250
  37. 265 INPUT#5,G$,PN$:CLOSE5:PRINT#15,"S"+SI$:GOSUB465:CLOSE15
  38. 270 :
  39. 275 FORT=1TOZ
  40. 280 :OD=ND(T):ND=(RD-1)+T:GOSUB600:IFSTTHEN290
  41. 283 :GOSUB390
  42. 285 :ND(T)=ND:IFOD=DVTHENDV=ND
  43. 290 :NEXT
  44. 295 :
  45. 300 FORT=1TOZ
  46. 305 :OD=ND(T):ND=OD(T):GOSUB600:IFSTTHEN315
  47. 307 GOSUB390
  48. 310 :IFOD=DVTHENDV=ND
  49. 315 :NEXT
  50. 320 IFJDTHEN @#DV
  51. 325 OPEN15,DV,15
  52. 330 G=VAL(G$):PN=VAL(PN$):IFCMTHENPRINT#15,"C[208]"+CHR$(PN)
  53. 335 IF CM THEN PRINT#15,"CD/":GOSUB465
  54. 340 PRINT#15,"/":FORT=1TO700:NEXT:GOSUB465
  55. 345 IFRT=0THENRT=1:IFEXTHENEX=0:GOTO240
  56. 350 EX=0:GOSUB150:GOSUB465:IFEXTHEN495
  57. 355 CLOSE15:RT=0:IFPRTHENGOSUB515
  58. 360 :
  59. 365 IFG=1THEN405
  60. 370 IFA$<>"PROGRAMNAME....."THENGOTO415
  61. 375 PRINT"[147]":END
  62. 380 :
  63. 385 REM CHANGE DEV #
  64. 390 OPEN15,OD,15:PRINT#15,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(ND+32)CHR$(ND+64)
  65. 395 CLOSE15:RETURN
  66. 400 :
  67. 405 LOAD"RBOOT",DV,1
  68. 410 :
  69. 415 PRINT"[147]":IFAA$="PROGRAM.TITLE"THEN430
  70. 420 PRINT"              NOW LOADING"
  71. 425 PRINT:PRINT;:FORT=1TO((40-LEN(AA$))/2):PRINT" ";:NEXT:PRINTAA$
  72. 430 POKE251,PEEK(646):POKE646,PEEK(53281)
  73. 435 PRINT"LOAD"CHR$(34)A$CHR$(34)","+STR$(DV)+LD$+":"
  74. 440 PRINT:PRINT:PRINT:PRINT
  75. 445 PRINT"POKE646,"PEEK(251)":PRINT"CHR$(34)"[147]"RU$":"CHR$(34)
  76. 447 Z8=5:IFSRTHENZ8=2
  77. 450 POKE631,19:POKE632,13:POKE633,13:POKE634,19:POKE635,13:POKE198,Z8:NEW
  78. 455 :
  79. 460 REM ERROR CHANNEL
  80. 465 INPUT#15,EN$,EM$,ET$,ES$
  81. 470 EN=VAL(LEFT$(EN$,3))
  82. 475 IFEN<20THENRETURN
  83. 480 IFEN=31THENCM=0:RETURN
  84. 485 IFEN=30THENRETURN
  85. 490 IFEN=62THENEX=1:RETURN
  86. 495 PRINT"ERROR "EN:PRINTEM$:PRINT"TRACK"ET$" SECTOR "ES$:CLOSE15:STOP
  87. 500 RETURN
  88. 505 :
  89. 510 REM PRINTER
  90. 515 PRINT"PRINTER":OPEN5,4,0:CLOSE5:IFSTTHENRETURN
  91. 520 OPEN5,4,0:FORT=1TO9:PRINT#5,CHR$(P(T));:NEXT:CLOSE5:RETURN
  92. 600 OPEN15,OD,15:CLOSE15:RETURN
  93.