From: EdTheDev <edward@delaporte.us>
Date: Mon, 17 May 2021 03:52:19 +0000 (-0500)
Subject: Merge.
X-Git-Url: https://us-delaporte.pagekite.me/gitweb/dotfiles.git/commitdiff_plain/ff4bd2116c84600a2a5c981d06174eb792ff52a4?hp=79bacfc9724b7583b890f3d9388985a0e6343184

Merge.
---

diff --git a/.gitignore b/.gitignore
index 1ff3e1c..59557ed 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,6 @@
+
+*.gif
+
 *.log
 DONE.md
 .github_access_token
diff --git a/Microsoft.PowerShell_profile.ps1 b/Microsoft.PowerShell_profile.ps1
index d62bca4..eed9141 100644
--- a/Microsoft.PowerShell_profile.ps1
+++ b/Microsoft.PowerShell_profile.ps1
@@ -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:\PENGUIN" # Flag to ensure my profile kicked in.
 }
 
@@ -77,6 +78,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
index 0000000..7cfde26
--- /dev/null
+++ b/basic/Makefile
@@ -0,0 +1,7 @@
+
+all:
+	x16emu.exe -bas app.txt -keymap en-us
+
+gif:
+	x16emu.exe -bas app.txt -gif out.gif
+
diff --git a/basic/app.txt b/basic/app.txt
new file mode 100644
index 0000000..8c9c286
--- /dev/null
+++ b/basic/app.txt
@@ -0,0 +1,24 @@
+6 GOSUB 2000
+7 HI = 191
+8 LOW = 185
+9 Y = 0
+10 FOR X = 1 TO 42
+20 PRINT CHR$(HI);
+25 GOSUB 1000
+27 PRINT CHR$(150+RE);
+30 NEXT X
+35 PRINT CHR$(HI)
+40 Y = Y + 1
+80 GOTO 10
+1000 REM MOD
+1005 Z = X + Y
+1010 RE = Z - (INT(Z/10)*10)
+1040 RETURN
+2000 REM LIST CHARS
+2005 FOR CH = X TO 20+X
+2008 PRINT CH;
+2010 PRINT CHR$(CH)
+2020 NEXT CH
+2025 PRINT CHR$(CH)
+2030 RETURN
+
diff --git a/psmodules/drivespace.psm1 b/psmodules/drivespace.psm1
index 361ee23..19fdc5e 100644
--- a/psmodules/drivespace.psm1
+++ b/psmodules/drivespace.psm1
@@ -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