home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGCIR.DSK / BREAD.BAS1.bas < prev    next >
BASIC Source File  |  2014-09-09  |  15KB  |  178 lines
  1. 1  ONERR  GOTO 167
  2. 2  HIMEM: 14171:B$ =  CHR$(13) + CHR$(4):C$ =  CHR$(1) +"1" + CHR$(12) +"E" + CHR$(1) +"0" + CHR$(11):C = 1: CALL 36354: PRINT  CHR$(15) CHR$(2) CHR$(15) CHR$(4): DIM A(24),B(24)
  3. 3  FOR D = 24768 TO 24772: POKE D,0: POKE D +5,131: NEXT : POKE 24847,1: FOR D = 24832 TO 24846: POKE D,0: NEXT :F = 22:H = 8: POKE 230,64: CALL 34360: CALL 14172: GOTO 135
  4. 4 D$ = "  ": FOR D = 1 TO I:D$ = D$ +" ": NEXT :D = 1
  5. 5 G =  FRE(0): HTAB K +D: GET E$: IF E$ =  CHR$(13)  THEN 14
  6. 6  IF E$ =  CHR$(8)  THEN D = D -1: GOTO 12
  7. 7  IF E$ =  CHR$(27)  THEN  POP : GOTO 135
  8. 8  IF E$ =  CHR$(21)  THEN 11
  9. 9  IF E$ < CHR$(28)  THEN 5
  10. 10 D$ =  LEFT$(D$,D) +E$ + MID$ (D$,D +2): PRINT E$;
  11. 11 D = D +1: IF D >I  THEN D = I: HTAB K +D: PRINT " " CHR$(8);: GOTO 5
  12. 12  IF D <1  THEN D = 1
  13. 13  GOTO 5
  14. 14 E$ = D$:D$ = "": FOR D = 1 TO I:F$ =  MID$ (E$,D,1): IF F$ < >" "  THEN D$ = D$ +F$
  15. 15  NEXT :I =  LEN(D$): RETURN 
  16. 16  PRINT  CHR$(25);: HTAB 39: VTAB 23: PRINT  CHR$(23);: HTAB 2: VTAB 21: PRINT  CHR$(22) CHR$(16) CHR$(25);: RETURN 
  17. 17  FOR D = 1 TO 80: IF D = L  THEN 20
  18. 18 I =  PEEK(27263 +D): IF I = 0  THEN 20
  19. 19  POKE 24730,D: CALL 34118: POKE 14,0: POKE 15,150: CALL 28727
  20. 20  NEXT : HCOLOR= C: RETURN 
  21. 21 M = 7: CALL 29030:F = F - INT(F/24) *24: VTAB F +1: RETURN 
  22. 22 M = 7: CALL 29030:H = H - INT(H/40) *40: HTAB H +1: RETURN 
  23. 23  GOSUB 28: IF B >0  AND L >0  THEN  POKE 27183 +L, PEEK(228): POKE 24730,L: CALL 34118: POKE 14,0: POKE 15,150: CALL 28727
  24. 24  RETURN 
  25. 25 M = 7:C = C +1: IF C = 4  THEN C = 5
  26. 26  IF C = 7  THEN C = 1
  27. 27  CALL 29030:H$ = H$: CALL 33942: HCOLOR= C:H$ = H$: CALL 28672: RETURN 
  28. 28 M = 7: CALL 29030:C = C +1: IF C = 4  THEN C = 5
  29. 29  IF C = 7  THEN C = 1
  30. 30  HCOLOR= C: RETURN 
  31. 31 M = M +1: IF M = 8  THEN  VTAB F +1: HTAB H +1: CALL 28990
  32. 32  IF M > = 16  THEN  VTAB F +1: HTAB H +1:M = 0: CALL 29030
  33. 33  RETURN 
  34. 34  GOSUB 31: HTAB H +1: VTAB F +1: CALL 33568:B =  PEEK(3) + PEEK(4) *256:A =  PEEK(B):L =  PEEK(B +1): IF B = 0  THEN A = 1:L = 1
  35. 35 K =  PEEK( -16384): IF K <128  THEN 34
  36. 36  POKE  -16368,0: IF K = 139  OR K = 201  THEN F = F -1: GOSUB 21: GOTO 34
  37. 37  IF K = 202  OR K = 136  THEN H = H -1: GOSUB 22: GOTO 34
  38. 38  IF K = 205  OR K = 138  THEN F = F +1: GOSUB 21: GOTO 34
  39. 39  IF K = 203  OR K = 149  THEN H = H +1: GOSUB 22: GOTO 34
  40. 40  IF K = 155  THEN  CALL 29030: GOTO 135
  41. 41  IF K = 191  THEN  GOTO 147
  42. 42  RETURN 
  43. 43 K =  PEEK(24842 +D): IF K = 0  THEN  RETURN 
  44. 44 J$ =  STR$( PEEK(24935 +K)): IF  LEN(J$) <2  THEN J$ = "0" +J$
  45. 45 I =  PEEK(24863 +K):J$ = "74" +J$:N =  VAL(J$): POKE 24712,I: POKE 24713,127: VTAB  PEEK(37): POKE 38,104: POKE 39,96: CALL 29057: HTAB  PEEK(36) +1: VTAB  PEEK(37) +2: PRINT  CHR$(9)C$" "N CHR$(14);: RETURN 
  46. 46  GOSUB 47: HCOLOR= 1: HPLOT 1,153 TO 279,153 TO 279,191 TO 1,191 TO 1,153: VTAB 22: HTAB 19:D = 5: GOSUB 43: HTAB 35: VTAB 22: PRINT  CHR$(9)" esc ";: HTAB 35: VTAB 23: PRINT "  ?  " CHR$(14);: HTAB H +1: VTAB F +1: RETURN 
  47. 47  CALL 14172: FOR D = 0 TO 4: VTAB  PEEK(24832 +D) +2: HTAB  PEEK(24837 +D) +1: GOSUB 43: NEXT : FOR D = 1 TO 80:I =  PEEK(27263 +D): IF I = 0  THEN 49
  48. 48  POKE 24730,D: CALL 34118: POKE 14,0: POKE 15,150: CALL 28727
  49. 49  NEXT : HCOLOR= C: HTAB H +1: VTAB F +1: RETURN 
  50. 50  IF F = 20  AND H = 18  THEN  VTAB 22:F = 21:D = 5: POKE 24847,L: GOSUB 43: HCOLOR= C: GOTO 82
  51. 51  IF F < >8  THEN  PRINT  CHR$(7);: RETURN 
  52. 52  FOR D = 1 TO I:B(D) = 15 +D +H:B(2 *I +1 -D) = 96 -D -H: NEXT :E = 0: FOR D = 1 TO 2 *I:A(D) = B(D) *12 +25088:K =  PEEK(A(D) +1): IF K < >0  THEN E = 1
  53. 53  NEXT : IF E = 1  THEN  PRINT  CHR$(7);: RETURN 
  54. 54 E = 5: FOR D = 4 TO 0  STEP  -1: IF  PEEK(24842 +D) = 0  THEN E = D
  55. 55  NEXT : IF E = 5  THEN  PRINT  CHR$(7);: RETURN 
  56. 56  POKE 24832 +E,F: POKE 24837 +E,H: POKE 24842 +E,L:K =  PEEK(24887 +L): POKE 24773 +E,K:K =  PEEK(24911 +L): POKE 24768 +E,K: FOR D = 1 TO 2 *I: POKE 26623 +48 *E +2 *D,B(D): POKE A(D) +1,127 +24 *E +D: NEXT : VTAB F +2: POP :D = E: GOSUB 43:F = F +1: GOSUB 46: GOTO 82
  57. 57  IF F = 21  AND H = 18  THEN L =  PEEK(24847):I =  PEEK(24863 +L): POP : GOTO 93
  58. 58 E = 5: FOR D = 0 TO 4:K =  PEEK(24842 +D): IF K = 0  THEN 60
  59. 59 K =  PEEK(24837 +D): IF F = 9  AND K = H  THEN E = D
  60. 60  NEXT : IF E = 5  THEN 62
  61. 61 L =  PEEK(24842 +E): POKE 24842 +E,0:I =  PEEK(24863 +L): POKE 24768 +E,0: POKE 24773 +E,131: FOR D = 1 TO 24:B(D) =  PEEK(26623 +48 *E +2 *D): POKE 26623 +48 *E +2 *D,0: NEXT : FOR D = 1 TO 2 *I:K = B(D) *12 +25088: POKE K +1,0: NEXT : POP : GOSUB 46:I =  PEEK(24863 +L): GOTO 93
  62. 62  IF A < >0  THEN  PRINT  CHR$(7);: RETURN 
  63. 63 O = B:R = (O -25088)/12:R =  INT(R): IF B > = 26864  THEN R = 248
  64. 64  IF B >26944  THEN R = 249
  65. 65 H$ = "": HCOLOR= C: POP : CALL 29030: GOTO 119
  66. 66  IF A < >0  THEN  PRINT  CHR$(7);: RETURN 
  67. 67  IF B = O  THEN  PRINT  CHR$(7);: RETURN 
  68. 68 A = (B -25088)/12:A =  INT(A): IF B > = 26864  THEN A = 248
  69. 69  IF B > = 26944  THEN A = 249
  70. 70  HCOLOR= C:S = 81: FOR D = 80 TO 1  STEP  -1:K =  PEEK(27263 +D): IF K = 0  THEN S = D
  71. 71  NEXT D: IF S = 81  THEN  PRINT  CHR$(7);: CALL 29030:H$ = H$: CALL 33942: POP : GOTO 106
  72. 72  HTAB H +1: VTAB F +1: POKE 24730,S:H$ = H$: CALL 34222: POKE B,R: POKE O,A: POKE B +1,S: POKE O +1,S: POP : VTAB F +1: HTAB H +1:H$ = H$: CALL 28672: GOTO 106
  73. 73  GOSUB 16: VTAB 22: HTAB 10: PRINT "Enter chip #";:I = 7:K = 22: GOSUB 4:P =  VAL(D$):J = 25:L =  PEEK(24847): FOR D = 0 TO 23:J$ =  STR$( PEEK(24936 +D)): IF  LEN(J$) <2  THEN J$ = "0" +J$
  74. 74 J$ = "74" +J$:Q =  VAL(J$): IF P = Q  THEN J = D
  75. 75  NEXT : IF J = 25  THEN  PRINT  CHR$(7);: GOSUB 16:K = L: RETURN 
  76. 76  GOSUB 16:K = J +1: POKE 24847,K: RETURN 
  77. 77 M = 7: CALL 29159:F = F - INT(F/22) *22: VTAB F +1: RETURN 
  78. 78 M = 7: CALL 29159:K = 41 -I:H = H - INT(H/K) *K: HTAB H +1: RETURN 
  79. 79  IF  LEN(A$) >62  THEN A$ = H$: PRINT  CHR$(7);
  80. 80  CALL 29030:H$ = H$: CALL 33942:H$ = A$:H$ = H$: CALL 28672:M = 16: CALL 33568: CALL 28990:B =  PEEK(3) + PEEK(4) *256:A =  PEEK(B):L =  PEEK(B +1): IF B = 0  THEN A = 1:L = 1
  81. 81  GOTO 120
  82. 82 M = 7: POKE 38,96: POKE 39,96
  83. 83  GOSUB 34: IF K = 160  OR K = 141  THEN  CALL 29030: GOSUB 57
  84. 84  IF K = 195  THEN  GOSUB 23
  85. 85  IF K = 193  AND F = 21  AND H = 18  THEN L =  PEEK(24847):L = L - INT(L/24) *24:L = L +1: POKE 24847,L: GOSUB 16:D = 5: HTAB 19: VTAB 22: GOSUB 43: POKE 38,96: POKE 39,96:M = 7
  86. 86  IF K = 194  AND F = 21  AND H = 18  THEN L =  PEEK(24847):L = L -2:L = L - INT(L/24) *24:L = L +1: POKE 24847,L: GOSUB 16:D = 5: HTAB 19: VTAB 22: GOSUB 43: POKE 38,96: POKE 39,96:M = 7
  87. 87  IF K = 208  AND B >0  AND L >0  THEN  POKE 24730,L: CALL 34118: POKE 14,0: POKE 15,150: CALL 28727: HCOLOR= C
  88. 88  IF K = 212  AND B >0  AND L >0  THEN  GOSUB 17
  89. 89  IF K = 216  AND B >0  AND L >0  THEN 110
  90. 90  IF K = 216  THEN M = 16: GOSUB 31: GOTO 106
  91. 91  IF K = 206  AND F = 21  AND H = 18  THEN  GOSUB 73:D = 5:F = 21:H = 18: HTAB H +1: VTAB F +1: GOSUB 43: POKE 38,96: POKE 39,96:M = 7
  92. 92  GOTO 83
  93. 93  POKE 38,104: POKE 39,96: POKE 24712,I: POKE 24713,85:M = 7:F = F -1
  94. 94 M = M +1: IF M = 8  THEN  VTAB F +1: HTAB H +1: POKE 24713,85: CALL 29057
  95. 95  IF M >64  THEN  VTAB F +1: HTAB H +1:M = 0: CALL 29159
  96. 96  HTAB H +1: VTAB F +1:K =  PEEK( -16384): IF K <128  THEN 94
  97. 97  POKE  -16368,0: IF K = 139  OR K = 201  THEN F = F -1: GOSUB 77: GOTO 94
  98. 98  IF K = 202  OR K = 136  THEN H = H -1: GOSUB 78: GOTO 94
  99. 99  IF K = 205  OR K = 138  THEN F = F +1: GOSUB 77: GOTO 94
  100. 100  IF K = 203  OR K = 149  THEN H = H +1: GOSUB 78: GOTO 94
  101. 101  IF K = 155  THEN  CALL 29159: GOTO 135
  102. 102  IF K = 191  THEN  GOTO 147
  103. 103  IF K = 160  OR K = 141  THEN  GOSUB 50
  104. 104  IF K = 216  THEN  CALL 29159: GOTO 82
  105. 105  GOTO 94
  106. 106 E = 5: FOR D = 0 TO 4:K =  PEEK(24842 +D): IF K = 0  THEN 108
  107. 107 K =  PEEK(24837 +D): IF F = 9  AND K = H  THEN E = D
  108. 108  NEXT : IF E = 5  THEN 82
  109. 109 L =  PEEK(24842 +E): POKE 24842 +E,0:I =  PEEK(24863 +L): POKE 24768 +E,0: POKE 24773 +E,131: FOR D = 1 TO 24:B(D) =  PEEK(26623 +48 *E +2 *D): POKE 26623 +48 *E +2 *D,0: NEXT : FOR D = 1 TO 2 *I:K = B(D) *12 +25088: POKE K +1,0: NEXT : GOSUB 46: GOTO 82
  110. 110  IF A < >248  THEN 113
  111. 111  FOR D = 26864 TO 26942  STEP 2: IF  PEEK(D +1) = L  THEN  POKE D,0: POKE D +1,0
  112. 112  NEXT : GOTO 118
  113. 113  IF A < >249  THEN 116
  114. 114  FOR D = 26944 TO 27022  STEP 2: IF  PEEK(D +1) = L  THEN  POKE D,0: POKE D +1,0
  115. 115  NEXT : GOTO 118
  116. 116 K = A *12 +25089: FOR D = K TO K +9  STEP 3: IF  PEEK(D +1) = L  THEN  POKE D,0: POKE D +1,0
  117. 117  NEXT 
  118. 118  POKE B,0: POKE B +1,0: POKE 27263 +L,0: GOSUB 46: GOTO 82
  119. 119 H$ = "":M = 15: POKE 38,88: POKE 39,96: HCOLOR= C
  120. 120 M = M +1: IF M = 16  THEN  CALL 28990
  121. 121  IF M > = 32  THEN M = 0: CALL 29030
  122. 122  IF K = 155  THEN  GOTO 135
  123. 123 K =  PEEK( -16384): IF K <128  THEN 120
  124. 124  POKE  -16368,0: IF K = 139  OR K = 201  THEN A$ = H$ + CHR$(1): GOTO 79
  125. 125  IF K = 202  OR K = 136  THEN A$ = H$ + CHR$(4): GOTO 79
  126. 126  IF K = 205  OR K = 138  THEN A$ = H$ + CHR$(3): GOTO 79
  127. 127  IF K = 203  OR K = 149  THEN A$ = H$ + CHR$(2): GOTO 79
  128. 128  IF K = 194  AND  LEN(H$) >1  THEN I =  LEN(H$):A$ =  LEFT$(H$,I -1): GOTO 79
  129. 129  IF K = 194  AND  LEN(H$) <2  THEN K = 216
  130. 130  IF K = 195  THEN  GOSUB 25: GOTO 120
  131. 131  IF K = 216  THEN  CALL 29030:H$ = H$: CALL 33942: GOTO 82
  132. 132  IF K = 160  OR K = 141  THEN  GOSUB 66
  133. 133  IF K = 191  THEN  GOTO 147
  134. 134  GOTO 120
  135. 135  ONERR  GOTO 136
  136. 136  HTAB 1: VTAB 20: PRINT  CHR$(6);: HCOLOR= 6: HPLOT 0,153 TO 278,153 TO 278,191 TO 0,191 TO 0,153: HTAB 2: VTAB 21: PRINT " 1. Design circuit  4. Load from disk";: VTAB 22: HTAB 2: PRINT " 2. Test circuit    5. Save on disk";: VTAB 23: HTAB 2: PRINT " 3. Clear board     6. List circuits";: GET E$: IF E$ = "1"  THEN  GOSUB 46:F = 22:H = 8: GOTO 82
  137. 137  IF E$ = "2"  THEN  GOTO 157
  138. 138  IF E$ = "3"  THEN 3
  139. 139  ONERR  GOTO 168
  140. 140  IF E$ < >"5"  THEN 143
  141. 141  HTAB 1: VTAB 20: PRINT  CHR$(6);: HCOLOR= 6: HPLOT 0,153 TO 278,153 TO 278,191 TO 0,191 TO 0,153: HTAB 2: VTAB 21: PRINT "Saving this circuit... ";: VTAB 23: HTAB 2: PRINT "Enter name: ";:K = 15:I = 17: GOSUB 4:G$ = "CIR." +D$
  142. 142  HTAB 2: VTAB 23: PRINT "Saving "D$"          ";: VTAB 10: HTAB 1: PRINT B$"BFILE"G$",A$60A0,L$F60": PRINT B$"LOCK"G$: GOTO 135
  143. 143  IF E$ < >"4"  THEN 145
  144. 144  HTAB 1: VTAB 20: PRINT  CHR$(6);: HCOLOR= 6: HPLOT 0,153 TO 278,153 TO 278,191 TO 0,191 TO 0,153: HTAB 2: VTAB 21: PRINT "Loading a circuit...";: VTAB 23: HTAB 2: PRINT "Enter name: ";:K = 15:I = 17: GOSUB 4:G$ = "CIR." +D$: HTAB 2: VTAB 23: PRINT "Loading "D$"             ";: VTAB 10: HTAB 1: PRINT B$"BDUMP"G$: GOSUB 47: GOTO 135
  145. 145  IF E$ < >"6"  THEN 135
  146. 146  PRINT  CHR$(25);: HTAB 40: VTAB 19: PRINT  CHR$(23);: HTAB 1: VTAB 1: PRINT  CHR$(22) CHR$(16);: HTAB 10: PRINT  CHR$(9)" Disk Listing " CHR$(14);: HTAB 11: VTAB 2: PRINT  CHR$(22): POKE 44440,76: POKE 44441,158: POKE 44442,63: PRINT B$" LOGACAT ": POKE 44440,32: POKE 44441,220: POKE 44442,171: PRINT  CHR$(25): GOTO 135
  147. 147 I$ =  CHR$(9):K$ =  CHR$(14): PRINT  CHR$(16)I$"Cursor moves in 4 directions: "K$: PRINT "      use I,J,K,M  or  arrows"
  148. 148  PRINT I$" Drawing a wire: "K$: PRINT "1. Move cursor over a free pin hole and      press SPACE BAR to start wire.     2. Move cursor over another pin hole and     press SPACE BAR again to end it."
  149. 149  PRINT I$" Moving a chip: "K$: PRINT "1. Move cursor over notch of chip and        press SPACE BAR to pick up chip.   2. Move chip in place over breadboard        and press SPACE BAR to insert chip.";
  150. 150  PRINT I$" Selecting a chip: "K$: PRINT "Move cursor over notch in chip on bench:";: HTAB 7: PRINT "A advance to next chip": HTAB 7: PRINT "B backup to previous chip": HTAB 7: PRINT "N request chip by number"
  151. 151  PRINT I$" Place cursor over start of wire ": PRINT K$"then  C changes its colour": HTAB 7: PRINT "P pulls it over all other wires": HTAB 7: PRINT "T tucks it under all other wires": HTAB 7: PRINT "X erases it"
  152. 152  PRINT I$" Place cursor over notch in chip "K$: PRINT "then  X erases chip from breadboard.";: POKE  -16368,0: GET E$: GOSUB 46: GOTO 82
  153. 153 I$ =  CHR$(9):K$ =  CHR$(14): PRINT  CHR$(16)I$" Move the probe in 4 directions"K$: HTAB 7: PRINT "It turns orange, when the pin hole      is positive.": HTAB 7: PRINT "It turns blue, when the pin hole        is not on.": HTAB 7: PRINT "Use I,J,K,M  or  arrows."
  154. 154  PRINT : PRINT I$" Switches: "K$: PRINT " Turn switches on ("A$(1)")  or off ("A$(0)")": PRINT " using the numbers 1,2,3,4,5,6,7,8"
  155. 155  PRINT : PRINT I$" Push buttons: "K$: PRINT " Pressing letters T or Y will transmit     a pulse to pushbuttons 1 or 2.        The left and right sides of each pin      hole have complementary values."
  156. 156  PRINT : PRINT I$" Clock: "K$: PRINT " Press C to change the speed of the        clock.": PRINT " The left and right hand sides of the      clock have complementary values.": HTAB 20: POKE  -16368,0: GET E$: GOTO 157
  157. 157 A$(0) =  CHR$(1) +"1" + CHR$(12) +"C" + CHR$(1) +"0" + CHR$(11):A$(1) =  CHR$(1) +"1" + CHR$(12) +"D" + CHR$(1) +"0" + CHR$(11):P = 38:Q = 20: POKE 24731,1: GOSUB 47: HCOLOR= 5: HPLOT 1,155 TO 277,155 TO 277,191 TO 1,191 TO 1,155: POKE 24733,19: POKE 24732,21: HTAB 20: VTAB 22: HCOLOR= 6: POKE 38,128: POKE 39,96: CALL 28990: POKE 24735,10
  158. 158  FOR D = 26336 TO 26420  STEP 12: POKE D,0: POKE D +3,0: NEXT : HTAB 35: VTAB 22: PRINT  CHR$(9)" esc ";: HTAB 35: VTAB 23: PRINT "  ?  " CHR$(14);
  159. 159  CALL 34560:K =  PEEK(24714): IF K = 0  THEN 159
  160. 160  IF K >176  AND K <188  THEN K = K -176:F =  PEEK(26324 +12 *K):F = F - INT(F/2) *2: POKE 26324 +12 *K,1 -F: POKE 26327 +12 *K,1 -F: VTAB 18: HTAB 2 *K: PRINT A$(1 -F);: HTAB P +1: VTAB Q +1: GOTO 159
  161. 161  IF K = 195  THEN I =  PEEK(24735): POKE 24735,11 -I: GOTO 159
  162. 162  IF K = 212  THEN  POKE 25100,1: POKE 25103,1: POKE 25112,2: POKE 25115,2: GOTO 159
  163. 163  IF K = 217  THEN  POKE 25124,1: POKE 25127,1: POKE 25136,2: POKE 25139,2: GOTO 159
  164. 164  IF K = 155  THEN  GOTO 135
  165. 165  IF K = 191  THEN  GOTO 153
  166. 166  GOTO 159
  167. 167  RUN 
  168. 168  POKE 44440,32: POKE 44441,220: POKE 44442,171: HTAB 1: VTAB 20: PRINT  CHR$(25) CHR$(6);: HCOLOR= 5: HPLOT 1,153 TO 279,153 TO 279,191 TO 1,191 TO 1,153: HTAB 2: VTAB 21:K =  PEEK(222): ON K GOTO 169,169,169,172,169,173,169,174,175,176
  169. 169  PRINT "Disk error........."
  170. 170  HTAB 2: VTAB 23: PRINT "press SPACE BAR to continue...";: GET E$: IF E$ = " "  OR E$ =  CHR$(27)  THEN 135
  171. 171  GOTO 170
  172. 172  PRINT "Please remove the WRITE-PROTECT tab";: GOTO 170
  173. 173  PRINT D$" not found on disk";: GOTO 170
  174. 174  PRINT "This is not a DATA disk";: GOTO 170
  175. 175  PRINT "There is no room for "D$;: GOTO 170
  176. 176  PRINT D$" already exists...";: VTAB 22: HTAB 2: PRINT "are you sure? (Y or N) ";: GET E$: IF E$ = "N"  THEN  HTAB 22: VTAB 23: PRINT "<CTRL-I> cancelled <CTRL-N>";: FOR D = 1 TO 1000: NEXT D: GOTO 135
  177. 177  IF E$ = "Y"  THEN  PRINT B$"UNLOCK"G$: GOTO 142
  178. 178  GOTO 168