Compucolor.org – Virtual Media

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