home *** CD-ROM | disk | FTP | other *** search
- CLS
- DIM AD$(17)
- LOCATE 2, 20: PRINT STRING$(40, 15)
- FOR SIDE = 3 TO 21
- LOCATE SIDE, 20: PRINT CHR$(15); SPACE$(38); CHR$(15)
- NEXT
- LOCATE 22, 20: PRINT STRING$(40, 15)
-
- AD$(1) = " Thanks for using MENUMAN"
- AD$(2) = STRING$(35, 32)
- AD$(3) = "If MENUMAN has been useful to you,"
- AD$(4) = "please send $10 in check or money"
- AD$(5) = "order to this address:"
- AD$(6) = " Carmen Paone"
- AD$(7) = " 1525 Locust St."
- AD$(8) = " Reading, Pa."
- AD$(9) = " 19604"
- AD$(10) = STRING$(35, 32)
- AD$(11) = "Please specify the size disk _ "
- AD$(12) = "5.25 or 3.5 _ you would like."
- AD$(13) = "Registered users of MENUMAN"
- AD$(14) = "will receive updates free"
- AD$(15) = "of charge. Planned updates:"
- AD$(16) = "bounce-bar menus, Lotus-type"
- AD$(17) = "menus, F-Key menus and others."
-
- FOR SET = 1 TO 17
- LOCATE SET + 3, 23: COLOR 15, 0: PRINT AD$(SET): COLOR 7, 0
- NEXT
-
- SLEEP 15
-
- CLS
-
- LOCATE 13, 20: PRINT "ADBOX.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
-
- SLEEP 10
-
- RUN "RUNMENU"
-
-