home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
#1tutor.mdl
< prev
next >
Wrap
Text File
|
1995-07-19
|
6KB
|
155 lines
SPARKWARE
DISPLAY OFF
SCREEN(1,SAVE)
SAVER 180
BLINK ON
FILLSCRN(1,1,25,80,32,31,7)
QPRINT("Welcome to 1stReader!",1,-1,27,7)
QPRINT("1stReader is an offline mail reading system. If you are new to bulletin",4,5,-1)
APRINT("board systems (BBS) then you may not know what '@X??@X00@X(1E,0F)offline@XFF' mail is about.")
QPRINT("When you call a BBS and read a message, you are reading a message that")
APRINT("is '@X00@X(1E,0F)online@XFF'. If you wish to read another message you tell the BBS to")
QPRINT("fetch the next message for you. While you are reading messages you are")
QPRINT("connected to the BBS - and of course if you are calling a BBS that is")
QPRINT("long distance from you then your call is costing you money too.")
APRINT("@X00@X(1E,0F)This is where 1stReader can help you@XFF. 1stReader lets you call a BBS",13,5,-1)
QPRINT("and quickly gather up any new messages posted since your last call.")
QPRINT("1stReader can also upload any messages that YOU have entered and can")
QPRINT("also download files that you request (currently only through PCBoard).")
APRINT("1stReader does all of this @X00@X(9E,8F)VERY@XFF quickly - you can receive over 1,000")
QPRINT("messages in just a few minutes time.")
QPRINT("You can also tell 1stReader to call bulletin board systems late at",21,5,-1)
QPRINT("night when long distance rates are at their lowest...")
DISPLAY ON
QPRINT("Press any key to continue...",25,-1,23,7)
BEEP
PAUSE
DISPLAY OFF
FILLSCRN(1,1,25,80,32,31,7)
BOX(4,5,21,75,78,112,1,1)
FILLSCRN(5,6,20,74,32,79,112)
QPRINT("1stReader is...",6,10,-1)
DISPLAY ON
QPRINT("Fast!",8,15,-1)
BEEP
PAUSE 1
QPRINT("Easy to use...")
BEEP
PAUSE 1
QPRINT("Flexible...")
BEEP
PAUSE 1
QPRINT("Powerful!")
BEEP
PAUSE 1
APRINT("...and costs less... (@X??@X00@X(4E,70)registration is only $25@XFF)")
BEEP
PAUSE 1
DISPLAY OFF
APRINT("1stReader includes @X??@X00@X(4E,7F)EVERYTHING@XFF you need in order to use offline",14,10,-1)
QPRINT("mail with today's bulletin board systems. Other offline mail")
QPRINT("readers require you to register other utilities in order to")
APRINT("work. You would have to spend over @X00@X(CE,F0)$250@XFF to register the")
APRINT("utilities that come @X00@X(4E,F0)FREE@XFF with your registered 1stReader system.")
QPRINT("Press any key to continue...",20,-1,71,112)
DISPLAY ON
BEEP
PAUSE
DISPLAY OFF
FILLSCRN(1,1,25,80,32,31,7)
QPRINT("Let's show you how easy it is to call a bulletin board system",11,-1,-1)
QPRINT("using 1stReader",12,-1,-1)
DIALOG_BOX(1,0,27,1," Ok! ",20,30,112,112,1,116,15)
DISPLAY ON
GET(Choice$,1)
CLEAR_BOXES
DISPLAY OFF
BLOAD("#1TUTOR.BIN",1)
SCREEN(2,SAVE)
DIALOG_BOX(1,0,27,1," Get messages and send replies ",16,3,112,112,0,116,116)
SCREEN(2,RESTORE)
BOX(3,6,10,32,31,7,1,1)
FILLSCRN(4,7,9,31,32,30,7)
QPRINT("This is the 1stReader",4,9,-1)
QPRINT("opening screen menu.")
APRINT("Select '@X??@X00@X(1F,0F)Get msgs@XFF' to")
QPRINT("get new mail from the")
QPRINT("currently highlighted")
QPRINT("system in the menu.")
DISPLAY ON
PAUSE 10
BOX(18,10,22,70,48,7,1,1,"We're not really calling - this is just a demo...")
PAUSE 5
SCREEN(2,RESTORE)
PAUSE 3
BLIP 1
PAUSE 2
BLOAD("#1TUTOR.BIN",2)
QPRINT("·",10,42,116,112)
QPRINT("·",11,42,116,112)
PAUSE 1
QPRINT("■",10,42,112)
QPRINT("■",10,44,122,112)
PAUSE 1
QPRINT("■",11,42,112)
QPRINT("■",11,44,122,112)
PAUSE 1
PLAY "T140P2O1L2D..MSO2L16CEDFGCFP1"
PLAY "T255L16O4CCCCCCCCCCCCCCCCCP1"
PLAY "T255L16O4CCCCCCCCCCCCCCCCCP1L1MBO5D..D#..P8"
PAUSE 1
CLS(7)
SLOW(ON,15)
CURSOR ON
SHOW "#1TUTOR.1" NOSTOP
CURSOR OFF
BLOAD("#1TUTOR.BIN",3)
PAUSE 2
QPRINT("█████",17,27,30)
PAUSE 2
QPRINT("█████",17,32,30)
PAUSE 2
QPRINT("█████",17,37,30)
PAUSE 2
QPRINT("█████",17,42,30)
PAUSE 2
QPRINT("█████",17,47,30)
PAUSE 2
QPRINT("█████",17,52,30)
PAUSE 2
QPRINT("█████",17,57,30)
PAUSE 2
QPRINT("██████",17,62,30)
PAUSE 3
CLS(7)
SLOW(ON,15)
CURSOR ON
SHOW "#1TUTOR.2" NOSTOP
CURSOR OFF
PAUSE 3
SLOW(OFF)
:PACKET
DISPLAY OFF
FILLSCRN(1,1,25,80,32,31,7)
QPRINT("We now have a mail packet on file you can read with 1stReader",4,10,-1)
QPRINT("When you return back to the 1stReader opening menu select",7,10,-1)
APRINT("'@X??@X00@X(1E,0F)Sparky's Machine'@XFF from the menu. You'll see your mail packet")
QPRINT("waiting. Simply press the ENTER key on your keyboard and you")
QPRINT("will be able to read the mail packet you just received.")
DIALOG_BOX(1,0,27,QUIT," Press any key to continue ",21,23,112,112,0,116,112)
DISPLAY ON
GET(Choice$,1)
CLEAR_BOXES
EXIT