!*************************************************
!**            ZipChip Zapper GS v1.0           **
!**                      by                     **
!**                Terry R. Olsen               **
!**              a.k.a. Tall Runner             **
!**         Copyright 1993, TNT Software        **
!**            "It'll Blow You Away!"           **
!*************************************************

! : This is just a demo program that demonstrates the use
!       of the ZIP.GS external.  It contains no error trapping
!       or carrier detect code.

Enter Global
 trap modem=6 goto Terminate
 
 ?"                  ZipChip Zapper Menu

   E = Enable ZipGS                      D = Disable ZipGS
   B = Bank Switch LC Cache              P = Paddle Delay
   A = Appletalk Delay                   C = Counter Delay
   F = CPS Follow                        S = Speaker Delay
   * = ZipGS Status                    1-7 = Slots 1-7
   @ = Set ZipGS Speed                   H = Help Screen
   R = Return Zip Statistic              G = System Speed
   Q = Quit"\

 input mode("U") "ZipChip Zapper Cmd:" len(1) ["GRH@QEDBPACFS*1234567"] i$
 if i$="Q" run "1/main","fromseg"
 if i$="@" goto SetZipSpeed
 if i$="R" goto ReturnStat
 ext "0/zip.gs",i$
 if (i$="*") or (i$="H") ?"Press Return...";:get a$
 goto Enter

SetZipSpeed
 ?"          Set ZipGs Speed

  0 = 100.00%                8 = 50.00%
  1 =  93.75%                9 = 43.75%
  2 =  87.50%               10 = 37.50%
  3 =  81.25%               11 = 31.25%
  4 =  75.00%               12 = 25.00%
  5 =  68.75%               13 = 18.75%
  6 =  62.50%               14 = 12.50%
  7 =  56.25%               15 =  6.25%"\

 input mode("0") "Choose Speed:";sp
 if (sp<0) or (sp>15) goto SetZipSpeed
 ext "0/zip.gs","@",sp
 goto Enter

Terminate
 run "1/main","term"

ReturnStat
 ?"           Return a Zip Statistic

  A = Appletalk Delay         B = Bank Switched Cache
  C = Counter Delay           F = CPS Follow
  P = Paddle Delay            S = Speaker Delay
  Z = Zip Status            1-7 = Slots 1-7
  G = System Speed"\

 input mode("U") "Return which statistic? " len(1) ["ABCFGPSZ1234567"] i$
 ext "0/zip.gs","R",i$,enb
 ? \""

 if enb=255 ?"Error!";:get a$:goto Enter
 if val(i$) goto SlotStat

 if i$="A" ?"AppleTalk Delay : ";
 if i$="B" ?"Bank-Switched Cache : ";
 if i$="C" ?"Counter Delay : ";
 if i$="F" ?"CPS Follow : ";
 if i$="P" ?"Paddle Delay : ";
 if i$="S" ?"Speaker Delay : ";
 if i$="Z" ?"ZipGS : ";
 long if i$="G"
  ?"System Speed : ";
  if enb ?"Fast";:else ?"Normal";
  get a$
  pop if:goto Enter
 end if

 if enb ?"Enabled";:else ?"Disabled";
 get a$
 goto Enter

SlotStat
 ?"Slot " val(i$) " : ";
 if enb ?"Fast";:else ?"Slow";
 get a$
 goto Enter