Listing of file='CODE.BAS;01' on disk='vmedia/chip_125-sector.ccvf'
1 REM CODE BY BOB LINDLEY 2 REM SUBMITTED TO COMPUCOLOR-INTECOLOR USERS GROUP 3 REM 5 REM MODIFIED BY JB/CW 1981 6 REM PROGRAM IS FOR INTERCOLOR FOR CC2 CHANGE OUT TO 6,64 7 REM USE SOUND WARE TO HEAR DOTS/DASHES 10 PLOT 27:PLOT 11:REM 100 CLEAR 500:DIM C$(60):O= 0 110 FOR T= 1TO 58:READ C$:C$(T)= C$:NEXT 115 DATA 3,0 120 DATA 12112,0,0,0,0,122221,212212,212212,0,0,221122,211112,121212,21121,22222 130 DATA 12222,11222,11122,11112,11111,21111,22111,22211,22221,222111,212121 140 DATA 0,0,112211,0,12,2111,2121,211,1,1121,221,1111,11,1222,212,1211,22 150 DATA 21,222,1221,2212,121,111,2,112,1112,122,2112,2122,2211 200 PLOT 6 210 O= O+ I:IF O> 7THEN O= I 220 PLOT 6:PLOT O:PRINT :PRINT :PRINT "TYPE IN YOUR MESSAGE - THEN HIT RETURN" 230 PRINT 300 INPUT S$:PRINT " ";: 301 B= LEN (S$): 302 FOR D= 1TO B 303 L= ASC (MID$ (S$,D,1)) 330 IF T= LOR L= 32OR L= 34OR L= 39OR L= 40OR L= 41OR (L> = 44AND L< = 59)OR L= 63OR (L> = 65AND L< = 90)GOTO 350 340 NEXT D 350 L= L- 32:A= LEN (C$(L)):FOR E= 1TO A:C= VAL (MID$ (C$(L),E,1)) 400 IF C= 3THEN PRINT " ";:FOR J= 0TO 40:NEXT J:F= F+ I 410 IF C= 1THEN PRINT " . ";:F= 0 420 IF C= 2THEN PRINT " - ";:F= 0 430 IF F> 2THEN PRINT 500 ON CGOSUB 1100,1200 510 NEXT E 520 PRINT " "; 530 FOR J= 0TO 30:NEXT J:F= F+ 1:NEXT D:GOTO 210 1100 FOR I= 0TO 10:OUT 7,64:NEXT :RETURN 1200 FOR I= 0TO 30:OUT 7,64:NEXT :RETURN