pocetak:
CLS
PRINT "**************************************************************"
PRINT "*   MULTIMEDIJA ZA VIDEO I PC - PROGRAM ZA DIJAGNOSTIKU      *"
PRINT "*   Copyright (C) 1992. by: Goran Stankovic dipl.ing.el.     *"
PRINT "*   www.qsl.net/yt2fsg      goranstank@email.com             *"
PRINT "**************************************************************"
PRINT
PRINT "----------- MENU ----------------"
PRINT
PRINT "      < F1  >  CIKLUS"
PRINT "      < F2  >  P I P"
PRINT "      < F3  >  SCREEN"
PRINT
PRINT "      < Esc >  Exit"
DO
  key$ = INKEY$
  IF key$ = CHR$(0) + CHR$(59) THEN GOTO ciklus  'F1
  IF key$ = CHR$(0) + CHR$(60) THEN GOTO testpip 'F2
  IF key$ = CHR$(0) + CHR$(61) THEN GOTO slika   'F3
'  IF key$ = CHR$(0) + CHR$(62) THEN GOTO f4     'F4
'  IF key$ = CHR$(0) + CHR$(63) THEN GOTO f5     'F5
'  IF key$ = CHR$(0) + CHR$(64) THEN GOTO f6     'F6
'  IF key$ = CHR$(0) + CHR$(65) THEN GOTO f7    'F7
'  IF key$ = CHR$(0) + CHR$(66) THEN GOTO f8    'F8
'  IF key$ = CHR$(0) + CHR$(67) THEN GOTO f9    'F9
'  IF key$ = CHR$(0) + CHR$(68) THEN GOTO f10   'F10
  IF key$ = CHR$(27) THEN EXIT DO
LOOP
END

ciklus:
CLS
PRINT "------- CIKLUS ------------"
PRINT
PRINT "      < F1  >  Ciklus"
PRINT "      < F2  >  CS 0 test"
PRINT "      < F3  >  CS 1 test"
PRINT "      < F4  >  CS 2 test"
PRINT "      < F5  >  CS 3 test"
PRINT "      < F6  >  Upis"
PRINT
PRINT "      < Esc >  Exit"
DO
  key$ = INKEY$
  IF key$ = CHR$(0) + CHR$(59) THEN GOTO ciklus2  'F1
  IF key$ = CHR$(0) + CHR$(60) THEN GOTO cs0     'F2
  IF key$ = CHR$(0) + CHR$(61) THEN GOTO cs1     'F3
  IF key$ = CHR$(0) + CHR$(62) THEN GOTO cs2     'F4
  IF key$ = CHR$(0) + CHR$(63) THEN GOTO cs3     'F5
  IF key$ = CHR$(0) + CHR$(64) THEN GOTO upis    'F6
  IF key$ = CHR$(27) THEN EXIT DO
LOOP
GOTO pocetak

testpip:
CLS
PRINT "------- P I P ------------"
PRINT
PRINT "      < F1  >  Test 1"
PRINT "      < F2  >  Test 2"
PRINT "      < F3  >  Test 3"
PRINT "      < F4  >  Test 4"
PRINT "      < F5  >  Test 5"
PRINT "      < F6  >  Counter"
PRINT
PRINT "      < Esc >  Exit"
DO
  key$ = INKEY$

  IF key$ = CHR$(0) + CHR$(59) THEN GOTO slika21  'F1
  IF key$ = CHR$(0) + CHR$(60) THEN GOTO slika22 'F2
  IF key$ = CHR$(0) + CHR$(61) THEN GOTO slika23 'F3
  IF key$ = CHR$(0) + CHR$(62) THEN GOTO slika24 'F4
  IF key$ = CHR$(0) + CHR$(63) THEN GOTO slika25 'F5
  IF key$ = CHR$(0) + CHR$(64) THEN GOTO slika10  'F6 
  IF key$ = CHR$(27) THEN EXIT DO
LOOP
GOTO pocetak

slika:
CLS
PRINT "------- SCREEN------------"
PRINT
PRINT "      < F1  >  Grau"
PRINT "      < F2  >  Move"
PRINT "      < F3  >  Scroll"
PRINT "      < F4  >  Mix/alt"
PRINT
PRINT "      < Esc >  Exit"
DO
  key$ = INKEY$
  IF key$ = CHR$(0) + CHR$(59) THEN GOTO grau  'F1
  IF key$ = CHR$(0) + CHR$(60) THEN GOTO move  'F2
  IF key$ = CHR$(0) + CHR$(61) THEN GOTO scroll 'F3
  IF key$ = CHR$(0) + CHR$(62) THEN GOTO mix 'F4
  IF key$ = CHR$(27) THEN EXIT DO
LOOP
GOTO pocetak

'-----------------------------------------
ciklus2:
PRINT
PRINT
PRINT " Ciklus :  LED 1 §miga u 1 Hz"
DO
  FOR I% = 0 TO 100
    y% = INP(&H300)
  NEXT I%
  SLEEP (1)
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
cs0:
PRINT
PRINT
PRINT " CS 0 :  74HC139 pin=4"
DO
  y% = INP(&H300)
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
cs1:
PRINT
PRINT
PRINT " CS 1 :  74HC139 pin=5"
DO
  y% = INP(&H308)
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
cs2:
PRINT
PRINT
PRINT " CS 2 :  74HC139 pin=6"
DO
  y% = INP(&H304)
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
cs3:
PRINT
PRINT
PRINT " CS 3 :  74HC139 pin=7"
DO
  y% = INP(&H30C)
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
upis:
PRINT
PRINT
PRINT " Upis :  IOW signal"
DO
  OUT (&H300), 0
LOOP UNTIL INKEY$ = CHR$(27)
GOTO ciklus
'----------------------------------------
slika21:
PRINT
PRINT "T E S T    1"
GOSUB prg8255
GOSUB pip1
FOR p% = 0 TO 70
  FOR q% = 0 TO 140
    OUT (&H305), q%
    OUT (&H30C), p%
    GOSUB readywr
    OUT (&H304), 0
    GOSUB readywr
    OUT (&H304), 0
  NEXT q%
NEXT p%
GOTO testpip

slika22:
PRINT
PRINT "T E S T    2"
GOSUB prg8255
GOSUB pip1
FOR p% = 0 TO 120
  FOR q% = 0 TO 140
    OUT (&H305), q%
    OUT (&H30C), p%
    GOSUB readywr
    OUT (&H304), &HFF
    GOSUB readywr
    OUT (&H304), &HFF
  NEXT q%
NEXT p%
GOTO testpip

slika23:
PRINT
PRINT "T E S T    3"
GOSUB prg8255
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 50
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 20
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 50
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 70
OUT &H309, 0

DO
    OUT (&H305), 0
    GOSUB readywr
    OUT (&H304), 55
    FOR I = 1 TO 3
    NEXT I
    OUT (&H305), 16
    GOSUB readywr
    OUT (&H304), 44
    FOR I = 1 TO 3
    NEXT I
    OUT (&H305), 0
    y% = INP(&H304)
    GOSUB readyrd
    y% = INP(&H304)
    OUT (&H305), 16
    z% = INP(&H304)
    GOSUB readyrd
    z% = INP(&H304)
    PRINT y%, z%
LOOP
GOTO testpip

slika24:
PRINT
PRINT "T E S T    4"
GOSUB prg8255
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 30     'X start
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 100    'X duzina
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 70     'Y start
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 200    'Y duzina
OUT &H309, 0

OUT (&H307), &HD0
FOR p = 50 TO 80
  z = 0
  FOR q = 50 TO 80
    OUT (&H305), q
    OUT (&H30C), p
    GOSUB readywr
    OUT (&H304), z
    GOSUB readywr
    OUT (&H304), z
    z = z XOR 1
  NEXT q
NEXT p
GOTO testpip
'---------------------------------------------
slika25:
PRINT
PRINT "T E S T    5"
GOSUB prg8255
GOSUB pip2
OUT (&H307), &HD0
FOR p = 0 TO 52
  FOR q = 0 TO 102
    OUT (&H305), q
    OUT (&H30C), p
    GOSUB readywr
    OUT (&H304), 0
    GOSUB readywr
    OUT (&H304), 0
  NEXT q
NEXT p
p = 20
FOR k = 0 TO 1
  q = 20
  OUT (&H30C), p
  FOR I = 0 TO 15
    OUT (&H305), q
    GOSUB wrpoint
    q = q + 1
  NEXT I
  p = p + 1
NEXT k
q = 21
FOR k = 0 TO 9
  OUT (&H30C), p
  OUT (&H305), q
  GOSUB wrpoint
  OUT (&H305), q + 1
  GOSUB wrpoint
  q = q + 1
  p = p + 1
NEXT k
GOTO testpip

'-----------------------------------------------------
slika10:
GOSUB prg8255
FOR y1% = 50 TO 100 STEP 10
 FOR x1% = 30 TO 50 STEP 10
  FOR y2% = 70 TO 100 STEP 10
   FOR x2% = 20 TO 50 STEP 10
    OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
    OUT &H300, x1%    'X start
    OUT &H300, 0
    OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
    OUT &H301, x2%    'X duzina
    OUT &H301, 0
    OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
    OUT &H308, y1%    'Y start
    OUT &H308, 0
    OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
    OUT &H309, y2%    'Y duzina
    OUT &H309, 0
    FOR aa = 0 TO 100
    NEXT aa
    PRINT "X1="; x1%, "X2="; x2%, "Y1="; y1%, "Y2="; y2%
   NEXT x2%
  NEXT y2%
 NEXT x1%
NEXT y1%

GOTO testpip
'--------------------------------------------------------
grau:
PRINT
PRINT "G R A U"
GOSUB prg8255
GOSUB pip2

OUT (&H307), &HD0
FOR p% = 0 TO 52
  FOR q% = 0 TO 110
    OUT (&H305), q%
    OUT (&H30C), p%
    GOSUB readywr
    OUT (&H304), 0
    GOSUB readywr
    OUT (&H304), 0
  NEXT q%
NEXT p%
p% = 20
FOR I% = 1 TO 20
  q% = 10
  z% = 0
  FOR j% = 1 TO 2
    FOR k% = 1 TO 10
      OUT (&H305), q%
      OUT (&H30C), p%
      GOSUB readywr
      OUT (&H304), 1 + z%
      GOSUB readywr
      OUT (&H304), 1 + z%
      q% = q% + 1
    NEXT k%
    FOR k% = 1 TO 10
      OUT (&H305), q%
      OUT (&H30C), p%
      GOSUB readywr
      OUT (&H304), 3 + z%
      GOSUB readywr
      OUT (&H304), 3 + z%
      q% = q% + 1
    NEXT k%
    FOR k% = 1 TO 10
      OUT (&H305), q%
      OUT (&H30C), p%
      GOSUB readywr
      OUT (&H304), z%
      GOSUB readywr
      OUT (&H304), z%
      q% = q% + 1
    NEXT k%
    z% = z% + 128
  NEXT j%
  p% = p% + 1
NEXT I%
GOTO slika
'--------------------------------------------------------
move:
PRINT
PRINT "M O V E"
GOSUB prg8255
GOSUB pip2
posx = 30
FOR I% = 1 TO 40
    OUT (&H303), &H32
    OUT (&H300), posx
    OUT (&H300), 0
    posx = posx + 1
    FOR k = 1 TO 300
    NEXT k
NEXT I%
GOTO slika
'--------------------------------------------------------
scroll:
PRINT
PRINT "S C R O L L"
GOSUB prg8255
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 20     'X start
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 60     'X duzina
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 50     'Y start
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 70     'Y duzina
OUT &H309, 0

FOR p% = 10 TO 255
    OUT (&H30D), p%
    FOR I = 1 TO 100
    NEXT I
NEXT p%

GOTO slika
'----------------------------------------------------------
mix:
PRINT
PRINT "M I X / A L T"
GOSUB prg8255
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 30     'X start
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 100    'X duzina
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 70     'Y start
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 200    'Y duzina
OUT &H309, 0

OUT (&H307), 1
FOR aa = 0 TO 10000
NEXT aa
OUT (&H307), 0
GOTO slika
'-----------------------------------------------------------
wrpoint:
GOSUB readywr
OUT (&H304), &HFF
GOSUB readywr
OUT (&H304), &HFF
RETURN

readywr:
DO
  r = INP(&H306) AND &H80
LOOP UNTIL r > 0
RETURN

readyrd:
DO
  r = INP(&H306) AND &H20
LOOP UNTIL r > 0
RETURN
'-------------------------------------------------------
prg8255:
OUT (&H307), &HC0
y% = INP(&H304)
OUT (&H305), 0
OUT (&H306), 0

OUT (&H30F), &H80
OUT (&H30C), 0
OUT (&H30D), 0
OUT (&H30E), 0

sync:
OUT &H30B, &HB4   'Prg. counter 2 IC16 u modu 2
OUT &H30A, &HA0
OUT &H30A, 0
'
OUT &H303, &HB4   'Prg. counter 2 IC15 u modu 2
OUT &H302, &H38
OUT &H302, 1
RETURN

pip1:
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 20     'X start
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 70     'X duzina
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 50     'Y start
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 70     'Y duzina
OUT &H309, 0
RETURN
pip2:
OUT &H303, &H32   'Prg. counter 0 IC15 u modu 1
OUT &H300, 30     'X start
OUT &H300, 0
OUT &H303, &H72   'Prg. counter 1 IC15 u modu 1
OUT &H301, 50     'X duzina
OUT &H301, 0
OUT &H30B, &H32   'Prg. counter 0 IC16 u modu 1
OUT &H308, 50     'Y start
OUT &H308, 0
OUT &H30B, &H72   'Prg. counter 1 IC16 u modu 1
OUT &H309, 50     'Y duzina
OUT &H309, 0
RETURN