#INCLUDE "offti-82.h"

; Turbo v1.0
; by Randy Gluvna
; gluvna@home.com

.ORG 0
#IFDEF OSHELL82
.DB "Turbo v1.0",0
#ENDIF

        ROM_CALL(CLEARLCD)
        LD HL,$0300
        LD (CURSOR_POS),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_TITLE
        ADD HL,DE
        SET 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0001
        LD (CURSOR_POS),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_AUTHOR
        ADD HL,DE
        RES 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0003
        LD (CURSOR_POS),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_MENU
        ADD HL,DE
        ROM_CALL(D_ZT_STR)
WAIT:
        CALL GET_KEY
        CP 55
        RET Z
        CP 34
        JUMP_Z(NORMAL)
        CP 26
        JUMP_Z(MEDIUM)
        CP 18
        JUMP_Z(FAST)
        CP 35
        JUMP_Z(FASTEST)
        JUMP_(WAIT)
NORMAL:
        LD A,%00000110
        JUMP_(SET_SPEED)
MEDIUM:
        LD A,%00000100
        JUMP_(SET_SPEED)
FAST:
        LD A,%00000010
        JUMP_(SET_SPEED)
FASTEST:
        LD A,%00000000
        JUMP_(SET_SPEED)
SET_SPEED:
        OUT (4),A
        RET

STRING_TITLE:
        .DB "Turbo v1.0",0
STRING_AUTHOR:
        .DB "by: Randy Gluvna",0
STRING_MENU:
        .DB "1: Normal       "
        .DB "2: Medium       "
        .DB "3: Fast         "
        .DB "4: Fastest      ",0

.END