reorganize HDISK

Atari-Buttons.txt

@@ -0,0 +1,15 @@
+ATARI BUTTONS
+
+F1: CONFIG PANEL (ESC, Exit)
+F2: START
+F3: SELECT
+F4: OPTION
+F5: WARM RESET (Preserves Ram) 
+	// SHIFT-F5 = COLD RESET
+F6: ?? UNKNOWN ??
+F7: SCROLL SCREEN BUFFER (down)
+F8: <DEBUG MONITOR MODE>
+F9: CLEAN SHUTDOWN EMULATOR
+F0: SCREENSHOT
+	// SHIFT-F0 = INTERLACED SCREENSHOT
+

HDISK/BASIC/GREET.BAS

@@ -0,0 +1,6 @@
+10 REM THIS PROGRAM SAYS HELLO TO A SPECIFIC PERSON
+20 REM ********************************************
+30 PRINT "Hello, there. What is your name?"
+40 INPUT NAME$
+50 PRINT "How very nice to meet you, ";NAME$
+60 PRINT "Goodbye, now!"

HDISK/BASIC/GREET2.BAS

@@ -0,0 +1,7 @@
+10 REM THIS PROGRAM SAYS HELLO TO A SPECIFIC PERSON
+20 REM ********************************************
+30 PRINT "Hello, there. What is your name?"
+35 DIM NAME$(50)
+40 INPUT NAME$
+50 PRINT "How very nice to meet you, ";NAME$
+60 PRINT "Goodbye, now!"

HDISK/BASIC/MEMTEST.BAS

@@ -10,13 +10,11 @@
 399 REM GET LOW AND HIGH MEMORY BOUNDS
 400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
 499 REM DISPLAY BOUNDS AND GET REPLY
-500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY
-     BOUNDS ARE"
+500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY BOUNDS ARE"
 600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
 700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
 800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
-900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR
-     HIGH-LOW < N256 THEN 900
+900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR HIGH-LOW < N256 THEN 900
 999 REM SETUP BOUNDS FOR THE MLP
 1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
 1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
@@ -26,8 +24,7 @@
 1399 REM CHECK RETURN FROM MLP
 1400 IF PEEK(208) = NO THEN 2200
 1499 REM SHOW MEMORY ERROR ON SCREEN
-1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP =
-     "; PEEK(207); " ACT = "; PEEK(209)
+1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP = "; PEEK(207); " ACT = "; PEEK(209)
 1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
 1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
 1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
@@ -51,7 +48,5 @@
 2800 GOTO 1100
 2899 REM READ IN MACHINE LANGUAGE PROGRAM
 2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
-3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105,
-     1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
-3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169,
-     1, 133, 208, 96
+3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105, 1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
+3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169, 1, 133, 208, 96

HDISK/BASIC/MEMTEST2.BAS

@@ -10,13 +10,11 @@
 399 REM GET LOW AND HIGH MEMORY BOUNDS
 400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
 499 REM DISPLAY BOUNDS AND GET REPLY
-500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY
-     BOUNDS ARE"
+500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY BOUNDS ARE"
 600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
 700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
 800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
-900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR
-     HIGH-LOW < N256 THEN 900
+900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR HIGH-LOW < N256 THEN 900
 999 REM SETUP BOUNDS FOR THE MLP
 1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
 1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
@@ -26,8 +24,7 @@
 1399 REM CHECK RETURN FROM MLP
 1400 IF PEEK(208) = NO THEN 2200
 1499 REM SHOW MEMORY ERROR ON SCREEN
-1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP =
-     "; PEEK(207); " ACT = "; PEEK(209)
+1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP = "; PEEK(207); " ACT = "; PEEK(209)
 1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
 1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
 1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
@@ -51,7 +48,5 @@
 2800 GOTO 1100
 2899 REM READ IN MACHINE LANGUAGE PROGRAM
 2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
-3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105,
-     1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
-3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169,
-     1, 133, 208, 96
+3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105, 1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
+3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169, 1, 133, 208, 96

HDISK/BASIC/MSOFT.BAS

@@ -0,0 +1,5 @@
+10 REM *** A VERY SIMPLE PROGRAM ***
+20 DIM A$(7)
+20 DIM B$(7)
+30 DIM C$(7)
+40 A$=""

HDISK/BASIC/SIMPLE1.BAS

@@ -0,0 +1,12 @@
+5 REM *** SIMPLE PROGRAM ***
+10 DIM A$(7)
+12 DIM B$(7)
+14 DIM C$(7)
+16 DIM D$(25)
+20 A$=""
+30 B$="
"
+40 C$=""
+45 D$="Microsoft Windows(tm)"
+60 PRINT A$
+70 PRINT B$;D$
+80 PRINT C$