Big Message

Gallery

Source Code

  10 PRINT ,,"  INPUT MESSAGE"
  20 INPUT M$
  30 LET LEN=LEN M$
  50 FOR L=1 TO LEN
  55 LET CH=CODE M$(L)
  60 LET R=7680+(CH*8)
  63 LET A=1
  67 LET B=1
  70 FOR R=R+7 TO R STEP (-0.25)
  80 LET RC=PEEK R
  90 FOR H=1 TO 7
 100 LET D=RC
 110 FOR G=1 TO 3
 120 IF G=2 OR 3 THEN LET RC=D
 130 LET CNTR=0
 140 IF RC<128 THEN GOTO 170
 150 LET CNTR=128
 160 LET RC=RC-128
 170 LET RC=RC*2
 180 PRINT AT A,B;CHR$ CNTR;
 190 LET A=A+1
 200 NEXT G
 210 NEXT H
 220 LET A=1
 230 LET B=B+1
 240 NEXT R
 260 NEXT L
 270 STOP 
 280 CLEAR 
 290 SAVE "1033%4"
 300 RUN