home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / CADV3.ARC / BOOT (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  139 lines
  1. 1 POKE780,0:SYS65424
  2. 2 ONAGOTO17,19,21
  3. 3 D0=PEEK(186):D1=9+(D0=9):POKE53280,11:POKE53281,14:REM D1=D0 FOR ONE DRIVE
  4. 4 PRINTCHR$(14);"[147]";SPC(10)"[212]HE [195][193][196] [211]YSTEM [214]3.0[196]":PRINTSPC(19)"BY"
  5. 5 PRINTSPC(13)"[211]TEPHEN [208]. [206]YE":PRINTSPC(11)"[195]OPYRIGHT ([195]) 1984"
  6. 6 PRINT"[198]ILES ARE ON WHICH DRIVE ?";:GOSUB53
  7. 7 IFVAL(A$)>7THEND1=VAL(A$):POKE36863,D1:PRINTD1
  8. 8 PRINTD1:PRINT"[212]HANKS TO THE FOLLOWING INDIVIDUALS FOR"
  9. 9 PRINT"THEIR GUIDANCE AND SUPPORT IN THE"
  10. 10 PRINT"DEVELOPMENT OF THE [195][193][196] PACKAGE."
  11. 11 PRINT"[194]ETTY [203]NIGHT           [215]AYNE [211]CHMIDT"
  12. 12 PRINT"[202]AKE [204]UND              [211]TEVE [211]ILEO"
  13. 13 PRINT"[210]AY [194]OWMAN             [194]RENT [196]ANE"
  14. 14 PRINT"[194]OB [207]NDA               [199]UY [205]OLINARI"
  15. 15 PRINT"[204]OADING USRPKG...
  16. 16 A[178]1:[147]"USRPKG",D0,1
  17. 17 [153]"(null)OADING SYSPKG...
  18. 18 A=2:LOAD"SYSPKG",D0,1
  19. 19 PRINT"[204]OADING SYSPKGII...
  20. 20 A[178]3:[147]"SYSPKGII",D0,1
  21. 21 [159]15,D0,15,"UI:":[160]15
  22. 22 [151]36862,D0:[151]36863,D1:[153]:[153]" VALRASE THE PRESENT SCREEN ? "
  23. 23 [141]53
  24. 24 [143] BO IS BORDER COLOR
  25. 25 [143] FC IS FOREGROUND COLOR
  26. 26 [143] BC IS BACKGROUND COLOR
  27. 27 [143] CU IS CURSOR COLOR
  28. 28 [143] SF IS THE CURSOR SPEED
  29. 29 [143] SS IS SUPERSPEED VALUE(SPEED 0)
  30. 30 [151]785,0:[151]786,193:BO[178]11:FC[178]01:BC[178]14:CU[178]00:SF[178]6:SS[178]25:[153]"LOAD"
  31. 31 A[178][183](9),16384:A[178][183](7),BO:A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](5),FC,BC
  32. 32 A[178][183](6),0,BC:A[178][183](6),1,1:A[178][183](19):A[178][183](21)
  33. 33 [139]A$[178]"Y"[167]A[178][183](3),0:[158]36867:A[178][183](3),0
  34. 34 A[178][183](35),0,CU:A[178][183](35),1,CU:A[178][183](35),2,CU:A[178][183](35),3,CU
  35. 35 A[178][183](35),6,CU:A[178][183](35),7,CU:A[178][183](39),0,16:A[178][183](39),1,17:A[178][183](39),2,17
  36. 36 A[178][183](39),3,17:A[178][183](39),6,22:A[178][183](39),7,23:X[178]72:Y[178]137:A[178][183](34),X,Y,0
  37. 37 [129]N[178]0[164]62:[135]A:[151]17408[170]N,A:[130]:[143] SPRITEMAP 16
  38. 38 [129]N[178]0[164]62:[135]A:[151]17472[170]N,A:[130]:[143] SPRITEMAP 17
  39. 39 [129]N[178]0[164]62:[135]A:[151]17536[170]N,A:[130]:[143] SPRITEMAP 18
  40. 40 [129]N[178]0[164]62:[135]A:[151]17600[170]N,A:[130]:[143] SPRITEMAP 19
  41. 41 [129]N[178]0[164]62:[135]A:[151]17664[170]N,A:[130]:[143] SPRITEMAP 20
  42. 42 [129]N[178]0[164]62:[135]A:[151]17728[170]N,A:[130]:[143] SPRITEMAP 21
  43. 43 [129]N[178]0[164]62:[135]A:[151]17792[170]N,A:[130]:[143] SPRITEMAP 22
  44. 44 [129]N[178]0[164]62:[135]A:[151]17856[170]N,A:[130]:[143] SPRITEMAP 23
  45. 45 [143] SPRITE MAPS 24-32 ARE RESERVED FOR BRENT DANE
  46. 46 [129]N[178]0[164]62:[135]A:[151]18496[170]N,A:[130]:[143] SPRITEMAP 33
  47. 47 [129]N[178]0[164]62:[135]A:[151]18560[170]N,A:[130]:[143] SPRITEMAP 34
  48. 48 [129]N[178]0[164]62:[135]A:[151]18624[170]N,A:[130]:[143] SPRITEMAP 35
  49. 49 [129]N[178]0[164]62:[135]A:[151]18688[170]N,A:[130]:[143] SPRITEMAP 36
  50. 50 [129]N[178]0[164]62:[135]A:[151]18752[170]N,A:[130]:[143] SPRITEMAP 37
  51. 51 [129]N[178]0[164]62:[135]A:[151]18816[170]N,A:[130]:[143] SPRITEMAP 38
  52. 52 [161]A$:[147]"CMND",D0
  53. 53 [161]A$:[139]A$[178]""[167]53
  54. 54 [142]
  55. 55 [143] SPRITEMAP 16
  56. 56 [131]0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  57. 57 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  58. 58 [131]127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  59. 59 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  60. 60 [131]0,0,0
  61. 61 [143] SPRITEMAP 17
  62. 62 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  63. 63 [131]0,0,0,0,0,0,0,0,0,0,8,0,0,8,0
  64. 64 [131]0,54,0,0,8,0,0,8,0,0,0,0,0,0,0
  65. 65 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  66. 66 [131]0,0,0
  67. 67 [143] SPRITEMAP 18
  68. 68 [131]0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  69. 69 [131]0,8,0,0,8,0,0,8,0,0,8,4,0,0,6
  70. 70 [131]127,227,255,0,0,6,0,8,4,0,8,0,0,8,0
  71. 71 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  72. 72 [131]0,0,0
  73. 73 [143] SPRITEMAP 19
  74. 74 [131]0,0,0,0,8,0,0,28,0,0,62,0,0,8,0
  75. 75 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  76. 76 [131]127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  77. 77 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  78. 78 [131]0,0,0
  79. 79 [143] SPRITEMAP 20
  80. 80 [131]0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  81. 81 [131]0,8,0,0,8,0,0,8,0,16,8,0,48,0,0
  82. 82 [131]127,227,255,48,0,0,16,8,0,0,8,0,0,8,0
  83. 83 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  84. 84 [131]0,0,0
  85. 85 [143] SPRITEMAP 21
  86. 86 [131]0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  87. 87 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  88. 88 [131]127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  89. 89 [131]0,8,0,0,8,0,0,62,0,0,28,0,0,8,0
  90. 90 [131]0,0,0
  91. 91 [143] SPRITEMAP 22
  92. 92 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  93. 93 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  94. 94 [131]0,255,224,0,0,0,0,0,0,0,0,0,0,0,0
  95. 95 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  96. 96 [131]0,0,0
  97. 97 [143] SPRITEMAP 23
  98. 98 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  99. 99 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,8,0
  100. 100 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  101. 101 [131]0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  102. 102 [131]0,8,0
  103. 103 [143] SPRITEMAP 33
  104. 104 [131]224,0,7,128,0,1,128,0,1,128,0,1,128,0,1
  105. 105 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  106. 106 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  107. 107 [131]0,0,0,128,0,1,128,0,1,128,0,1,128,0,1
  108. 108 [131]224,0,7
  109. 109 [143] SPRITEMAP 34
  110. 110 [131]224,0,224,128,0,32,128,0,32,128,0,32,0,0,0
  111. 111 [131]0,0,0,0,0,0,0,0,0,128,0,32,128,0,32
  112. 112 [131]128,0,32,224,0,224,0,0,0,0,0,0,0,0,0
  113. 113 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  114. 114 [131]0,0,0
  115. 115 [143] SPRITEMAP 35
  116. 116 [131]255,255,255,128,0,0,128,0,0,128,0,0,128,0,0
  117. 117 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  118. 118 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  119. 119 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  120. 120 [131]128,0,0
  121. 121 [143] SPRITEMAP 36
  122. 122 [131]255,255,255,0,0,1,0,0,1,0,0,1,0,0,1
  123. 123 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  124. 124 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  125. 125 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  126. 126 [131]0,0,1
  127. 127 [143] SPRITEMAP 37
  128. 128 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  129. 129 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  130. 130 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  131. 131 [131]128,0,0,128,0,0,128,0,0,128,0,0,128,0,0
  132. 132 [131]255,255,255
  133. 133 [143] SPRITEMAP 38
  134. 134 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  135. 135 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  136. 136 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  137. 137 [131]0,0,1,0,0,1,0,0,1,0,0,1,0,0,1
  138. 138 [131]255,255,255
  139.