L33tplanner1

[Twiztid33]

i am trying to make a planner program to use for school, but i cant seem to be able to input stuf without getting an error, so i need some major help for this and i have decided to put gta:united town on hold for a while so i can make some easier programs,

if anyone wants to help, please do i can use all the help i can get.

[62 52 53 53]

You want to make your own? do you want just a list of classes, with a separate display for each? if so I can post the source of the one I made. (which reminds me, I should post my 'store a sub string' routine on ticalc)

[Twiztid33]

i want a list of classes and then for each day i can put the homework i got for each class

[Arcane Wizard]

[Babyboy]

D0 y0|_| F0|_|_0\/\/ 7|-|3 \/\/4Y 0F |_4rG0-5/\/531, 0R 4r3 Y0|_| 4 \/\/4/\//\/4B3?

[62 52 53 53]

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.