62 52 53 53 Formerly known as 62 52 53 53
Active Member
Joined: 30 May 2003 Posts: 607
|
Posted: 26 Oct 2003 02:12:34 pm Post subject: |
|
|
Yep, that's what I have.
32üdim(áSCHL)
If áSCHL(1)ø0:Goto 1
Menu("ASSIGNMENT BOOK","RESTORE",1B,"INSTALL",1A)
Lbl 1A
" "üStr0
0üâ
While â<4
Str0+Str0üStr0
â+1üâ
End
0üâ
While â<3
Str0+Str0+Str0üStr0
â+1üâ
End
If áSCHL(1)=1:Goto 1O
1üáSCHL(1)
Lbl 1B
While áSCHL(1)=0
UnArchive Str8
Str8üStr0
Archive Str8
UnArchive áSCLB
áSCLBüáSCHL
Archive áSCLB
2üáSCHL(1)
End
While áSCHL(1)ø2
{0}üáSCLB
{0}üáSCHB
Archive áSCHB
Archive áSCLB
2üáSCHL(1)
End
Lbl 1P
ClrHome
Output(1,1,"ASGN0Á33 IS AN ALPHA VERSION. IT IS THE SECOND ALPHA SINCE THE REWRITE, AND THE SECOND RELEASE SINCE .30"
Pause
ClrHome
Output(1,1,"VERSION .32 WAS RELEASED, BUT 0 COPPIES WERE DISTRIBUTED. ALL VERSIONS SINCE .3 HAVE HAD THE FOLLOWING TOOLS.
Pause
ClrHome
Output(1,1,"Y= :ADD WORK WIN :CLASS MENU ZOOM :CLEAR LINETRACE :CLR CLASSGRPH :LINES USED
Pause
ClrHome
Output(1,1,"ON THE MAIN SCREEN, THE WINDOW KEY NOW BRINGS UP A MENU
Pause
If áSCHL(1)=1:Goto 1O
Lbl 1
1üáSCHL(1)
32üdim(áSCHL)
UnArchive Str0
ClrHome
Disp "CHECK","0:BACK","1D 0 5D 5/6","2D 1 6D 7/8","3D 2 7D 9","4D 3 8D 10","----------------"
0üFV
32üdim(áSCHL)
While FV<8
If áSCHL(FV+2)ø0:Output(round((FV/2+2.75),0),(2+8*max(FV={1,3,5,7})),"*")
FV+1üFV
End
0üFV
Lbl 1Á
0üâ
While not(â)
getKeyüâ
End
If max(â={102,105,22,23,45}):Return
If â=92:1üâ
If â=93:2üâ
If â=94:3üâ
If â=82:4üâ
If â=83:5üâ
If â=84:6üâ
If â=72:7üâ
If â=73:8üâ
If â=12:Goto 1O
If â>10:Goto 1Á
Lbl 1V
ClrHome
Output(1,1,sub(Str0,96*(â-1)+2,15))
Output(2,1,"----------------")
Output(3,1,sub(Str0,96*(â-1)+65,32)
Output(3+áSCHL(â+9),1,sub(Str0,96*(â-1)+17+16(áSCHL(â+9)),80-16(áSCHL(â+9)))
Output(8,1,"----------------"
If áSCHL(â+8(â=1))ø0:Output(2,1,"<")
If áSCHL(â+2-8(â=)ø0:Output(2,16,">")
0üI%
While not(I%)
getKeyüI%
End
If I%=11:Goto 1Z
If I%=12:Goto 1I
If I%=13:Goto 1W
If I%=14:Goto 1U
If I%=15:Goto 1R
â-(I%=24)+(I%=26)üâ
â-8(â=9)+8(â=0)üâ
If I%=24 or I%=26:Goto 1V
ClrHome
Goto 1
Lbl 1O
Menu("OPTIONS","BACKUP",1N,"INSTRUCTIONS",1P,"CLEAR ALL",1Q,"BACK",1)
Lbl 1Q
Input "CLEAR ALL Y/N ",Str9
If Str9ø"Y":Goto 1O
1üdim(áSCHL)
32üdim(áSCHL)
Goto 1A
Lbl 1N
Input "BACKUP Y/N?",Str9
If Str9ø"Y":Goto 1O
Str0üStr9
Archive Str0
UnArchive Str8
Str9üStr8
DelVar Str9
Archive Str8
UnArchive Str0
UnArchive áSCLB
áSCHLüáSCLB
Archive áSCLB
UnArchive áSCHB
áSCHLüáSCHB
Archive áSCLB
Goto 1O
Lbl 1R
Output(1,1,"
Input "LINES?: ",FV
FVüáSCHL(2â-7(â>4))
0üFV
Goto 1V
Lbl 1W
Output(1,1,"
Input "CLEAR",PV
" "üStr9
ú1üFV
Goto 1S
Lbl 1U
Output(1,1,"
Input "CLR CLSS Y/N: ",Str9
If Str9ø"Y":Goto 1
1üPV
" "üStr9
0üFV
0üáSCHL(2â-7*(â>4)
Goto 1S
Lbl 1Z
ClrHome
Input "LINE: ",PV
Input "ADD: ",Str9
iPart(length(Str9)/16)+(fPart(length(Str9)/16)ø0)üFV
Lbl 1S
áSCHL(2â-7(â>4))+FVüáSCHL(2â-7(â>4))
iPart(PV)üPV
If PV<1:Goto 1V
If (length(Str9)/16)ù(7-PV-áSCHL(â+9)):Goto 1V
(â-1)*96+16*PVüPV
length(Str9)üPMT
While PMT>16
PMT-16üPMT
End
16-PMTüPMT
While PMT>0
PMT-1üPMT
Str9+" "üStr9
End
sub(Str0,1,PV)+Str9+sub(Str0,PV+length(Str9)+1,length(Str0)-PV-length(Str9))üStr0
Goto 1V
Lbl 1I
Menu("OPTIONS","CLASS INFO",1J,"CLASS NAME",1Y,"BACK",1V)
Lbl 1J
ClrHome
Output(1,1,sub(Str0,96*(â-1)+2,15))
Output(2,1,"----------------
Output(3,1,"CLASS INFO"
Output(4,1,"----------------
Output(5,1,"PERIOD: "
Output(5,9,sub("0 1 2 3 5/67/89 10 ",3â-2,3))
Output(6,1,"TIME: "
Output(7,1,sub(" 7:00- 7:45 7:49- 8:37 8:41- 9:29 9:33-10:2010:57-11:4511:49-12:3712:41- 1:29 1:33- 2:21",11â-11+1,11)
Pause
Goto 1I
Lbl 1Y
ClrHome
Input "CLASS: ",Str9
If length(Str9)>16:Goto 1V
(â-1)*96+1üPV
While length(Str9)<15
Str9+" "üStr9
End
sub(Str0,1,PV)+Str9+sub(Str0,PV+length(Str9)+1,length(Str0)-PV-length(Str9))üStr0
Goto 1I
As It says, it's beta, so don't trust it to be perfect.
Last edited by Guest on 26 Oct 2003 02:13:09 pm; edited 1 time in total |
|