@program prog_code,prog_name include macros.h ;************** Start of Fargo program ************** prog_code: ;Program Code clr.l d0 ;Clear d0 (Variable) jsr flib[clr_scr] ;Clear Screen SetFont #1 ;Normal Font WriteStr #1,#46,#0,text ;Write The string 'Text' at x:6 y:30 with style 4 loop: ;A Label, 'Label Loop' jsr flib[idle_loop] ;Like Getkey, Returns Key # to d0 cmp #0,d0 ;If a key is not pressed, beq loop ;Goto loop. cmp #264,d0 ;Esc pushed ? beq exit ;Goto Exit cmp #13,d0 ;Enter pushed ? beq reset ;Goto Reset bra loop ;If an invalid key is pressed, goto loop reset: Trap #2 ;Command To Reset Calc exit: rts ;Exit Command prog_name: dc.b "Reset, By Jeff Miller-^ViRuS^",0 ;The Text that appears beside the name of the program in fargo shell text dc.b "Press Enter To Reset Calc, Esc To Cancel",0 ;The Text for variable 'Text' ;************** End of Fargo program **************** reloc_open add_library flib add_library romlib reloc_close end