1 REM"***************************************
2 [143]"* BUSIBASIC DESKTOP      FERGAL MOANE *
3 REM"***************************************
10 [219]:[247]:[221]:[153][199](8):[208]"I"
15 [242]14,14,6
16 [151]39550,09:[143] SLOW JOY COMMAND DOWN:POKE$902C,$79
17 [151]51,0:[151]52,144:[151]55,0:[151]56,144:[156]
20 [243] 0,0:[153]"PEEK DISK PEEKPEEK VIEW PEEKPEEKSPECIALPEEK               "
21 [139] ST[178]64 [167] [137] 70
30 [244] 1024,40
40 [243] 22,0:[153]"BUSIBASIC DESKTOP       FIRST PRINCIPLES"
50 [244] 1904,40
60 .PROC CLEAR:.PROC DSPACE
65 [243] 08,05:[153]"FIRST PRINCIPLES SOFTWARE"
66 [243] 10,05:[153]"FERGAL MOANE"
67 [243] 12,05:[153]"STEVEN DOWNEY"
68 [243] 14,05:[153]"NEIL MC KEARNEY"
70 [134] AA$(7),BB$(6),CC$(4),DF$(144)
80 [129] T[178]0 [164] 7 :[135] AA$(T) :[130]
90 [129] T[178]0 [164] 6 :[135] BB$(T) :[130]
100 [129] T[178]0 [164] 4 :[135] CC$(T) :[130]
101 [239]1:[160]15
105 [143]****MAIN LOOP****
110 [206] 9,1:.PROC CLEAR
120 [205]
125 [139] [194](252)[179]18[175][194](252)[177]6[175][194](251)[179]26[175][194](251)[177]8[167] [137] 3900
126 [139] [194](251)[178]37 [167]:[208]"I":.PROC DSPACE:[137] 120
127 [139] [194](252)[178]22 [167]:.PROC ERR[176]:[137] 120
130 [139] [194](252)[179][177]0 [167] [137] 120
140 [139] [194](251)[179]8 [167] [137]1000
150 [139] [194](251)[177]7 [175] [194](251)[179]15 [167] [137]2000
160 [139] [194](251)[177]14 [175] [194](251)[179]25 [167] [137]3000
170 [137]120
1000 [143] **** MENU 1 ****
1001 [204] RT%,AA$(0),0
1010 TT$[178]AA$(RT%):.PROC TITLE(TT$)
1020 [145] RT% [137]  1100,1200,1300,1400,1500,1600,110
1030 [137] 120
1100 [143] ...INIT...
1110 .PROC SURE
1111 [243] 09,08:[153]"INITIALISING DISK"
1120 [208]"INITIALISE":[160]15
1130 .PROC DSPACE:.PROC ERR[176]
1150 [137]110
1200 [143]...FORMAT...
1210 [216],06,08,"DISK NAME  ",16,N$
1220 [216],06,11,"ID  ",2,ID$
1230 .PROC SURE
1250 [159]15,8,15,"N0:"[170]N$[170]","[170]ID$
1260 [243]06,16:[153]"FORMATING DISK. PLEASE WAIT"
1270 [160]15
1280 .PROC DSPACE.PROC ERR[176]:[137]110
1300 [143]...RENAME...
1310 [216],06,08,"OLD FILE  ",16,O$
1320 [216],06,10,"NEW FILE  ",16,N$
1330 .PROC SURE
1350 [159]15,8,15,"R0:"[170]N$[170]"="[170]O$
1360 [160]15
1370 .PROC ERR[176]:[137] 110
1400 [143]...DELETE...
1410 [216],06,08,"FILENAME  ",16,S$
1420 .PROC SURE
1440 [159]15,8,15,"S0:"[170]S$:[160]15
1450 .PROC ERR[176]:[137] 110
1500 [143]...VALIDATE...
1510 .PROC SURE
1530 [208]"V"
1540 [243] 16,06:[153]"VALIDATING DISK"
1550 [160]15:.PROC ERR[176]:[137] 110
1600 [143]...COPY...
1610 [216],06,08,"FILENAME  ",16,O$
1620 [216],06,10,"COPY NAME ",16,N$
1630 .PROC SURE
1650 [159]15,8,15,"C0:"[170]N$[170]"="[170]O$
1660 [160]15
1670 .PROC ERR[176]:[137] 110
2000 [143] **** MENU 2 ****
2001 [204] RT%,BB$(0),1
2010 TT$[178]BB$(RT%):.PROC TITLE(TT$)
2020 [145] RT% [137]  2100,2200,2500,2300,2400,110
2030 [137] 110
2100 [143]...DIR...
2101 .PROC SURE:.PROC CLEAR
2102 [243] 08,06:[153]"READING DIRECTORY...":[151]51,0:[151]52,144
2110 [129]T[178]0[164]144:DF$(T)[178]"":[130]:[159]1,8,0,"$0"
2120 [161]#1,A$
2121 [139] ST[178]64 [167] [137] 2170
2122 [139]A$[179][177][199](34)[167] 2120
2130 [161]#1,A$:[139]A$[179][177][199](34)[167]D$[178]D$[170]A$:[137]2130
2140 DF$(C)[178]D$:C[178]C[170]1:D$[178]""
2150 [139] ST[178]64 [167] [137] 2170
2160 [137] 2120
2170 [160]1:.PROC DSPACE:.PROC DISPLAY
2200 [143]...LIST...
2210 P[178]1:.PROC DISPLAY:[137]120
2220 .PROC SURE
2230 [243] 09,09:[153]"PLEASE WAIT..."
2240 [159]4,4:[157]4:[155]
2250 [152]4:[160]4
2260 .PROC CLEAR:[137]120
2300 [143]...DUMP...
2310 .PROC SURE
2320 [159]4,4:[152]4,DF$(0):[152]4,"----------------":[152]4
2330 [129]T[178]1[164]C:[152]4,DF$(T):[130]
2340 [152]4:[160] 4
2350 .PROC CLEAR:[137] 120
2400 [143]...ERROR...
2410 .PROC ERR[176]
2420 [137]110
2500 [143]...SORT...
2510 .PROC SURE
2520 [225] DF:.PROC CLEAR
2530 .PROC DISPLAY:[137]120
3000 [143] **** MENU 3 ****
3001 [204] RT%,CC$(0),2
3010 TT$[178]CC$(RT%):.PROC TITLE(TT$)
3020 [145] RT% [137]  3100,3200,3300,110
3030 [137] 120
3100 [143]...RESTART...
3110 [137]10
3200 [143]...BUSIBASIC...
3210 [151]39550,3:[143] RESTORE JOY SPEED
3220 [219]:[158] 37888:[128]
3300 [143]...BASIC 2...
3310 .PROC SURE:[249]:[162]
3900 [143]...LOAD...
3901 SL[178][194](252):[139] P[179]10 [167] [137] 2100
3902 [139] DF$((P[171]10)[170](SL[171]7))[178]""[167] [137] 120
3910 [244]1024[170]([194](252)[172]40)[170]5,28
3920 [243] 04,05:[153]" LOAD SELECTED FILE "
3930 .PROC SURE
3940 [219]:[153]"LOAD"[170][199](34)[170]DF$((P[171]10)[170](SL[171]7))[170][199](34)[170]",8"
3950 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3:[249]:[162]
50000 [143] **** PROCEDURES ****
50001 .[150]PROC TITLE(WW$)
50010 [243] 04,05:[153]"                   "
50020 [243] 04,06:[153]WW$
50030 .[128]PROC
50100 .[150]PROC CLEAR
50110 [207] 04,33,03,20,05,19,14,0
50120 [243] 04,05:[153]"BUSIBASIC DESKTOP"
50125 [243] 00,28:[153]"FREE:";[184](0)
50130 .[128]PROC
50200 .[150]PROC ERR[176]
50210 [243] 22,0:[153]"                             DISK STATUS"
50220 [244]1904,40:[243] 21,0:[208]
50230 .[128]PROC
50300 .[150]PROC SURE
50310 [207] 06,15,15,18,0,0,14,1
50320 [207] 21,31,15,18,0,0,14,1
50330 [243] 17,08:[153]"CANCEL"
50340 [243] 17,23:[153]"CONFIRM"
50350 [205]
50360 [139] [194](252)[179]15 [176] [194](252)[177]18 [167] [137] 50350
50370 [139] [194](251)[177]5 [175] [194](251)[179]16 [167] :.PROC CLEAR:[137] 120
50380 [139] [194](251)[177]20 [175] [194] (251)[179]32 [167] [137] 50400
50390 [137] 50350
50400 .[128]PROC
50500 .[150]PROC DSPACE
50510 [207] 36,38,4,19,0,0,14,0
50520 [159]8,8,15:[152]8,"M-R"[199](250)[199](2)
50530 [161]#8,X$:X$[178]X$[170][199](0)
50540 [152]8,"M-R"[199](252)[199](2)
50550 [161]#8,Y$:Y$[178]Y$[170][199](0)
50560 DSPACE[178][198](X$)[170]256[172][198](Y$)
50570 [160]8
50580 [238] 1781,14,([181](DSPACE[173]6))
50590 .[128]PROC
50600 .[150]PROC DISPLAY
50610 D[178]07:P[178]1:[243]08,06:[153]"                        "
50615 [243] 04,05:[153]" "DF$(0)"    "
50620 [243] D,09:[153]"                  ":[243] D,09:[153]DF$(P)
50640 D[178]D[170]1:P[178]P[170]1:[139] D[179]17 [167] [137] 50620
50650 [243] 18,06:[153]"         CONTINUEWAIT         "
50651 [205]
50652 [139] [194] (252)[178]18 [175] [194](251)[177]14 [175] [194] (251)[179]24 [167] [137]50660
50653 [139] [194](252)[179]18[175][194](252)[177]6[175][194](251)[179]26[175][194](251)[177]8[167] [137] 3900
50658 [137] 50651
50660 [243] 18,14:[153]"           "
50661 [139] P[177][178]C [167] [137] 50680
50670 D[178]07:[137] 50620
50680 [243]22,0:[153]"END OF DIRECTORY.":[129]T[178]0[164]500:[130]:.PROC ERR[176]:[137]120
50690 .EDNPROC
60000 [143] **** MENU DATA ****
60001 [131]"PEEK DISK PEEK","INIT","FORMAT","RENAME","DELETE","VALIDATE","COPY","EXIT"
60010 [131]"PEEK VIEW PEEK","DIR","LIST","SORT","DUMP","ERROR","EXIT"
60020 [131]"PEEKSPECIALPEEK","RESTART","BUSIBAS","BASIC 2","EXIT
0