QTRAKR.BAS

' TRACKER INSPIRED BY LINUS ÅKESSON'S (LFTKRYO) FOR C64 EDITOR IN BASIC&MC.
' CODE IS PURE QBASIC 1.1. ONE CAN BREAK EARLY USING CTRL+SCRLK.
' THIS CAN BE RUN ON https://boxgaming.github.io/qbjs/.
DECLARE SUB show ()
DIM nS AS STRING, cS AS STRING
DIM n0Z AS INTEGER, iZ AS INTEGER, nZ AS INTEGER, cZ AS INTEGER
show
n0Z = ASC("@")
DO
FOR iZ = 8 TO 79
nZ = SCREEN(7, iZ): cZ = SCREEN(4, iZ)
nS = CHR$(nZ): cS = CHR$(cZ)
LOCATE 4, iZ: COLOR 15: PRINT cS;
IF "A" <= nS AND nS <= "Z" THEN PLAY "N" + STR$(nZ - n0Z) ELSE PLAY "N0"
LOCATE 4, iZ: COLOR 7: PRINT cS;
NEXT
LOOP

SUB show
COLOR 7: CLS : LOCATE 2, 8: PRINT "QTRAKR": PRINT ' ONLY ONE CHANNEL WORKS.
DIM tS AS STRING: tS = "       "
PRINT tS; "+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---"
PRINT tS; ":   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :"
PRINT tS; ":   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :   :"
PRINT tS; "AEFH:AEFH AEFH E:A E:C EECA AE H:HF EFH E A C  A    :   :   :   :QSU:ZX"
PRINT
PRINT tS; "  B D   G I K   N P   S U W   Z"
PRINT tS; " A C E F H J L M O Q R T V X Y"
END SUB