MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

BACH: Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
(Created page with " 100 CLEAR3000 110 DIM CH(258),CL(4),R$(6),S$(6) 120 CLS: PRINT@12,"BANNER" 130 PRINT@64,"COLOR (1-8)";: INPUT CO 140 IF (CO<1 OR CO>8) THEN PRINT@64," ": GOTO 130 150 CO...")
 
mNo edit summary
Line 1: Line 1:
  100 CLEAR3000
  100 DATA 89,1,125,1,147,1,176,1,147,1,125,1
110 DIM CH(258),CL(4),R$(6),S$(6)
  110 DATA 89,1,125,1,147,1,89,1,147,1,125,1
120 CLS: PRINT@12,"BANNER"
  120 DATA 89,1,125,1,147,1,176,1,147,1,125,1
130 PRINT@64,"COLOR (1-8)";: INPUT CO
  130 DATA 89,1,125,1,147,1,89,1,147,1,125,1
140 IF (CO<1 OR CO>8) THEN PRINT@64," ": GOTO 130
  140 DATA 89,2,108,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,176,2
150 CO=128+(CO-1)*16+15
  150 DATA 147,2,125,2,89,2,108,2,125,2,133,2,147,2,159,2,147,2
160 INPUT "ENTER 1 TO 36 CHARACTERS";A$
  160 DATA 133,2,125,2,108,2,125,2,133,2,32,2,78,2,106,2,133,2,125,2
170 IF LEN(A$)>36 THEN 160
  170 DATA 108,2,125,2,69,2
180 CLS
  180 DATA 106,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,76,2
190 A$="    "+A$
  190 DATA 147,2,125,2,89,2,106,2,125,2,58,2,133,2,125,2,106,2
200 DATA 14,17,19,21,25,17,14
  200 DATA 89,2,58,2,32,2,69,2,76,2,89,2
  210 DATA 4,12,4,4,4,4,14
  210 DATA 89,1,125,1,147,1,176,1,147,1,125,1
220 DATA 14,17,1,14,16,16,31
  220 DATA 89,1,125,1,167,1,69,1,147,1,125,1
  230 DATA 14,17,1,6,1,17,14
  230 DATA 89,1,125,1,147,1,176,1,147,1,125,1
240 DATA 2,6,10,18,31,2,2
  240 DATA 69,1,125,1,147,1,89,1,147,1,125,1
  250 DATA 31,16,30,1,1,17,14
  250 DATA -1,-1
260 DATA 6,8,16,30,17,17,14
  260 CLS
  270 DATA 31,1,2,4,8,16,16
  270 READ A,B
280 DATA 14,17,17,14,17,17,14
  275 PRINT A,B
290 DATA 14,17,17,15,1,2,12
  280 IF A<0 AND B<0 THEN 310
300 DATA 0,0,0,0,0,0,0
  290 SOUND A,B
  310 DATA 4,10,17,17,31,17,17
  300 GOTO 270
320 DATA 30,9,9,14,9,9,30
  310 RESTORE: GOTO 260
330 DATA 14,17,16,16,16,17,14
  340 DATA 30,9,9,9,9,9,30
350 DATA 31,16,16,30,16,16,31
360 DATA 31,16,16,28,16,16,16
370 DATA 15,16,16,19,17,17,15
  380 DATA 17,17,17,31,17,17,17
  390 DATA 14,4,4,4,4,4,14
400 DATA 1,1,1,1,1,17,14
410 DATA 17,18,20,24,20,18,17
420 DATA 16,16,16,16,16,16,31
  430 DATA 17,27,21,21,17,17,17
440 DATA 17,25,21,19,17,17,17
450 DATA 14,17,17,17,17,17,14
  460 DATA 30,17,17,30,16,16,16
470 DATA 14,17,17,17,21,18,13
  480 DATA 30, 17, 17,30,20, 18, 17
490 DATA 14,17,16,14,1,17,14
  500 DATA 31,4,4,4,4,4,4
510 DATA 17,17,17,17,17,17,14
  520 DATA 17,17,17,10,10,4,4
530 DATA 17,17,17,17,21,27,17
  540 DATA 17,17,10,4,10,17,17
550 DATA 17,17,10,4,4,4,4
  560 DATA 31,1,2,4,8,16,31
570 FOR I=0 TO 37*7-1
  580 READ CH(I)
  590 NEXT I
600 FOR I=0 TO 6
610 S$(I)=""
620 NEXT I
630 FOR J=1 TO LEN(A$)
  640 B$=MID$(A$,J,1): IF B$=" " THEN I=10: GOTO 690
  650 I=ASC(B$)-48: IF I<0 THEN I=10: GOTO 690
660 IF I<10 THEN 690
670 IF I<17 THEN I=10: GOTO 690
680 I=I-6
690 I=I*7
700 FOR R=0 TO 6
710 A=CH(I+R)
720 FOR C=0 TO 4
730 CL(4-C)=A-INT(A/2)*2: A=INT(A/2)
740 NEXT C
750 RW$=""
760 FOR K=0 TO 4
770 IF CL(K)=O THEN RW$=RW$+" "
  780 IF CL(K)=1 THEN RW$=RW$+CHR$(CO)
790 NEXT K
800 RW$=RW$+" "
810 S$(R)=S$(R)+RW$
820 NEXT R
830 NEXT J
840 FOR K=1 TO LEN(A$)*6
850 FOR R=0 TO 6
860 R$(R)=MID$(S$(R),K,30)
  870 NEXT R
  880 PRINT@130,R$(0);
890 PRINT@162,R$(1);
900 PRINT@194,R$(2),
910 PRINT@226,R$(3);
920 PRINT@258,R$(4);
930 PRINT@290,R$(5);
940 PRINT@322,R$(6);
950 NEXT K
960 GOTO 840

Revision as of 02:45, 25 March 2013

100 DATA 89,1,125,1,147,1,176,1,147,1,125,1
110 DATA 89,1,125,1,147,1,89,1,147,1,125,1
120 DATA 89,1,125,1,147,1,176,1,147,1,125,1
130 DATA 89,1,125,1,147,1,89,1,147,1,125,1
140 DATA 89,2,108,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,176,2
150 DATA 147,2,125,2,89,2,108,2,125,2,133,2,147,2,159,2,147,2
160 DATA 133,2,125,2,108,2,125,2,133,2,32,2,78,2,106,2,133,2,125,2
170 DATA 108,2,125,2,69,2
180 DATA 106,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,76,2
190 DATA 147,2,125,2,89,2,106,2,125,2,58,2,133,2,125,2,106,2
200 DATA 89,2,58,2,32,2,69,2,76,2,89,2
210 DATA 89,1,125,1,147,1,176,1,147,1,125,1
220 DATA 89,1,125,1,167,1,69,1,147,1,125,1
230 DATA 89,1,125,1,147,1,176,1,147,1,125,1
240 DATA 69,1,125,1,147,1,89,1,147,1,125,1
250 DATA -1,-1
260 CLS
270 READ A,B
275 PRINT A,B
280 IF A<0 AND B<0 THEN 310
290 SOUND A,B
300 GOTO 270
310 RESTORE: GOTO 260
Retrieved from "https://www.cocopedia.com/wiki/index.php?title=BACH&oldid=5324"