Reset v1.2 by Pentagon

Program Name
[RESET1.2]

Detta program konstruerade jag till min
CASIO CFX-9950 G men fungerar även på en
9850. Programet liknar Memory reset 
(radera minnet på räknaren) fast
funktionerna är annorlunda. Du får ta det
på eget ansvar om du ska använda det på
proven. Lärare uppskattar inte sånt. 
Texten som kommer efter // ska inte
skrivas in på räknaren. Jag har försökt 
att göra det så enkelt som möjligt, dels 
med en vanlig text och en som visar hur 
det ser ut på räknaren. //* markerar att 
det är ändrat i den nya versionen, detta 
kan ni som lägger in det för första 
gången strunta helt i. Har ni några 
kommentarer eller har hittat fel på detta 
program så kan ni skicka mail till mig på:
christofer.karlberg@swipnet.se


Cls			[SHIFT] [F4] [F1]
VievWindow		[SHIFT] [F3] [F1]
GridOff			[SETUP] [F3] [F2]
AxesOff			[SETUP] [F4] [F2]
LabelOff		[SETUP] [F5] [F2]
Green			[OPTN]  [F6] [F1] [F2]
Text			[SHIFT] [F4] [F6] [F6] [F2]
F-Line			[SHIFT] [F4] [F6] [F2] [F2]
Locate			[PRGM]  [F6] [F4] [F1]
Getkey			[PRGM]  [F6] [F4] [F2]
Lbl			[PRGM]  [F3] [F1] 
If			[PRGM]  [F1] [F1]
Then			[PRGM]  [F1] [F2]
IfEnd			[PRGM]  [F1] [F4]
ClrText			[PRGM]  [F6] [F1] [F1]
Stop			[PRGM]  [F2] [F4]
Goto			[PRGM]  [F3] [F2]
//			Bara mina anmärkningar
//*			Dessa rader ska ändras/skrivas in
			Bara för dig som har v1.1


AC/ON			// För att starta räknaren
log			// För att gå in i program
F3			// För att skapa ett nytt program
RESET1.1		// För att döpa programet
EXE			// För att börja skriva i programet


======RESET1.2======
Cls
ViewWindow 1,127,0,63,1,0
GridOff
AxesOff
LabelOff
Green Text 58,4,"YES"
Green F-Line 2,63,2,56
Green F-Line 2,56,18,56
Green Text 58,48,"RESET ALL"
Green Text 58,112,"N O"
Green F-Line 110,63,110,56
Green F-Line 110,56,125,56
Locate 1,1,"*********************"		// 21 st
Locate 1,2,"*       RESET       *"		// 7 space
Locate 1,3,"*********************"		// 21 st
Locate 1,7,"RESET ALL MEMORIES? "
Getkey
Lbl 1
If Getkey=79
Then Locate 1,1,"*********************"		// 21 st
Locate 1,2,"*                   *"		// 19 space
Locate 1,3,"*       RESET       *"		// 7 space 8 space
Locate 1,4,"*                   *"		// 19 space
Locate 1,5,"*   ALL MEMORIES!   *"		// 3 space
Locate 1,6,"*                   *"		// 19 space
Locate 1,7,"*********************"		// 21 st
IfEnd						//* Lägg till denna raden
If Getkey=31					//* Lägg till denna raden
Then ClrText					//* Lägg till denna raden
" "						//* Lägg till denna raden
Stop						//* Lägg till denna raden
IfEnd						//* Lägg till denna raden
If Getkey=29
Then ClrText
" "
Stop
IfEnd
Goto 1						// Made by Pentagon


Så här bör det se ut när du programerar det.
¶ = Enter dvs [EXE]


======RESET1.2======
Cls¶
ViewWindow 1,127,0,63
,1,0¶
GridOff¶
AxesOff¶
LabelOff¶
Green Text 58,4,"YES"
¶
Green F-Line 2,63,2,5
6¶
Green F-Line 2,56,18,
56¶
Green Text 58,48,"RES
ET ALL"¶
Green Text 58,112,"N 
O"¶
Green F-Line 110,63,1
10,56¶
Green F-Line 110,56,1
25,56¶
Locate 1,1,"*********
************"¶		
Locate 1,2,"*       R
ESET       *"¶		
Locate 1,3,"*********
************"¶		
Locate 1,7,"RESET ALL
 MEMORIES? "¶
Getkey¶
Lbl 1¶
If Getkey=79¶
Then Locate 1,1,"****
*****************"¶		
Locate 1,2,"*        
           *"¶		
Locate 1,3,"*       R
ESET       *"¶		
Locate 1,4,"*        
           *"¶		
Locate 1,5,"*   ALL M
EMORIES!   *"¶		
Locate 1,6,"*        
           *"¶		
Locate 1,7,"*********
************"¶		
IfEnd¶
If Getkey=31¶
Then ClrText¶
" "¶
Stop¶
IfEnd¶
If Getkey=29¶
Then ClrText¶
" "¶
Stop¶
IfEnd¶
Goto 1¶

___________________________________________________

Detta program är hämtat ifrån Christofer Karlberg´s
hemsida på "http://www.thepentagon.com/menu"