home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #3.1
/
RBBSIABOX31.cdr
/
basw
/
auldlang.bas
< prev
next >
Wrap
BASIC Source File
|
1984-05-14
|
3KB
|
64 lines
10 '*********** AULD LANG SYNE
11 CLS:KEY OFF
12 PLAY "mbo3t100l8"
20 GOSUB 2000
30 GOSUB 1000
40 GOSUB 3000
42 GOSUB 4000
45 GOSUB 1000
46 COLOR 7
50 END
1000 PLAY "mbo3t100l8"
1010 PLAY "c4f4.":PLAY "f":PLAY"f4a4g4.fg4a4f4.
1020 PLAY "fa4o4c4d2.d4c4.o3aa4
1030 PLAY "f4g4.fg4agf4.dd4c
1040 PLAY "f2.o4d4c4.o3aa4f4g4.fg4o4d4c4.o3aa4o4c4d2.
1050 PLAY "d4c4.o3aa4f4g4.fg4agf4.dd4c4f2.
1060 RETURN
2000 LOCATE 1,20: PRINT "*";
2001 LOCATE 4,14:PRINT "*";
2002 LOCATE 2,17: PRINT "* *";
2004 LOCATE 4,14:PRINT "*";
2005 LOCATE 5,1:PRINT STRING$(25,219)
2010 LOCATE 6,4: PRINT STRING$(19,219)
2020 LOCATE 7,7:PRINT STRING$(13,219)
2030 LOCATE 8,10: PRINT STRING$(7,219)
2040 FOR N = 1 TO 3
2050 LOCATE 8 + N, 13:PRINT CHR$(219)
2060 NEXT N
2070 LOCATE 12,3:PRINT STRING$(21,219)
2080 RETURN
3000 RESTORE 10000
3005 ROW = 4:STARTCOL = 40
3006 LOCATE ROW,STARTCOL
3010 READ A
3020 IF A>30 THEN PRINT CHR$(A);:GOTO 3010
3030 IF A=0 THEN ROW = ROW + 1 : GOTO 3006
3040 IF A=-1 THEN RETURN
3050 READ B: PRINT STRING$(A,B);:GOTO 3010
4000 RESTORE 20000
4001 COLOR 15
4005 ROW = 17:STARTCOL = 4
4006 LOCATE ROW,STARTCOL
4010 READ A
4020 IF A>30 THEN PRINT CHR$(A);:GOTO 3010
4030 IF A=0 THEN ROW = ROW + 1 : GOTO 3006
4040 IF A=-1 THEN COLOR 7,0:RETURN
4050 READ B: PRINT STRING$(A,B);:GOTO 3010
10000 DATA 219,32,219,32,32,220,220,32,220,3,32,220,0
10010 DATA 3,219,32,220,220,219,32,219,223,219,32,219,223,219,32,222,32,222,0
10020 DATA 219,32,219,32,219,220,219,32,219,220,219,32,219,220,219,32,32,219,0
10030 DATA 8,32,219,3,32,219,4,32,222,0,0,0
10040 DATA 8,32,219,32,222,32,3,220,0
10050 DATA 8,32,221,219,222,32,219,220,220,32,221,220,222,0
10060 DATA 8,32,221,32,219,32,219,220,219,32,219,32,219,0
10070 DATA 0,0,0
10080 DATA 6,32,219,32,219,32,3,220,32,32,220,220,32,220,3,32,219,0
10090 DATA 6,32,222,219,221,32,219,2,220,32,2,220,219,32,219,223,219,32,219,0
10100 DATA 7,32,219,32,32,219,220,219,32,219,220,219,32,219,3,32, 254
15000 DATA -1
20000 DATA 32,219,32,32,3,219,32,3,219,32,2,223,219,0
20010 DATA 32,219,32,32,219,220,219,32,219,220,219,32,32,220,219,0
20020 DATA 32,219,32,32,32,32,219,32,219,220,219,32,220,220,219,-1
2,220,220,219,-1