home *** CD-ROM | disk | FTP | other *** search
- 100 REM SET UP SOUND REGISTERS
- 101 : GOSUB263: REM SOUND ROUTINE
- 102 :
- 103 REM SET UP SCREEN COLORS
- 104 : POKE 53280,12 :REM BORDER MEDIUM GRAY
- 105 : POKE 53281,15 :REM BACKGROUND LIGHT GRAY
- 106 : POKE 646,11 :REM TEXT DARK GRAY
- 107 :
- 108 REM TEST IF PLOTTER PRESENT
- 109 : PRINT "[147]" :REM POSITION CURSOR
- 110 : SC$="" :REM RED REVERSE VIDEO
- 111 : OPEN 4,6,0 :REM OPEN ASCII PORT
- 112 : CLOSE 4 :REM CLOSE PORT, ST=0 IF PRESENT
- 113 : IF ST=0 THEN128:REM GO OPEN PRINTER PORTS
- 114 : IF BL=0 THEN BL=1: GOSUB272:REM SOUND BELL, ONCE IS ENOUGH
- 115 : PRINT "[145][145][145][145][145][145]" :REM CURSOR UP TO OVERLAY
- 116 : PRINT TAB(8);"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
- 117 : PRINT TAB(8);"[221]";SC$;" [146][151][221]"
- 118 : PRINT TAB(8);"[221]";SC$;" MAKE PLOTTER READY [146][151][221]"
- 119 : PRINT TAB(8);"[221]";SC$;" [146][151][221]"
- 120 : PRINT TAB(8);"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
- 121 : IF SC$="" THEN SC$="[155]": GOTO123:REM ALTERNATE BETWEEN INVISIBLE
- 122 : IF SC$="[155]" THEN SC$="" :REM (LIGHT GRAY) AND RED REVERSE
- 123 : GT=TI :REM SAVE TIMER VALUE
- 124 : IF TI-GT<60 THEN124:REM LOOP FOR 60 JIFFIES
- 125 : GOTO111:REM GO RETRY PLOTTER
- 126 :
- 127 REM PLOTTER IS PRESENT, OPEN THE PORTS
- 128 : OPEN 1,6,1 :REM PLOTTING PORT
- 129 : OPEN 2,6,2 :REM PEN COLOR SELECT PORT
- 130 : OPEN 3,6,3 :REM CHARACTER SIZE PORT
- 131 : OPEN 4,6,0 :REM ASCII PORT
- 132 :
- 133 : WIDTH=3: WD=WI-1: REM WIDTH=COLUMNS
- 134 :
- 135 : DIM B$(200)
- 136 : OPEN15,8,15:PRINT#15,"U;":CLOSE15
- 137 :
- 138 : PRINT "[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
- 139 : PRINT " [221] *3 COLUMN DIRECTORY* [221][146]"
- 140 : PRINT " [221] FOR THE 1520 PLOTTER [221][146]"
- 141 : PRINT " [221] FROM [221][146]"
- 142 : PRINT " [221] THE PLOTTING SHED [221][146]"
- 143 : PRINT " [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][151][146]"
- 144 : PRINT"DO YOU WANT TO PRINT THE DATE
- 145 : [133]"ON THE DIRECTORY LISTING (Y.N) NCMDCMDCMD";QU$
- 146 : [143]:INPUT"ON THE DIRECTORY LISTING <Y/N>";QU$
- 147 : [139] QU$ [178] "N" [167]155
- 148 : [139] QU$ [178] "Y" [167]150
- 149 : [137]155
- 150 : [153]" PLEASE, NO COMMAS!STOP"
- 151 : [153]" MAX LENGTH "
- 152 : [153]"<---+----+----+-->WAIT"
- 153 : [133]"";DA$
- 154 : [139] [195](DA$)[177]18 [167] [153]"DATE STRING TOO LONG":[137]144
- 155 [129] I[178]1 [164] 7:[135] A$(I): [130]
- 156 [153]"LOAD": J[178]0 :[129] I [178] 1 [164] 200: B$(I)[178]"": [130]
- 157 [129] I[178]1 [164] 10: [153]" "A$(I)"": [130]
- 158 [161] Q$:[139] Q$[177]"" [167]158
- 159 [161] Q$:[139] Q$[178]"" [167]159
- 160 [143]:IF Q$="A" THEN PRINT"155":GOTO1150
- 161 [139] Q$[179][177]"S" [175] Q$[179][177]"U" [175] Q$[179][177]"N" [175] Q$[179][177]"Q" [167]156
- 162 [139] Q$[178]"Q" [167] [160] 15: [153]"LOAD": [128]
- 163 [143]:IF Q$<>"S" AND Q$<>"U" AND Q$<>"N" AND Q$<>"A" THEN660
- 164 [153]"LOAD WAIT": Z[178][171]1
- 165 [141]234
- 166 [161]#1,A$,B$
- 167 [161]#1,A$,B$
- 168 [161]#1,A$,B$
- 169 C[178]0
- 170 [139] A$[179][177]"" [167] C[178][198](A$)
- 171 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256
- 172 Z$[178][202]([196](C),2)
- 173 [139] [195](Z$)[179]1 [167] Z$[178]" "
- 174 [139] [195](Z$)[178]1 [167] Z$[178]" "[170]Z$
- 175 [139] [195](Z$)[178]2 [167] Z$[178]" "[170]Z$
- 176 B$(J)[178]" "[170]Z$[170]" "[170][199](34)
- 177 LZ[178]0
- 178 [161]#1,B$: [139] ST[179][177]0 [167] [137]189
- 179 [139] B$[179][177][199](34) [167]178
- 180 [161]#1,B$: [139] B$[179][177][199](34) [167] B$(J)[178]B$(J)[170]B$: LZ[178]LZ[170]1: [137]180
- 181 [161]#1,B$: [139] B$[178][199](32) [167]181
- 182 B$(J)[178]B$(J)[170][199](34):[139]LZ[177]15[167]184
- 183 [129] JZ[178]LZ [164] 15: B$(J)[178]B$(J)[170]" ": [130] JZ
- 184 C$[178]""
- 185 C$[178]C$[170]B$: [161]#1,B$: [139] B$[179][177]"" [167]185
- 186 SS[178]ST: B$(J)[178]B$(J)[170][200](C$,3)
- 187 [153] " "B$(J)" WAIT": J[178]J[170]1
- 188 [139] SS[178]0 [167]167
- 189 B$(J)[178][200](B$(J),[195](B$(J))[171]1)[170]" BLOCKS FREE."
- 190 [153] " "B$(J)" WAIT": [160] 1
- 191 [139] Q$[179][177]"N" [167]196
- 192 [161] Q$:[139] Q$[177]"" [167]192
- 193 [153]" PRESS ANY KEY ....."
- 194 [161] Q$:[139] Q$[178]"" [167]194
- 195 [137]156
- 196 [139] Q$[178]"U" [167]207
- 197 LB[178]2
- 198 : [129] II[178]J[171]1 [164] LB [169] [171]1
- 199 : [139] [202](B$(II[171]1),7,15) [179][178] [202](B$(II),7,15) [167]204
- 200 : EX$ [178] B$(II)
- 201 : B$(II) [178] B$(II[171]1)
- 202 : B$(II[171]1) [178] EX$
- 203 : FX [178] II
- 204 : [130] II
- 205 [139] LB[178]FX[170]1 [167]207
- 206 LB [178] FX[170]1: [137]198
- 207 [160]4:[159] 4,6:TF[178]4
- 208 [160]3:[159]3,6,3:[152]3,0
- 209 :
- 210 [143] PRINT THE HEADER
- 211 [153]" PLEASE WAIT ....."
- 212 [152]4,[202](B$(0),5,21);
- 213 [139] DA$[178]"" [167]215
- 214 [152]4,[199](15);[166]25[171][195](DA$));"DIR. DATE: ";DA$;
- 215 [152]4:[152]4
- 216 :
- 217 [143] NOW PRINT THE DIRECTORY
- 218 RW [178] [181]((J [170] WD)[173] WI)
- 219 : [129] I[178]1 [164] RW: [129] W[178]1 [164] WI
- 220 : [139](I[170](W[171]1)[172]RW)[177]J[167] [152]4," ";:[137]222
- 221 : [152]4,B$(I[170](W[171]1)[172]RW);
- 222 : [130] W
- 223 : [152]4:TF[178]TF[170]1
- 224 : [130] I
- 225 : [129] II[178]1 [164] 3
- 226 : [152]4
- 227 : [130]
- 228 :
- 229 [143] SWITCH PRINTER TO NORMAL
- 230 [160]4
- 231 [160]3
- 232 [160]4
- 233 [137]244
- 234 [160]1: [160] 15: [159] 15,8,15
- 235 [159] 1,8,0,"$0"
- 236 [132]15,E1,E2$,E3,E4
- 237 [139]E1[177]0[167][141]250:[153] "LOAD "E2$:[160]1:[137]241
- 238 [142]
- 239 :
- 240 [143]
- 241 [161] W$: [139] W$[177]"" [167]241
- 242 [161] W$: [139] W$[178]"" [167]242
- 243 [137]235
- 244 [153]"LOADPRINT DIRECTORY AGAIN? <Y/N>"
- 245 [161]Q$:[139]Q$[178]""[167]245
- 246 [139] Q$[179][177]"Y"[167]156
- 247 [139]Q$[178]"Y"[167][153]"SYSSET NEW PAGE IN PRINTER AND HIT RETURNLIST"
- 248 [161]Q$:[139]Q$[178]""[167]248
- 249 [137]207
- 250 S[178]54272:CC[178][194](53280):[151]53280,2
- 251 [129] T[178]0 [164] 15 [169].5:[130]
- 252 [151]S[170]1,100
- 253 [151]S[170]5,10
- 254 [151]S[170]15,255
- 255 [151]S[170]24,15
- 256 [151]S[170]4,21
- 257 [129] T[178]1 [164] 1000:[130]:[151]S[170]4,20
- 258 [129] T[178]15 [164] 0 [169][171].5:[130]T
- 259 [151]53280,CC
- 260 [142]
- 261 :
- 262 [143] SOUND BELL SUBROUTINE
- 263 : [151] SD[170]24,15 :[143] VOICE 1 VOLUME AND FILTER SELECT
- 264 : [151] SD[170]4,17 :[143] VOICE 1 CONTROL, START ATTACK
- 265 : [151] SD[170]4,16 :[143] VOICE 1 CONTROL, START RELEASE
- 266 : TB[178]TI
- 267 : [139] (TI[171]TB)[179]60 [167]267
- 268 : [151] SD[170]24,0 :[143] VOICE 1 CONTROL, CLEAR VOLUME
- 269 : [142]
- 270 :
- 271 [143] SET UP SID REGISTERS FOR BELL SOUND
- 272 : SD[178]54272 :[143] ADDRESS OF SID CHIP
- 273 : [151] SD, 100 :[143] VOICE 1 FREQUENCY, LOW BYTE
- 274 : [151] SD[170] 1,56 :[143] VOICE 1 FREQUENCY, HIGH BYTE
- 275 : [151] SD[170] 5, 8 :[143] VOICE 1 ATTACK/DECAY
- 276 : [151] SD[170] 6,(9[172]16[170]10):[143] VOICE 1 SUSTAIN/RELEASE
- 277 [142]
- 278 :
- 279 [131]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
- 280 DATA"[194] [194]
- 281 [131]"PEEK 'S' SORTED 'U' UNSORTED PEEK
- 282 DATA"[194] 'N' NO PRINT 'Q' QUIT [194]
- 283 [131]"PEEK PEEK
- 284 DATA"[194] => PRESS DESIRED LETTER [194]
- 285 [131]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
-