mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
63 lines
1.2 KiB
Plaintext
63 lines
1.2 KiB
Plaintext
.AlphaCS
|
|
#ExprOff
|
|
If getKey(41)
|
|
sub(ADM)
|
|
End
|
|
Lbl START
|
|
"appv alpha "->Str1
|
|
"appvAlphaCS"->Str2
|
|
.ALPHA CS
|
|
[7EFFFFE7FFFFE7E7]->Pic11
|
|
[E0E0E0E0E0FFFF7F]->Pic12
|
|
[FEFFE7FFFEE0E0E0]->Pic13
|
|
[E7E7E7FFFFE7E7E7]->Pic14
|
|
[7EFFFFE7FFFFE7E7]->Pic15
|
|
[7FFFFFE0E0FFFF7F]->Pic16
|
|
[7FFFFF781EFFFFFE]->Pic17
|
|
.arch
|
|
[0038447C44440000]->Pic21
|
|
.hide
|
|
[0054004400540000]->Pic22
|
|
.lock
|
|
[0038447C7C7C0000]->Pic23
|
|
.(c) Scott Mangiapane
|
|
Data(72,8)->GDB0
|
|
[42600A360008000100994DDF2A6C61B1B28091294A22AAAAAAAB005A6DCA226A69B9A9800000000000202000000000000000C0200000000000000000000000000000000000000000]
|
|
.icon unknown
|
|
Data(16,16)->GDB11
|
|
[EFFEA803EB8308032BFB28032BFB0803EBFBA803EBFB08032B8328032FFF07FF]
|
|
.icon SRC
|
|
Data(16,16)->GDB12
|
|
[01801A583E7C3FFC3FFC3E7C1A580A500240FFFFC471BDAFCC6FF5AF8DB1FFFF]
|
|
.icon ASM
|
|
Data(16,16)->GDB13
|
|
[FFFFFFFFFFFFFFFFFFFFCE6BB5D586D5B75DB4DDFFFFFFFFFFFFFFFFFFFFFFFF]
|
|
.icon shell
|
|
Data(16,16)->GDB14
|
|
[FFFFFFFFFFFFFFFFFFFFFFFF97B5B155D5359595FFFFFFFFFFFFFFFFFFFFFFFF]
|
|
Goto SET
|
|
prgmSRCFUNC
|
|
prgmSRCGUI
|
|
prgmSRCSORT
|
|
Lbl SET
|
|
.start, set up
|
|
ClrDraw
|
|
StoreGDB
|
|
DiagnosticOff
|
|
Fix 5
|
|
Full
|
|
!If GetCalc(Str1,[Y1])
|
|
sub(NEW)
|
|
StoreGDB
|
|
End
|
|
GetCalc(Str1,[Y1])
|
|
If {[Y1]+0}
|
|
!If sub(CODE)
|
|
Goto END
|
|
End
|
|
End
|
|
Asm(FDCB249E)
|
|
If {[Y1]+6}
|
|
Asm(FDCB24DE)
|
|
End
|
|
Goto DLIST |