home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
NEW33MAS.DSK
/
CONVERT13.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
637b
|
16 lines
10 ONERR GOTO 2000
20 TEXT : HOME
30 D$ = CHR$(4): REM CTRL-D
33 QUOTE$ = CHR$(34): REM QUOTE
36 BEL$ = CHR$(7): REM CAUSES BELL SOUND
40 VTAB 10: INVERSE :A$ = "EXECUTING MUFFIN": GOSUB 1000: NORMAL
50 PRINT D$"BRUN MUFFIN"
1000 REM CENTER STRING A$
1010 HTAB INT(20 -( LEN(A$)/2)): PRINT A$: RETURN
2000 VTAB 10: IF PEEK(222) < >6 THEN GOTO 2040
2010 PRINT "THIS PROGRAM REQUIRES THAT THE FILE"
2020 PRINT : PRINT QUOTE$"MUFFIN"QUOTE$" BE PRESENT ON THIS DISK"
2030 PRINT BEL$: END
2040 PRINT "PLEASE CONSULT THE DOS 3.3 PROGRAMMING"
2050 PRINT : PRINT "MANUAL FOR ERROR #" PEEK(222)
2060 PRINT BEL$: END