home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG054.ARK
/
SNOOPY.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
62 lines
10 INPUT "ENTER YOUR NAME";A9$
20 A9=INSTR(A9$,"/")
25 INPUT "DO YOU WANT TO USE THE LINEPRINTER";LP$
30 IF LP$="YES" THEN L=2:POKE &7FB1,&69:POKE &7FB2,&90 ELSE L=0
40 IF A9 THEN A$=RIGHT(A9$,A9+1):A9$=LEFT(A9$,A9-1)
50 OPEN #L,"O"
60 PRINT#L,"
70 PRINT#L,"
80 PRINT#L,"
90 PRINT#L," XXXX"
100 PRINT#L," X XX"
110 PRINT#L," X *** X XXXXX"
120 PRINT#L," X ***** X XXX XX"
130 PRINT#L," XXXX ******* XXX XXXX XX"
140 PRINT#L," XX X ****** XXXXXXXXX XX XXX"
150 PRINT#L," XX X **** X X** X"
160 PRINT#L," X XX XX X X***X"
170 PRINT#L," X //XXXX X XXXX"
180 PRINT#L," X // X XX"
190 PRINT#L," X // X XXXXXXXXXXXXXXXXXX/"
200 PRINT#L," X XXX// X X"
210 PRINT#L," X X X X X"
220 PRINT#L," X X X X X"
230 PRINT#L," X X X X X XX"
240 PRINT#L," X X X X X XXX XX"
250 PRINT#L," X XXX X X X X X X"
260 PRINT#L," X X X XX X XXXX"
270 PRINT#L," X X XXXXXXXX\ XX XX X"
280 PRINT#L," XX XX X X X XX"
290 PRINT#L," XX XXXX XXXXXX/ X XXXX"
300 PRINT#L," XXX XX*** X X"
310 PRINT#L," XXXXXXXXXXXXX * * X X"
320 PRINT#L," *---* X X X"
330 PRINT#L," *-* * XXX X X"
340 PRINT#L," *- * XXX X"
350 PRINT#L," *- *X XXX"
360 PRINT#L," *- *X X XXX"
370 PRINT#L," *- *X X XX"
380 PRINT#L," *- *XX X X"
390 PRINT#L," * *X* X X X"
400 PRINT#L," * *X * X X X"
410 PRINT#L," * * X** X XXXX X"
420 PRINT#L," * * X** XX X X"
430 PRINT#L," * ** X** X XX X"
440 PRINT#L," * ** X* XXX X X"
450 PRINT#L," * ** XX XXXX XXX"
460 PRINT#L," * * * XXXX X X"
470 PRINT#L," * * * X X X"
480 PRINT#L," =======******* * * X X XXXXXXXX\"
490 PRINT#L," * * * /XXXXX XXXXXXXX\ )"
500 PRINT#L," =====********** * X ) \ )"
510 PRINT#L," ====* * X \ \ )XXXXX"
520 PRINT#L," =========********** XXXXXXXXXXXXXXXXXXXXXX"
530 PRINT#L,"
540 PRINT#L,"
550 PRINT #L,,"COMPLIMENTS OF RUF DATA SYSTEMS"
560 PRINT #L,"
570 PRINT #L, "BEST REGARDS FROM ";A9$
580 PRINT#L,"
590 CLOSE #L
600 END