Nostalgic BASIC porting
Mar 22, 2012 17:23:40 GMT 1
Post by Pjot on Mar 22, 2012 17:23:40 GMT 1
Folks,
For nostalgic fun I have ported another small program to BaCon.
For nostalgic fun I have ported another small program to BaCon.
' Arrays start at position 1 in classic BASIC's
OPTION BASE 1
' The actual program
PRINT TAB$(33), "LOVE"
PRINT TAB$(15), "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
PRINT: PRINT: PRINT
PRINT "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA."
PRINT "HIS GREAT WORK WILL BE REPRODUCED WITH A MESSAGE OF"
PRINT "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF"
PRINT "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'": PRINT
INPUT "YOUR MESSAGE, PLEASE ", A$: L=LEN(A$)
DECLARE T$[120]: FOR I=1 TO 10: PRINT: NEXT I
FOR J=0 TO INT(60/L)
FOR I=1 TO L
T$[J*L+I]=MID$(A$, I, 1)
NEXT I: NEXT J
C=0
LABEL _200: A1=1: P=1: C=C+1: IF C=37 THEN GOTO _999
PRINT
LABEL _210: READ A: A1=A1+A: IF P=1 THEN GOTO _300
FOR I=1 TO A: PRINT " ";: NEXT I: P=1: GOTO _400
LABEL _300: FOR I=A1-A TO A1-1: PRINT T$[I];: NEXT I: P=0
LABEL _400: IF A1>60 THEN GOTO _200
GOTO _210
DATA 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5
DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4
DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4
DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4
DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8
DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1
DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1
DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10
DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10
DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1
DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1
DATA 11,8,13,27,1,11,8,13,27,1,60
LABEL _999: FOR I=1 TO 10: PRINT: NEXT I: END