]> apps.delaporte.us Git - dotfiles.git/commitdiff
Merge PATH
authorEdward Delaporte <delaport@illinois.edu>
Tue, 18 May 2021 15:39:34 +0000 (10:39 -0500)
committerEdward Delaporte <delaport@illinois.edu>
Tue, 18 May 2021 15:39:34 +0000 (10:39 -0500)
.gitignore
Microsoft.PowerShell_profile.ps1
basic/Makefile [new file with mode: 0644]
basic/app.txt [new file with mode: 0644]
psmodules/drivespace.psm1

index 1ff3e1cd8883213b44d720bf4de75fd59d400075..59557ed795edf78dc8c8135c021cb03854bae112 100644 (file)
@@ -1,3 +1,6 @@
+
+*.gif
+
 *.log
 DONE.md
 .github_access_token
index 45ca75a2712e6620e533d5f2c1c5b0036ab87ca7..6be7ab95e781d19a0506680645021ced7c8a1b86 100644 (file)
@@ -26,6 +26,7 @@ if($IsWindows){
        $ENV:PATH+=";C:\Program Files\Microsoft VS Code\bin" # One Editor to rule them all
        $ENV:PATH+=";C:\Program Files\Git\cmd" # Version control is nice.
        $ENV:PATH+=";C:\ProgramData\chocolatey\bin" # Package management is nice.
+       $ENV:PATH+=";C:\bin\x16emu" # Package management is nice.
        $ENV:PATH+=";C:\Program Files (x86)\GnuWin32\bin" # GNU Utils - i.e. rm
        $ENV:PATH+=";C:\PENGUIN" # Flag to ensure my profile kicked in.
 }
@@ -78,6 +79,14 @@ function Enable-PoshGit {
 New-Alias pg    Enable-PoshGit
 Write-Host "+ Type 'pg' to enable PoshGit"
 
+function Invoke-X16Emu {
+       param(
+               [string]$File
+       )
+       x16emu.exe -bas $File -keymap en-us
+}
+
+New-Alias x16   Invoke-X16Emu
 
 if((Get-Location).Path -eq $HOME){
        cd $env:src
diff --git a/basic/Makefile b/basic/Makefile
new file mode 100644 (file)
index 0000000..7cfde26
--- /dev/null
@@ -0,0 +1,7 @@
+\r
+all:\r
+       x16emu.exe -bas app.txt -keymap en-us\r
+\r
+gif:\r
+       x16emu.exe -bas app.txt -gif out.gif\r
+\r
diff --git a/basic/app.txt b/basic/app.txt
new file mode 100644 (file)
index 0000000..8c9c286
--- /dev/null
@@ -0,0 +1,24 @@
+6 GOSUB 2000\r
+7 HI = 191\r
+8 LOW = 185\r
+9 Y = 0\r
+10 FOR X = 1 TO 42\r
+20 PRINT CHR$(HI);\r
+25 GOSUB 1000\r
+27 PRINT CHR$(150+RE);\r
+30 NEXT X\r
+35 PRINT CHR$(HI)\r
+40 Y = Y + 1\r
+80 GOTO 10\r
+1000 REM MOD\r
+1005 Z = X + Y\r
+1010 RE = Z - (INT(Z/10)*10)\r
+1040 RETURN\r
+2000 REM LIST CHARS\r
+2005 FOR CH = X TO 20+X\r
+2008 PRINT CH;\r
+2010 PRINT CHR$(CH)\r
+2020 NEXT CH\r
+2025 PRINT CHR$(CH)\r
+2030 RETURN\r
+\r
index 361ee23d6eda38ba78afd264685f5804f85ec5a5..19fdc5e5b6648efb75c1737e5eb6547c5209f30c 100644 (file)
@@ -38,5 +38,4 @@ Get-Job -Name "FileCollection" | Remove-Job
 }
 
 Export-ModuleMember -Function Show-Drivespace 
-Export-ModuleMember -Function Show-DrivespacePretty
 Export-ModuleMember -Function Show-LargeFiles